08.02.2017, 08:52
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
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