Hyperlink in Email
09.11.2015 20:02:58
Sebastian
ich wollt durch einen Button eine Email generieren. In der Email soll ein Hyperlink (unterstrichen und blau) sein wodurch der Empfänger der Email(Microsoft Outlook) durch draufklicken auf eine Excell Datei gebracht werden soll. Ist sowas überhaupt möglich?
Hier ein Teil meines Codes. Danke im Vorraus.
Private Sub CommandButton1_Click()
Dim objApp As Object
Dim objMailItem As Object
Set objApp = CreateObject("Outlook.Application")
Set objMailItem = objApp.CreateItem(0)
With objMailItem
.GetInspector
.To = "max.mustermann@muster.de"
.Subject = "Anfrage"
.Body = "Hallo," & vbCr & "Danke." & vbCrLf & .Body
'Hyperlink mit Ordnerpfad
.Display
End With
Set objMailItem = Nothing
Set objApp = Nothing
End Sub
Anzeige