Office: (Office 2003) Einzelnes Feld soll Hyperlink-Formatierung haben

Dieser dein Link klappt tadellos.
Microsoft Outlook in einem Krankenhausnetzwerk.

Was seltsam ist: nimmt man beide Hyperlink-Eigenschaften weg, d.h. die des Feldes in der Tabelle und die des Feldes im Formular, mutiert der jeweilige Eintrag zu einer Art doppelten E-Mail-Adresse mit "http://" und "#" und ähnlichem. Sicher liegt hier der 'Hund begraben'.

Oder?

Gruß
Streethawk68
So sieht das dann aus:
mailto:kontakt@kzweiplus.de#http://kontakt@kzweiplus.de#

Fehlermeldung kam hinzu: Microsoft Office Access - http://horst.wolff@mail.aachen.de konnte nicht geöffnet werden. Die Internet-Website meldet, dass das angeforderte Element nicht gefunden werden konnte. (HTTP/1.0.404)

 

Versuch mal die HyperLink-Formatierung in der Tabelle zu entfernen und nur im Formular zu verwenden.

Ich bleibe dennoch dabei, dass ein Lösung per VBA sicherer und eleganter wäre/ist...

 

Hallo!

Ich habe nun mit diesen beides Prozeduren überflüssige Textteile wieder entfernt.

PHP:

         Sub FuerAlleDatensaetzeDurchfuehren()
Dim conn As New ADODB.Connection
Dim rst As ADODB.Recordset

Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

Dim strAusgangsstring As String
Dim intPos As Integer
Dim intLaenge As Integer
Dim intZ As Integer

On Error Resume Next

rst.Open "Haupttabelle", conn, adOpenKeyset, adLockOptimistic
Do Until rst.EOF
strAusgangsstring = rst("E-MAIL")
MsgBox strAusgangsstring
intPos = InStrRev(strAusgangsstring, "#")
intLaenge = Len(strAusgangsstring)
intLaenge = Len(strAusgangsstring) - intPos
rst("E-MAIL") = Left(strAusgangsstring, intPos - 1)
rst.Update
intZ = intZ + 1
rst.MoveNext
Loop
rst.Close

Debug.Print intZ

Set rst = Nothing
Set conn = Nothing
End Sub


 

Liebe Mituser!

Mit folgender Ereignisprozedur wollte ich erreichen, dass beim Klick auf die Schaltfläche der E-Mail-Client gestartet wird und die E-Mail-Addy dort schon eingetragen ist.

PHP:

         Private Sub FolgeEMail_Click()
Application.FollowHyperlink Me![E-MAIL].Value
End Sub


 

Hi,

setz da mal einen Haltepunkt (F9), und schau dir an, was im fraglichen Feld drinsteht, indem Du das markierst und mit Shift+F9 betrachtest.

Da sollte etwas drinstehen wie mailto:manni.muster@beispiel.de. Wenn ja, guck mal ob du einen Standardmailcient hast. Wenn nein, ist deine Adressreparatur fehlgeschlagen.

 

Kontext: einrichtungen.form_Formular01.FolgeEMail_Click
Ausdruck: Me![E-MAIL].Value
Wert: care.konzept@web.de
*Smilie
In der Ereignisprozedur ist der Befehl
MsgBox Me![E-MAIL].Value
enthalten. Er liefert die korrekte E-Mail-Adresse.
Ich habe einen Standardmailclient (Outlook).
Kann es auch an der Firewalleinstellung liegen?
Die Fehlermeldung hat die Nummer: Laufzeitfehler 490
Schreibt man manuell "mailto:" davor und klickt die Addy (nicht die cmdSchaltfläche), funktioniert es, Outlook öffnet sich mit Addy drin.

Das klappt:
---> DoCmd.SendObject , , , Me![E-MAIL].Value


Gruß
Streethawk68

 

wenn das mailto: nicht mehr mit im Email-Feld steht (was ich befürworte) muss das beim FollowHyperLink natürlich mitgegeben werden...
Code:

 

Jetzt klappt beides, vielen Dank!