Clever-Excel-Forum

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

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

KS20

nitrosworld