makro email mit hyperlink zu Datei/Orner

Question

Hallo,
im Monatsabschluss generiere ich Dateien die in Ordnern abgelegt werden. Danach benachrichtige ich diejenige die mit diesen Dateien arbeiten. Ich habe einen Makro das die Dateien abspeichert und einen das die Emails schreibt. Nur leider weiß ich nicht wie ich die Hyperlinks im email aktiv gestalte, also so dass wenn man diese anklickt dann wird man zu der Datei/Ordner direkt geleitet. Zur Zeit habe ich es nur so hingekriegt dass diese als ganz normaler Text erscheinen.
Danke für die Hilfe

Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = "Stock Report Update"
mail.To = "test@test.de"
mail.body = "Hi all," & Chr(13) & _
"stock reports have been updated: " & Chr(13) & _
"M:\FINANZ" & Chr(13) & _
"For corporate reporting:" & Chr(13) & _
"M:\FINANZ\Working Stock.xlsx" & Chr(13) & _
"Regards " & Chr(13) & _
Name & _
mail.Display

Answer 1

Hallo,

versuch es mal so:

Sub Mail()
Dim ol As Object
Dim Mail As Object

Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)

With Mail
.Subject = "Stock Report Update"
.To = "test@test.de"
.HTMLBody = "Hi all,<br>" & _
"stock reports have been updated: <br>" & _
"<a href=""M:\FINANZ\"">M:\FINANZ\</a><br>" & _
"For corporate reporting:<br>" & _
"<a href=""M:\FINANZ\Working Stock.xlsx"">Working Stock.xlsx</a><br><br>" & _
"Regards <br>" & _
Name & _
.Display
End With

End Sub

Gruß

M.O.