Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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 ?

Frage Microsoft Microsoft Office

Mitglied: IngChris

IngChris (Level 1) - Jetzt verbinden

14.04.2011 um 11:29 Uhr, 8206 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
gelöst Email-Adresse aus Adressbuch-String in Excel 2010 herausschneiden (4)

Frage von rudeboy zum Thema Microsoft Office ...

Datenbanken
gelöst Access 2010 Fehler beim kompilieren (2)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
Access 2010 Entwicklung berechnen (1)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Microsoft Office
Access 2010 Kommastelle wird falsch angezeigt

Frage von tdkcbundi zum Thema Microsoft Office ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(8)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Userverwaltung
gelöst Nicht Admins erlauben Verknüpfungen zu löschen (17)

Frage von WinLiCLI zum Thema Windows Userverwaltung ...

Windows Update
gelöst WSUS Produkte weiter einschränken (11)

Frage von thaefliger zum Thema Windows Update ...