Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Absender E-Mail auslesen aus Outlook

Absender E-Mail auslesen aus Outlook
25.09.2017 16:11:30
Carsten
Hallo zusammen,
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!:)

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Absender E-Mail auslesen aus Outlook
26.09.2017 10:29:25
Carsten
Hier die Lösung für SMTP
Msgbox
CreateObject("Outlook.Application").GetNamespace("MAPI").Session.CurrentUser. _
AddressEntry.GetExchangeUser.PrimarySmtpAddress
Sonst

CreateObject("Outlook.Application").GetNamespace("MAPI").CurrentUser.Address

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige