Bitte nicht hauen denn ich bin kein Entwickler,
Sub GetEMailAdresse (email As String)
Dim klammer As String
If ( ( Instr(email, "<")) = 0 And ( Instr(email, " ")) = 0 ) Then
email$ = Lcase(email$)
Else
klammer$ = Strrightback( email, "<",5 )
email$ = Lcase(Strleft( klammer$, ">",5 ))
If email$ = "" Then
Call MailError( "Datenfehler: E-Mail Adresse fehlerhaft! " )
errorstatus= True
Exit Sub
Else
Call doc.ReplaceItemValue("InternetAddress", email$)
End If
End If
End Sub
Die MailError und errrorstatus funktion mußt Du natürlich weglassen. Die verwende ich nur zur Kontrolle. Sicherlich gibt es bessere Methoden.