Axel.Korte

Guten Abend, ich habe, dank Ihrer aller Hilfe das Problem lösen können. Hier der korrekte Code, falls jemand auf ein ähnliches Problem stößt: Dim objOutlook As Outlook.Application Dim objMail As Outlook.MailItem Dim objAccount As Outlook.Account Set objOutlook = New Outlook.Application Set objMail = objOutlook.CreateItem(olMailItem) If Me.Absender <> "" Then For Each objAccount In objOutlook.Session.Accounts If objAccount.DisplayName = Me.Absender Then Exit For Set objAccount = Nothing Next objAccount Else Set objAccount = Nothing End If With objMail If Not objAccount Is Nothing Then .SendUsingAccount = objAccount Else MsgBox "Account ''" & Absender & "'' nicht gefunden.", vbCritical, "Hinweis" End If .Recipients.ADD Empfaenger(0) If Empfaenger(1) <> "" Then .CC = Empfaenger(1) If Empfaenger(2) <> "" Then .BCC = Empfaenger(2) .Subject = Me.Subject .BodyFormat = olFormatHTML .HTMLBody = Me.Mail .Display End With Interessant ist dabei, dass in .SendUsingAccout nicht die EMail-Adresse sondern die Bezeichnung des Kontos im Outlook steht. Vielen Dank nochmals und eine besinnliche Weihnachtszeit.

Danke für Deine Whiz-zarD Antwort. SenderEmailAddresse ist ein schreibgeschütztes Argument und daher ungeeignet. Danke auch für die Anworten von Rienne und Gottlike. Ich verstehe was Sie meinen und versuche das morgen umzusetzen.

Hallo und guten Abend, erstmals stehe ich vor einem VBA Problem und suche hier - hoffentlich erfolgreich - Hilfe. Ich möchte mit einem VBA-Script eine Mail an Outlook zur weiteren Bearbeitung übergeben. Bis auf die Übergabe der Absender-EMailadresse funktioniert alles. Hier mein Script: Dim objOutlook As Outlook.Application Dim objMail As Outlook.MailItem Dim objAccount As Outlook.Account Set objOutlook = New Outlook.Application Set objMail = objOutlook.CreateItem(olMailItem) With objMail .objAccount = Me.Absender ' Fehler 438 Objekt unterstützt diese Eigenschaft oder Methode nicht .Recipients.ADD Empfaenger(0) If Empfaenger(1) <> "" Then .CC = Empfaenger(1) If Empfaenger(2) <> "" Then .BCC = Empfaenger(2) .Subject = Me.Subject .BodyFormat = olFormatHTML .HTMLBody = Me.Mail .Display End With An der Rot-markierten Stelle kommt der Fehler 438 und ich weiß mir keinen Rat. In Me.Absender steht die EMail-Absenderadresse als String. Vielleicht hat ja schon jemand dieses Problem gelöst - hoffe ich - und kann mir helfen? Vielen Dank im Voraus. Axel Korte