Dateipfad als Link per Mail senden
21.07.2021 14:22:41
Alf
ich habe folgendes Problem: Ein Nutzer soll eine Excel-Datei bearbeiten und diese dann per Knopfdruck an einen vorgegebene, feste Mailadresse versendet werden. Dabei soll nicht die ganze Datei, sondern lediglich ein klickbarer Verweis in der Mail dargestellt werde. Quasi soll eine Verknüpfung gesendet werden. Bei der Suche im Archiv des Forums bin ich auf folgenden Code gestoßen:
Sub Mailversand()
Dim MyOutApp As Object
Dim MyMessage As Object
Set MyOutApp = CreateObject("Outlook.application")
Set MyMessage = MyOutApp.createitem(0)
With MyMessage
.To = "Max.Mustermann@Firma.com"
.cc = "Meine.Mailadresse@Firma.com"
.Subject = "Titel"
.Body = "Nachricht" & Chr(13) & "file:" & ThisWorkbook.FullName
.Display
'.Send
End With
Set MyMessage = Nothing
Set MyOutApp = Nothing
End Sub
Die Dateinamen ohne Leerzeichen zu verwenden ist leider keine Option.
Habt Ihr eine Idee, wie man den Code ggf. abändern kann, dass auch Dateinamen mit Leerzeichen als Link dargestellt werden?
Vielen Dank und viele Grüße
Alf