Schönen guten Tag zusammen,

ich bin am verzweifeln und bräuchte bitte eure Hilfe.

Ich habe mehrere Markos laufen in denen aus einer Excel-Datei eine PDF generiert und diese in eine Email mit Text angehängt wird.
Hierzu nutze ich .SentOnBehalfOfName was einwandfrei funktioniert.

Nun habe ich einen Code über den eine bestimmte Range kopiert und in eine Email als Bild mit Text eingefügt wird.
Der Code läuft auch super durch. Allerdings wird immer als Absender mein persönliches "Hauptpostfach" hinterlegt.
Das wollte ich eigentlich durch Nutzung des .SentOnBehalfOfName wie bei dem Mail-PDF-Code vermeiden, da die Mail aus einem zentralen Mitarbeiter-Postfach versendet wird. Das klappt aus irgendeinem Grund allerdings nicht.

Hier der Code:

Sub Kunde1()
'On Error GoTo err:

start:
APP_enable False
Application.ScreenUpdating = False
Application.DisplayAlerts = False


Dim rngBereich1 As Range
Dim objOut As Object
Dim objMail As Object
Dim wdDoc As Word.Document
Dim Text As String

Set rngBereich1 = Tabelle9.Range("B5:T23")

rngBereich1.CopyPicture Appearance:=xlScreen, Format:=xlPicture

Set objOut = CreateObject("Outlook.Application")
Set objMail = objOut.CreateItem(0)
Set wdDoc = objMail.GetInspector.WordEditor

With objMail

.cc = "email-Adresse"
.To = "email-Adresse"
.Recipients.ResolveAll
.Subject = "Betreff"
.Display
.SentOnBehalfOfName = "wähle bitte das Postfach xyz aus"

End With




With wdDoc.Content

wdDoc.Range.PasteAndFormat Type:=wdChartPicture

Dim Grafik As Object
For Each Grafik In wdDoc.InlineShapes
Grafik.ScaleHeight = 100
Grafik.ScaleWidth = 100
Next


.InsertBefore Tabelle9.Range("Text1").Value & vbCr & vbCr & _
"xxxxxxxxxxxxxxxxxxxxxxxxx." & vbCr & vbCr & _
Tabelle9.Range("Text5").Value & vbCr

.InsertAfter vbCr & vbCr & _
"xxxxxxxxxxxxxxxxxxxxxxxxx" & vbCr & vbCr

End With

Set objMail = Nothing
Set objOut = Nothing

APP_enable True
Exit Sub

End Sub


Lieben Dank für Eure Unterstützung!

VG Alex