Ablage der Mail in gesendet-Ordner des abweichenden Mailabsenders über Excel
Hallo zusammen,
grundsätzlich ist mir klar wie ich eine Mail aus Excel heraus versenden kann.
Um eine abweichende EMail-Adresse als die eigene nutzen zu können gibbet so einen kleinen Codeblock mit SentOnBehalfOfName
Klappt wunderbar, wenn in Cells(3,3) eine Mailadresse steht, aber was passiert?
Ich bin gegen den Exchange mit meinem Postfach Aximand@Musterfirma.de angemeldet und habe das Postfach Abweichung@Musterfirma.de in mein Outlook eingebunden. Vollzugriff auf das Postfach ist gegeben.
Wenn ich nun als Aximand über die Abweichung@Musterfirma.de versende, dann klappt das prizipiell fast perfekt. Mich stört halt ein wenig, dass die ausgehende Mail im "Gesendet-Ordner" von Aximand@Musterfirma.de liegt und nicht im "gesendet-Ordner" des Postfachs "Abweichung@Musterfirma.de".
Jetzt gibbet es in dem MailItem einen SaveSentMessageFolder ->FolderPath / FullFolderpath in dem halt "\\Aximand@Musterfirma.de\Gesendete Elemente" steht wenn ich strEmail überwache, bzw. mit
anzeigen lasse.
Ich kann dem Object aber keinen Wert zuweisen, weil schreibgeschützt. Damit funktioniert meine Idee wie unten nicht
With strEmail
If Tabelle1.Cells(3, 3).Value <> "" Then
.SentOnBehalfOfName = Tabelle1.Cells(3, 3).Value
..SaveSentMessageFolder.FolderPath= "\\" & Tabelle1.Cells(3, 3).Value & "\Gesendete Elemente"
Hat das schon mal jemand gelöst?
Grüße
A.
grundsätzlich ist mir klar wie ich eine Mail aus Excel heraus versenden kann.
Um eine abweichende EMail-Adresse als die eigene nutzen zu können gibbet so einen kleinen Codeblock mit SentOnBehalfOfName
...
Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0) '0=MailItem
...
With strEmail
If Tabelle1.Cells(3, 3).Value <> "" Then
.SentOnBehalfOfName = Tabelle1.Cells(3, 3).Value
Klappt wunderbar, wenn in Cells(3,3) eine Mailadresse steht, aber was passiert?
Ich bin gegen den Exchange mit meinem Postfach Aximand@Musterfirma.de angemeldet und habe das Postfach Abweichung@Musterfirma.de in mein Outlook eingebunden. Vollzugriff auf das Postfach ist gegeben.
Wenn ich nun als Aximand über die Abweichung@Musterfirma.de versende, dann klappt das prizipiell fast perfekt. Mich stört halt ein wenig, dass die ausgehende Mail im "Gesendet-Ordner" von Aximand@Musterfirma.de liegt und nicht im "gesendet-Ordner" des Postfachs "Abweichung@Musterfirma.de".
Jetzt gibbet es in dem MailItem einen SaveSentMessageFolder ->FolderPath / FullFolderpath in dem halt "\\Aximand@Musterfirma.de\Gesendete Elemente" steht wenn ich strEmail überwache, bzw. mit
MsgBox strEmail.SaveSentMessageFolder.FolderPath
Ich kann dem Object aber keinen Wert zuweisen, weil schreibgeschützt. Damit funktioniert meine Idee wie unten nicht
With strEmail
If Tabelle1.Cells(3, 3).Value <> "" Then
.SentOnBehalfOfName = Tabelle1.Cells(3, 3).Value
..SaveSentMessageFolder.FolderPath= "\\" & Tabelle1.Cells(3, 3).Value & "\Gesendete Elemente"
Hat das schon mal jemand gelöst?
Grüße
A.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 571429
Url: https://administrator.de/contentid/571429
Ausgedruckt am: 22.11.2024 um 07:11 Uhr
3 Kommentare
Neuester Kommentar
Moin,
das sollte hier dabei sein:
https://docs.microsoft.com/de-de/exchange/troubleshoot/shared-mailboxes/ ...
Grüße
das sollte hier dabei sein:
https://docs.microsoft.com/de-de/exchange/troubleshoot/shared-mailboxes/ ...
Grüße