hyperlink in mail

[KS20]

Hallo,

ich habe ein Makro, wo eine Mail automatisch mit bestimmten Inhalten verschickt wird.

nun möchte ich dass bei .Body automatisch der link eingefügt wird, wo diese Excel gespeichert ist. sodass jeder sofort draufklicken kann.

Sub test()
 On Error Resume Next
 Set olApp = CreateObject("Outlook.Application")
 With olApp.CreateItem(0)
 .display
 .To = ""
 .Subject = "0001 - " & Range("u1")
.Body = "Hallo," & vbCrLf & vbCrLf & "Fall ist eröffnet." & vbCrLf & vbCrLf & Range("u1") & vbCrLf & vbCrLf & "Gruß," & " " & vbCrLf & vbCrLf & Application.UserName
 End With
ChDrive "M"
ChDir ThisWorkbook.Path  'anpassen 'oder thisworkbook.path
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Erstinformation - " & Range("u1").Value, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    If isNew Then app.Quit
End Sub

hinter & vbCrLf & vbCrLf soll der Link von der Excel eingefügt werden

Danke

[nitrosworld]

Hallo,

ersetze mal diese Zeile

Code:

.Body = "Hallo," & vbCrLf & vbCrLf & "Fall ist eröffnet." & vbCrLf & vbCrLf & Range("u1") & vbCrLf & vbCrLf & "Gruß," & " " & vbCrLf & vbCrLf & Application.UserName

durch diese:

Code:

.HTMLBody = "Hallo," & "<br><br>" & "Fall ist eröffnet." & "<br><br>" & "<a href='" & Range("u1") & "'>" & "Link ExcelFile" & "</a>" & "<br><br>" & "Gruß," & " " & "<br><br>" & Application.UserName