Hallo zusammen,
ich habe da ein Problem, dass ich schon einige Zeit nicht gelöst bekomme.
In einer VBA-Programmierung möchte ich eine automatische Email erstellen. Da das Programm von unterschiedlichen Benutzern verwendet wird (alle Outlook) möchte ich gerne deren Erstelleradresse auslesen und in ein Sheet speichern.
Hier das Programm:
'______________________________________________
Sub Email()
Dim appOutlook As Outlook.Application
Dim MailItem As Outlook.MailItem
Set appOutlook = CreateObject("Outlook.Application")
Set MailItem = appOutlook.CreateItem(olMailItem)
MailItem.To = "test@test.de"
MailItem.Subject = "test"
MailItem.Body = "test"
MailItem.Display
ActiveWorkbook.Sheets("Tabelle1").Cells(1, 1) = MailItem.SenderEmailAddress
End Sub
'______________________________________________
Kann mir jemand erklären bzw. ein Lösung nennen, warum ich mit "MailItem.SenderEmailAddress" diese nicht in die Zelle des aktiven Sheets auslesen kann?
Zudem würde ich gerne noch wissen, ob man das Fenster von Outlook "Ein Programm versucht auf Outlook zuzugreifen..." deaktivieren kann.
Vielen Dank für Eure Unterstützung.
Gruß
Stefan
ich habe da ein Problem, dass ich schon einige Zeit nicht gelöst bekomme.
In einer VBA-Programmierung möchte ich eine automatische Email erstellen. Da das Programm von unterschiedlichen Benutzern verwendet wird (alle Outlook) möchte ich gerne deren Erstelleradresse auslesen und in ein Sheet speichern.
Hier das Programm:
'______________________________________________
Sub Email()
Dim appOutlook As Outlook.Application
Dim MailItem As Outlook.MailItem
Set appOutlook = CreateObject("Outlook.Application")
Set MailItem = appOutlook.CreateItem(olMailItem)
MailItem.To = "test@test.de"
MailItem.Subject = "test"
MailItem.Body = "test"
MailItem.Display
ActiveWorkbook.Sheets("Tabelle1").Cells(1, 1) = MailItem.SenderEmailAddress
End Sub
'______________________________________________
Kann mir jemand erklären bzw. ein Lösung nennen, warum ich mit "MailItem.SenderEmailAddress" diese nicht in die Zelle des aktiven Sheets auslesen kann?
Zudem würde ich gerne noch wissen, ob man das Fenster von Outlook "Ein Programm versucht auf Outlook zuzugreifen..." deaktivieren kann.
Vielen Dank für Eure Unterstützung.
Gruß
Stefan
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Stefan0815“ ()