E-Mail Adressse Formatieren und Filtern

[immanuel]

Hallo Zusammen

Wie kann ich die E-Mailadresse formatieren, so dass nur hallo@hallo.ch steht und nicht noch der Name in den Hochkommas usw? Ich nehme an mit regex oder sonst einem Muster... Habt ihr gerade ein Beispiel für mich?

Grund: Ich bin momentan an einer Knudenverwaltungs DB, in welcher alle Mails (Mailthread) im Kundenkontalt angezeigt werden. Ich bediene mich dabei einer Mailthread View mit Kategorie auf das "From" Feld. Jedoch ist die From Formatierung nicht immer gleich, daher meine Frage. In der KundenDB habe ich eine Embedded View mit Single Category auf die E-Mailadresse des Kunden. Das geht gut, solange der Kunde nur eine E-Mailadresse hat. Tricky ist es mehrere Adressen zu verwalten. Ist dies eigentlich mit der single category via embedded viewmöglich? Oder kann ich nur nach einer E-Mailadresse filtern?

Denke und Gruss
Manuel

[heini_schwammerl]

Bitte nicht hauen denn ich bin kein Entwickler,

Code

 
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.

[immanuel]

Danke! Jetzt brauche ich den Code aber noch in der Formula Sprache, damit ich ihn für die View brauchen kann. Jemand hat doch sicher ein gutes Beispiel, oder?

Grüsse
Manuel

[heini_schwammerl]

@Name([ADDRESS821];Feldname) ??

[immanuel]

Genau! Herzlichen Dank!!!