E-Mail mit ausgewähltem Absender.

Hallo
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

Über Hilfe und eine Lösung wäre ich Dankbar.

Dein Konto heisst aber nicht "Kontoname". Statt "Kontoname" musst Du den Namen Deines Kontos angeben wie er in Outlook angezeigt wird.
Versuch mal:

Sub Emailtest()
Dim olApp As Object
Dim olOldBody As String

Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
              .GetInspector.Display
          Set .SendUsingAccount = .Session.Accounts.Item("Kontoname")
              olOldBody = .htmlBody
              .to = "empfängerqserver.de"
              .Subject = "Test"
              .htmlBody = "Hallo,<br><br>ist nur ein Test<br><br><br>" & olOldBody
    End With
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

E-Mail mit ausgewähltem Absender.

Forumthread: E-Mail mit ausgewähltem Absender.

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial