Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Access 2010 - Validitätsprüfung email-Adresse ?

Mitglied: IngChris

IngChris (Level 1) - Jetzt verbinden

14.04.2011 um 11:29 Uhr, 8624 Aufrufe, 4 Kommentare

Hallo,

Habe in einem Access 2010 - Formular ein Feld mit einer email-Adresse.
Vor dem Senden der email möchte ich gerne prüfen, ob die email-Adresse valide ist (z.b. info@xxxx.at)

Hat jemand passenden VBA-Code dafür?

Vielen Dank

LG IngChris
Mitglied: MrTrebron
14.04.2011 um 11:42 Uhr
Hallo IngChris

guckst du hier

Gruß
Norbert
Bitte warten ..
Mitglied: thaenhusen
14.04.2011 um 13:40 Uhr
Moin.

Vieleicht hilft Dir folgende Funktion?
Die habe ich mal im Netz gefunden und etwas erweitert...

[code]
Public Function EmailPruefen(feld As String) As Integer
'Funktion gibt 0 oder 1 zurück
Dim Form As Object 'Haupt- oder Unterformaular
Set Form = Forms(Screen.ActiveForm.Name) 'Oder welches Formular das auch immer ist

'Prüfung ob es sich um eine gültige Mailadresse handelt.
Dim Ch As String * 1, I As Long, Ats As Long, Periods As Long
Dim LeftofAt As Boolean, IsLeading As Boolean, gueltig As Boolean

LeftofAt = True
IsLeading = True
gueltig = True
Periods = 0
Ats = 0

EmailPruefen = 0
Set bezfeld = Form("Bez_" & feld)

If (Form(feld) <> "") Then
For I = 1 To Len(Form(feld))
Select Case Asc(Mid(Form(feld), I, 1))
Case Asc("@")
Ats = Ats + 1
' links vom "@" muss wenigstens ein Zeichen sein:
If I = 1 Then
gueltig = False
Exit For
End If
' nur ein "@" erlaubt:
If Ats > 1 Then
gueltig = False
Exit For
End If
LeftofAt = False
IsLeading = True
Case Asc(".")
' Punkte rechts vom "@" zählen:
If Not LeftofAt Then Periods = Periods + 1
' Top Level Domain hat weniger als 2 Zeichen:
If I > Len(Form(feld)) - 2 Then
gueltig = False
Exit For
End If
Case Asc("A") To Asc("Z"), Asc("a") To Asc("z"), Asc("0") To Asc("9")
IsLeading = False
Case Asc("-")
' kein führendes "-" erlaubt:
If IsLeading Then
gueltig = False
Exit For
End If
Case Asc("_")
' "_" nur links vom "@" erlaubt:
If IsLeading Or Not LeftofAt Then
gueltig = False
Exit For
End If
Case Else
' andere Zeichen sind nicht zulässig:
gueltig = False
Exit For
End Select
Next

'Ein Punkt muss in den Letzten fünf Stellen vorhanden sein!
If InStr(Len(Form(feld)) - 5, Form(feld), ".") = 0 Or InStr(Form(feld), "@") = 0 Then
gueltig = False
End If

If (gueltig = True) Then
EmailPruefen = 0
Else
MsgBox "Kein gültiges Mail-Format!"
EmailPruefen = 1
End If
End If

End Function
[/code]

HTH
MK
Bitte warten ..
Mitglied: IngChris
14.04.2011 um 20:10 Uhr
Zitat von MrTrebron:
Hallo IngChris

guckst du hier

Gruß
Norbert

Hallo,

Vielen Dank, genau sowas hab´ ich gesucht...

LG IngChris
Bitte warten ..
Mitglied: IngChris
14.04.2011 um 20:14 Uhr
Hallo,

vielen Dank auch für diesen Tipp.

Vorerst finde ich mit dem Tipp von Mr. Trebron das Auslangen...

Deine Version ist ja doch etwas komplexer, werde ich mir u.U. für die nächste Ausbaustufe ansehen.

LG Ing Chris
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Email-Adresse aus Adressbuch-String in Excel 2010 herausschneiden

gelöst Frage von rudeboyMicrosoft Office4 Kommentare

Hallo zusammen, habe unser Adressbuch (GAL) nach Excel 2010 exportiert und liegt nun im Format "Nachname, Vorname (Vorname.Nachname@domain.com)" vor. ...

Exchange Server

Exchange 2010 - Sammel-eMail Adresse anlegen

gelöst Frage von staybbExchange Server3 Kommentare

Hallo, wie geht man auf einem Exchange 2010 vor wenn man eine eMail Adresse einrichten möchte, welche als Sammelstelle ...

Windows Server

Nutzeranmeldung an einer Domäne mit "Email-Adresse"

gelöst Frage von Daniel0705Windows Server2 Kommentare

Hallo liebe Administratoren, seit längerem bin ich immer nur "stiller" Mitleser und konnte dadurch schon viele Probleme in Eigenregie ...

Exchange Server

Nach eingehender eMail Adresse suchen

Frage von staybbExchange Server4 Kommentare

Hallo, wir nutzen Exchange 2003 im Verbund eines POPcon-Connectors der eingehende eMails von einem postfix Server abruft. Nun gibt ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 6 StundenWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 6 StundenSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Viren und Trojaner
Neue Avira Management Console Egosecure
Information von OSelbeck vor 1 TagViren und Trojaner1 Kommentar

Hallöchen zusammen, ich weiß nicht, wer von euch noch Avira einsetzt Wir haben ein paar Kunden Avira hatte ja ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 1 TagDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Heiß diskutierte Inhalte
Exchange Server
Exchange Postfach Einbindung Betriebs-rat -Arzt, Bewerbung .
Frage von YellowcakeExchange Server15 Kommentare

Hey ich habe da mal eine Denksport Aufgabe bekommen Genutzt wird ein Exchange Server 2010. hier gibt es den ...

Datenschutz
Telematikinfrastruktur Erfahrungsaustausch
Frage von MOS6581Datenschutz12 Kommentare

Moin, unter meinen Kunden befinden sich auch einige Ärzte, welche sich künftig mit der Telematikinfrastruktur-Geschichte der Gematik herumärgern dürfen. ...

Windows Server
Delgegierte OU via RDP verwalten - Objektverwaltung zuweisen
gelöst Frage von TOAOICEWindows Server12 Kommentare

Hallo, ich habe folgendes Problem. Ich möchte in meiner Domäne (Server2016), einer Gruppe (OUAdmin) Berechtigungen auf die OU Test ...

Windows Server
Downgrade von Windows Server 2016 auf 2012 - Wie vorgehen?
Frage von EstefaniaWindows Server12 Kommentare

Guten Ich habe eine Frage an Erfahrene unter euch. Durch einen InPlace Upgrade wurde Windows Server 2012 auf die ...