ich schreibe gerade ein Formular und benötige dabei für spätere Antworten die E-Mail Adresse desjenigen der das Formular ausgefüllt und somit auch an mich gesendet hat. Habe dazu leider keine Antworten gefunden. :(
Habt ihr da ne Idee?
Sub MailSenden()
Dim olApp As Object
Dim olOldBody As String
Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlBody
.To = "carsten.asdf@xxx.yy"
.Subject = "Testformular"
.Body = "Das ist eine e-Mail" & Chr(13) & _
"Viele Grüße..." & Chr(13) & Chr(13)
.Attachments.Add "C:\Users\" & Environ$("USERNAME") & "\Desktop\" & "CSV-Export.csv"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Kill "C:\Users\" & Environ$("USERNAME") & "\Desktop\" & "CSV-Export.csv"
End Sub
So sieht das Makro zum Senden der Email aus.Ich möchte das der Absender in eine Zelle geschrieben wird. z.b. Sheet(1) Range("A100")
Vielen dank!:)