13.09.2019, 12:59
Hallo Ihr Lieben,
ich habe ein Problem und benötige eure Hilfe.
Ich versende per Mail eine Datei. Der empfänger soll den Anhang öffnen, direkt ausfüllen
und über einen Button zurück senden. Leider kommt die Mail immer ohne den eingefügten
Inhalt zurück.
Hier mein Code:
Was muss ich ändern? Möglichst sollte die Datei nicht erst auf der Festplatte gespeichert werden müssen.
(So als ob man direkt in Excel auf "Datei --> Freigeben --> per E-Mail senden" klickt)
Danke euch vorab
ich habe ein Problem und benötige eure Hilfe.
Ich versende per Mail eine Datei. Der empfänger soll den Anhang öffnen, direkt ausfüllen
und über einen Button zurück senden. Leider kommt die Mail immer ohne den eingefügten
Inhalt zurück.
Hier mein Code:
Code:
Sub MailSenden_click()
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
Dim objMail As Object
Set objMail = objOutlook.CreateItem(0)
Dim Anhang As String
Anhang = ThisWorkbook.FullName
With objMail
.GetInspector
.To = "TEST@MAIL.de"
.Subject = Sheets("TEST").Range("A3")
.Body = "Hallo zusammen,"
.Display
.Attachments.Add Anhang
End With
End Sub
Was muss ich ändern? Möglichst sollte die Datei nicht erst auf der Festplatte gespeichert werden müssen.
(So als ob man direkt in Excel auf "Datei --> Freigeben --> per E-Mail senden" klickt)
Danke euch vorab
