E-Mail mit ausgewähltem Absender.
11.10.2017 14:33:25
Schildi
Es geht um Excel 2016. Das im Drop Down Auswahl fenster nicht aufgeführt ist.
Ich habe folgendes Problem:
Nach Update von Office 2007 auf Microsoft Office Professional Plus 2016 (32 bit) funktioniert mein E-Mail Makro nicht mehr einwandfrei. Bisher wurde als Absender das Standardkonto von Outlook ausgewählt. Jetzt wird aber meine Mailadresse die als Verbindung zum Officerkonto hinterlegt ist als Absender gewählt. Und mit keiner Funktion habe ich es geschafft den Absender nach meiner Wahl einzustellen. Je nach Anwendung soll ein anderer Absender und somit eine Antwort-Adresse gewählt werden können.
Jedoch in keinem Fall die Mailadresse mit der mein Officekonto verbunden ist.
Ich habe diverse Codes ausprobiert. Jedoch bei allen funktioniert der Absender nicht.
Weder SendUsingAccount noch SentOnBehalfOfName
Hier ist der letzte Code den ich getestet habe.
Alles andere funktioniert nur der Absender nicht
Sub EmailManuellAbsenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
'Hier soll der Absender eingestellt werden. Ein Konto das in Outlook vorhanden ist
.To = "deinname@deinedomain.de"
.Subject = "Betreff"
.Body = "Ihre Nachricht."
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend _
manuell vom User!
End With
End Sub