E-mails mit mehreren Hyperlinks erstellen

[Mexi123]

Hallo zusammen,

ich hoffe, Ihr könnt mir helfen.

Ich erstelle über VBA eine E-mail, welche einen Hyperlink auf ein Verzeichnis enthält. Bisher gab es auch immer nur einen Hyperlink. Nun kann es aber sein, dass die E-mail
zwei oder drei Hyperlinks in einer E-mail enthalten muss. Allerdings nicht immer, je nachdem ob Daten auf dem Hyperlink vorhanden sind.

Hier der Code bisher:

Code (vb) [Auswählen] Erweitern


If DCount("*", "qryBericht_123") = 0 Then
   
Else
   
Call SendMail("mich@home.de", "Bericht 123"), "Es steht ein Bericht zur Verfügung:" & _
vbCrLf & "Verzeichnis: file://C:\Bericht123.pdf" & vbCrLf & vbCrLf & _
"Erstellt am" & Format$(Now(), " dd.mm.yyyy") & " um" & Format$(Now(), " hh:mm") & " Uhr")
   
End If


Meine Idee war, dass ich über eine Anfügeabfrage den / die jeweiligen Hyperlinks zunächst erstelle. Klappt natürlich auch ... jetzt komme ich aber nicht  weiter ...

Wie bekomme ich diese generierten Hyperlinks aus der Tabelle in den o.g. Code?

Viele Grüße und danke im voraus.

Mex

[Mexi123]

Hallo zusammen,

hab mich noch ein wenig angestrengt ...

Über die Aktualisierungsabfrage(n) Hyperlinks erstellen und in einer tbl temporär parken

Im Code folgendes verwenden:

Code (vb) [Auswählen] Erweitern


'Entfernen Codezeile
If DCount("*", "qryBericht_123") = 0 Then

'Vorarbeit
!tbl Inhalt deleten
+qry Aktualisierung laufen lassen

Wait 1000

'Einfügen
Dim strLink As String
strLink = DLookup("SpalteX", "tblTemp", "ID=1") & " " & DLookup("x", "tblTemp", "ID=2")

'CallSend
... Es stehen ... gegen strLink austauschen


So, der Rest ist über vbCrLf usw. zu hübschen.

Gruß

Mexi