<\/p>\n
Die üblichen Artikel über das Versenden von E-Mails über Outlook per VBA lassen meist unberücksichtigt, wie man den Absender einer E-Mail einstellen kann. Dies kann nicht durch einfaches Zuweisen der Absender-Adresse geschehen, da der Absender unter Outlook in einem Konto vorhanden sein muss. Die passende Eigenschaft heißt SendUsingAccount. Wie wir diese füllen, wie wir die verfügbaren Absender-E-Mail-Adressen ermitteln und welche Besonderheit bei Verwendung von Late Binding zu beachten sind, zeigen wir in diesem Beitrag.<\/b><\/p>\nAbsender in Outlook auswählen<\/h2>\n
Wenn Sie in Outlook eine neue E-Mail erstellen, können Sie aus den vorhandenen Konten die gewünschte Absenderadresse auswählen (siehe Bild 1).<\/p>\n
![\"E-Mail-Konten,](\"..\/fileadmin\/_temp_\/2023_05\/pic_1439_001.png\")
<\/p>\n
Bild 1: E-Mail-Konten, die als Absender eingestellt werden können<\/span><\/b><\/p>\n Wenn wir per VBA eine neue E-Mail erstellen, können wir zwar leicht den Empfänger, den Betreff, den Inhalt und andere Informationen zuweisen.<\/p>\n Wenn wir jedoch den Absender festlegen wollen, finden wir lediglich die Eigenschaft SendUsingAccount <\/b>vor.<\/p>\n Diese nimmt jedoch keine E-Mail in Form einer Zeichenkette entgegen, sondern erwartet ein Objekt des Typs Account<\/b>.<\/p>\n Also stellen wir im vorliegenden Beitrag ein Beispiel vor, mit dem Sie den gewünschten Absender auswählen und zuweisen können, sodass diese E-Mail vom entsprechenden Konto aus versendet werden kann.<\/p>\n Zu diesem Zweck haben wir ein Formular erstellt, mit dem wir die gängigen Daten einer E-Mail eingeben können. Hauptsächlich wollen wir damit aber den Absender auswählen können (siehe Bild 2).<\/p>\n Bild 2: Formular zum Erstellen von E-Mails<\/span><\/b><\/p>\n Damit uns beim Ausprobieren immer gleich ein paar Daten vorliegen, füllen wir die Felder beim Laden des Formulars mit der Prozedur aus Listing 1. Hier stellen wir insbesondere für das Kombinationsfeld zur Auswahl des Absenders die Eigenschaft Herkunftsart <\/b>(RowSourceType<\/b>) auf Wertliste <\/b>ein (Value List<\/b>).<\/p>\n Listing 1: Füllen der Formularfelder beim Öffnen des Formulars<\/span><\/b><\/p>\n Außerdem weisen wir der Eigenschaft Datensatzherkunft <\/b>das Ergebnis einer Funktion namens AbsenderEinlesen <\/b>zu und wählen direkt den ersten Eintrag als Standardwert aus.<\/p>\n Damit wir beim Programmieren der Outlook-Elemente die Vorteile von Early Binding wie IntelliSense nutzen können, fügen wir dem VBA-Projekt über den Verweise<\/b>-Dialog (Extras|Verweise<\/b>) einen Verweis auf die Bibliothek Microsoft Outlook x.0 Object Library <\/b>hinzu (siehe Bild 3).<\/p>\n Bild 3: Verweis auf die Outlook-Objektbibliothek<\/span><\/b><\/p>\n Outlook bietet mit Accounts <\/b>eine Auflistung an, die alle Konten der lokalen Outlook-Instanz enthält – unabhängig davon, ob diese in einer .pst<\/b>-Datei liegen oder auf mehrere verteilt sind. Die Accounts<\/b>-Auflistung durchlaufen wir in der Prozedur aus Listing 2 und weisen das aktuelle Objekt jeweils der Variablen objAccount <\/b>zu. Dieses liefert mit der Eigenschaft SmtpAddress <\/b>die E-Mail-Adresse, die wir als Absenderadresse nutzen können.<\/p>\n Listing 2: Einlesen einer Liste der möglichen Absenderadressen<\/span><\/b><\/p>\n [<\/p>\n In der Schleife hängen wir die E-Mail-Adressen aller Elemente in einer String<\/b>-Variablen namens strAccounts <\/b>hintereinander und trennen diese jeweils durch ein Semikolon. Dann geben wir diese Zeichenkette als Funktionsergebnis zurück. Auf diese Weise können wir mit dem Kombinationsfeld eine der Absenderadressen der verschiedenen Konten auswählen.<\/p>\n Mit der Schaltfläche cmdEMailAnzeigen <\/b>wollen wir eine neue E-Mail erstellen und sie mit den im Formular angegebenen Daten füllen, bevor wir die E-Mail in Outlook anzeigen (siehe Listing 3).<\/p>\n Listing 3: Anzeigen der erstellten E-Mail<\/span><\/b><\/p>\n Die Prozedur erstellt eine neue Outlook-Instanz oder setzt einen Verweis auf die eventuell bereits bestehende Instanz. Dann legt sie mit der CreateItem<\/b>-Methode und dem Parameter olMailItem <\/b>ein neues MailItem<\/b>-Objekt an. Diesem weisen wir anschließend zunächst die in den Textfeldern enthaltenen Werte zu. Dann wird es spannend, wenn wir den Absender festlegen wollen. Die dazu verwendete Eigenschaft SendUsingAccount <\/b>erwartet ein Objekt des Typs Account <\/b>als Wert, sodass wir nicht einfach die E-Mail-Adresse für den Absender zuweisen können. Wir müssen zuvor das Account<\/b>-Objekt zu der E-Mail-Adresse ermitteln, die aktuell im Kombinationsfeld cboVon <\/b>ausgewählt ist.<\/p>\n Dies erledigen wir mit der Funktion AccountHolen<\/b>, die wir weiter unten beschreiben. Diese erwartet zwei Parameter:<\/p>\n Die Funktion liefert einen Boolean<\/b>-Rückgabewert, der angibt, ob die Funktion erfolgreich aufgerufen wurde und objAccount <\/b>gefüllt wurde. Diesen prüfen wir beim Aufruf. Lautet der Rückgabewert auf True<\/b>, weisen wir den Inhalt von objAccount <\/b>der Eigenschaft SendUsingAccount <\/b>zu. Anderenfalls gibt die Prozedur cmdEMailAnzeigen_Click <\/b>eine Meldung aus, dass der Account nicht gefunden werden könnte.<\/p>\n Wenn dieser mit dem Kombinationsfeld cboVon <\/b>ausgewählt wurde, das aus der Accounts<\/b>-Auflistung gefüllt wurde, sollte dies immer funktionieren.<\/p>\n Nach dem Zuweisen der E-Mail-Informationen zeigt die Display<\/b>-Methode die neue E-Mail schließlich noch an.<\/p>\n Wenn die E-Mail direkt verschickt werden soll, können Sie statt der Display<\/b>-Methode die Send<\/b>-Methode verwenden.<\/p>\n Die Funktion AccountHolen <\/b>erstellt ein neues oder referenziert ein vorhandenes Outlook.Application<\/b>-Objekt (siehe Listing 4). Mit GetNamespace(„MAPI“) <\/b>holt es einen Verweis auf den MAPI-Namespace, der wiederum die Auflistung Accounts <\/b>bereitstellt. Die Elemente dieser Auflistung durchläuft die Prozedur in einer For Each<\/b>-Schleife.<\/p>\n Listing 4: Holen eines zu einer E-Mail-Adresse gehörenden Accounts<\/span><\/b><\/p>\n Dabei prüft sie für jedes Element, ob der Inhalt der Eigenschaft SmtpAddress <\/b>mit der mit strEMail <\/b>übergebenen E-Mail-Adresse übereinstimmt. Ist das der Fall, stellt sie AccountHolen <\/b>auf True <\/b>ein und verlässt die Funktion mit Exit Function<\/b>. Dadurch enthält der Parameter objAccount <\/b>einen Verweis auf das Account<\/b>-Objekt, das der angegebenen E-Mail-Adresse entspricht.<\/p>\n Profis dürften sich bereits gefragt haben, warum das Account<\/b>-Objekt ohne Verwendung des Set<\/b>-Schlüsselworts der Eigenschaft SendUsingAccount <\/b>übermittelt wurde.<\/p>\n Schließlich handelt es sich dabei um eine Objektvariable und nicht um eine Variable eines der Basisdatentypen wie String, Integer et cetera.<\/p>\n Also ändern wir die Zuweisung testweise wie folgt ab:<\/p>\n Das Debuggen funktioniert problemlos. Wenn wir die Prozedur aufrufen, erhalten wir allerdings die Fehlermeldung aus Bild 4.<\/p>\n Bild 4: Fehlermeldung bei Verwendung von Set<\/span><\/b><\/p>\n Richtig interessant wird dies, wenn wir die gleiche Prozedur unter Verwendung von Late Binding programmieren.<\/p>\n Mit Late Binding geben wir zwar die Möglichkeit der Verwendung von IntelliSense auf und können nicht die Konstanten aus der Outlook-Bibliothek nutzen.<\/p>\n Deshalb deklarieren wir die einzige von uns genutzte Konstante wie folgt:<\/p>\n Für die übrigen Elemente nehmen wir folgende Änderungen vor:<\/p>\n Die wichtigste Änderung ist jedoch die Zuweisung von objAccount<\/b> mit dem Set<\/b>-Schlüsselwort (siehe Listing 5). Was geschieht, wenn wir dies nicht machen? Es erfolgt schlicht keine neue Zuweisung an SendUsingAccount <\/b>und der standardmäßig eingestellt Wert wird verwendet.<\/p>\nBeispielformular<\/h2>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2023_05\/pic_1439_002.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n With<\/span> Me!cboVon\r\n .RowSourceType = \"Value List\"\r\n .RowSource = AbsenderEinlesen\r\n .Value = .ItemData(0)\r\n End With<\/span>\r\n Me!txtAn = Me!cboVon.ItemData(0)\r\n Me!txtBetreff = \"Beispiel-E-Mail\"\r\n Me!txtInhalt = \"Dies ist eine Beispiel-E-Mail.\"\r\nEnd Sub<\/span><\/pre>\nOutlook per VBA und Early Binding programmieren<\/h2>\n
![\"Verweis](\"..\/fileadmin\/_temp_\/2023_05\/pic_1439_004.png\")
<\/p>\nAbsender aus Outlook einlesen<\/h2>\n
Public Function <\/span>AbsenderEinlesen() As String<\/span>\r\n Dim <\/span>objOutlook As <\/span>Outlook.Application\r\n Dim <\/span>objMAPI As <\/span>Outlook.NameSpace\r\n Dim <\/span>objAccount As <\/span>Outlook.Account\r\n Dim <\/span>strAccounts As String<\/span>\r\n Set<\/span> objOutlook = New<\/span> Outlook.Application\r\n Set<\/span> objMAPI = objOutlook.GetNamespace(\"MAPI\")\r\n For Each objAccount In objMAPI.Accounts\r\n strAccounts = strAccounts & objAccount.DisplayName & \";\"\r\n Next<\/span> objAccount\r\n AbsenderEinlesen = strAccounts\r\nEnd Function<\/span><\/pre>\nAbsender für E-Mail einstellen<\/h2>\n
Private Sub <\/span>cmdEMailAnzeigen_Click()\r\n Dim <\/span>objOutlook As <\/span>Outlook.Application\r\n Dim <\/span>objMailItem As <\/span>Outlook.MailItem\r\n Dim <\/span>objAccount As <\/span>Outlook.Account\r\n Set<\/span> objOutlook = New<\/span> Outlook.Application\r\n Set<\/span> objMailItem = objOutlook.CreateItem(olMailItem)\r\n With<\/span> objMailItem\r\n .To = Me!txtAn\r\n .Subject = Me!txtBetreff\r\n .Body = Me!txtInhalt\r\n If <\/span>AccountHolen(Me!cboVon, objAccount) = True<\/span> Then<\/span>\r\n .SendUsingAccount = objAccount\r\n Else<\/span>\r\n MsgBox<\/span> \"Account zu ''\" & Me!cboVon & \"'' nicht gefunden.\", vbOKOnly + vbExclamation, \"Nicht gefunden\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n .Display\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
Account ermitteln<\/h2>\n
Public Function <\/span>AccountHolen(strEMail As String<\/span>, objAccount As <\/span>Outlook.Account) As Boolean<\/span>\r\n Dim <\/span>objOutlook As <\/span>Outlook.Application\r\n Dim <\/span>objMAPI As <\/span>Outlook.NameSpace\r\n Dim <\/span>strAccounts As String<\/span>\r\n Set<\/span> objOutlook = New<\/span> Outlook.Application\r\n Set<\/span> objMAPI = objOutlook.GetNamespace(\"MAPI\")\r\n For Each objAccount In objMAPI.Accounts\r\n If <\/span>objAccount.SmtpAddress = strEMail Then<\/span>\r\n AccountHolen = True<\/span>\r\n Exit Function<\/span>\r\n End If<\/span>\r\n Next<\/span> objAccount\r\nEnd Function<\/span><\/pre>\nObjektzuweisung ohne Set<\/h2>\n
Set<\/span> .SendUsingAccount = objAccount<\/pre>\n![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2023_05\/pic_1439_003.png\")
<\/p>\nProbleme bei Verwendung von Late Binding<\/h2>\n
Private <\/span>Const olMailItem As Long<\/span> = 0<\/pre>\n\n
Private Sub <\/span>cmdEMailAnzeigenLateBinding_Click()\r\n Dim <\/span>objOutlook As Object<\/span>\r\n Dim <\/span>objMailItem As Object<\/span>\r\n Dim <\/span>objAccount As Object<\/span>\r\n Set<\/span> objOutlook = CreateObject(\"Outlook.Application\")\r\n Set<\/span> objMailItem = objOutlook.CreateItem(olMailItem)\r\n With<\/span> objMailItem\r\n .To = Me!txtAn\r\n .Subject = Me!txtBetreff\r\n .Body = Me!txtInhalt\r\n If <\/span>AccountHolen(Me!cboVon, objAccount) = True<\/span> Then<\/span>\r\n Set<\/span> .SendUsingAccount = objAccount\r\n Else<\/span>\r\n MsgBox<\/span> \"Account zu ''\" & Me!cboVon & \"'' nicht gefunden.\", vbOKOnly + vbExclamation, \"Nicht gefunden\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n .Display\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n