Hallo zusammen
Kann mir jemand helfen, wie ich den Absender in einer E-Mail (Outlook) ändern kann?
Ich habe schon sehr lange im Internet recherchiert, jedoch keine funktionierende Lösung gefunden, wie ich den Absender wechseln kann.
Das E-Mail kann ich inkl. meinen gewünschten Angaben erstellen. (siehe https://www.herber.de/bbs/user/145698.xlsm)
Folgende Formel habe ich nun und bereits 3 Varianten aus dem Internet versucht:
<pre>Sub EMail()
Dim outl As Object
Dim Mail As Object
'On Error Resume Next
'E-Mail erstellen
Set outl = CreateObject("outlook.application")
Set Mail = outl.CreateItem(0)
With Mail
.GetInspector.display
strOldBody = .htmlBody
'********************* hier komme ich nicht weiter **********************************************************
'Absender
'Variante 1
' .SentOnBehalfOfName = Sheets("Tabelle1").Range("C3")
'Variante 2
' Set .SentOnBehalfOfName = Sheets("Tabelle1").Range("C3")
'Variante 3
Dim objAccount 'As Account
For Each objAccount In outl.Session.Accounts
If objAccount.SmtpAddress Like Sheets("Tabelle1").Range("C3") Then
' Debug.Print objAccount
Set Mail.SendUsingAccount = objAccount
Exit For
End If
Next
'****************************************************************************************************************
'Empfänger pro E-Mail
.To = "muster@mustermail1.com, muster@mustermail4.com"
.bcc = "muster@mustermail2.com"
.cc = "muster@mustermail3.com"
'Betrifft
.Subject = "Musterbetrifft"
'E-Mailtext
.htmlBody = "<p style='font-family:Arial;font-size:13'>" & _
"Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod" & _
"tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero" & _
"eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea" & _
"takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur" & _
"sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna" & _
"aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea" & _
"rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet." _
& strOldBody
'Anhang
.Attachments.Add ThisWorkbook.FullName
'Mail anzeigen
.display
End With
End Sub</pre>
https://www.herber.de/bbs/user/145698.xlsm