Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Gelöst: Absender Email From einstellen in Outlook vba

 

Wenn man versucht mit Vba Makro einen Absender in einer Email in Outlook  einzustellen, dann führt das meistens zu einem Fehler.

Bisher habe ich noch keine Lösung im Internet gefunden.

Hier ist die Lösung, wie man einen Absender einstellen kann.

Man muss einen Loop durch die Outlook Account Adressen gehen und beim passenden Account den Account in die Email mit Set übernehmen.

 

   Dim objAccount 'As Account

   For Each objAccount In app_Outlook.Session.Accounts

      If objAccount.SmtpAddress Like sEmail_From Then

        Set objEmail.SendUsingAccount = objAccount

        Exit For

      End If

   Next

 

 

 

 

Folgend der richtige Code in vba

 

'< outlook >

'*Ohne Verweis

'*Outlook versionsunabhaengig, Late Binding

Dim app_Outlook As Object

Set app_Outlook = CreateObject("Outlook.Application")

    Dim objEmail As Object

Set objEmail = app_Outlook.CreateItem(0)

   

'    '*Mit Verweis

    '* bei Verwendung von Outlook mit Verweis Early Binding

'    Dim app_Outlook As Outlook.Application

'    Set app_Outlook = New Outlook.Application

'    Dim objEmail As MailItem

'    Set objEmail = app_Outlook.CreateItem(olMailItem)

   

   '</ outlook >

  

    '< Sender >

    Dim sEmail_From As String

sEmail_From = ActiveWorkbook.Names("varEmail_From").RefersToRange.Value2

 

Dim sName_From As String

sName_From = ActiveWorkbook.Names("varName_From").RefersToRange.Value2

 

'objEmail.SentOnBehalfOfName = sEmail_From

'objEmail.Session.Accounts(sEmail_From)

 

If Not sEmail_From Like "" Then

   Dim objAccount 'As Account

   For Each objAccount In app_Outlook.Session.Accounts

      If objAccount.SmtpAddress Like sEmail_From Then

        Set objEmail.SendUsingAccount = objAccount

        Exit For

      End If

   Next

End If

'</ Sender >

 

 

'--< Send Email >--

 

Mobile
»
Gelöst: Absender Email From einstellen in Outlook vba
»
Fehlercode 450 Beim Verwender des Code Email.Session.Accounts Email_From
»
vba Aus Excel ein Word Dokument lesen
»
Excel: RTF umschreiben zu HTML
»
Excel vba: RTF in HTML umwandeln
»
Feiertage und Ostern mit Excel berechnen
»
Excel : Zeilen löschen per vba Code
»
Excel: Umwandeln von Nummern, Datum und Uhrzeit in Text
»
Excel: Wandle Buchstaben in Ascii Zahlen um
»
Excel: Wandle Buchstaben in Ascii Zahlen um

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de