Hallo,
ich habe wieder einmal eine Frage zu Access.
Ich habe in eine bestehende Datenbank eine Telefonliste (Excel) importiert, in der auch die eMail Adressen der einzelnen Personen stehen.
Das Feld „eMail“ wurde aus der Excel-Tabelle als Textfeld übergeben. Nach der Umwandlung in den Felddatentyp Hyperlink verwendet das Feld jetzt die Einstellung http:// + eMail Adresse.
Wie kann ich für das Feld den Eintrag http:// in mailto: ändern, damit ich das Feld entsprechend nutzen kann um auf Click ein eMail Formular zu adressieren?
If InStr(Me!MeinFeld, "@") \> 0 Then
If InStr(Me!MeinFeld, "#http") \> 0 Then
Me!MeinFeld = "#mailto:" & Mid(Me!MeinFeld, 1, InStr(Me!MeinFeld, "#http") - 1) & "#"
End If
End If
Besonders elegant ist das vielleicht nicht aber was besseres kenne ich auch nicht.
Public Function CStuff(ByVal strVal As String) As String
CStuff = Replace(strVal, "http://", "mailto:")
End Function
Hilft aber trotzdem nicht über die Tatsache hinweg, dass der Hyperlink dann ungültig wird. „mailto:“ ist nämlich kein URL-Hyperlink, sondern nur eine Microsoftimplemtierung, welche aber auch Netscape & Co. unterstützen. Der Hyperlink in Access (zumindest bei mir) geht nur auf URLs…
VG, Stefan.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]