Hallo zusammen,
gerne würde ich via VBA in Kombination mit einem Microsoft Exchange Account eine Mail erstellen lassen, welche allerdings nicht von meinem persönlichen Mailaccount, sondern von einem Gruppenpostfach versendet werden soll. Alle Abhilfversuche und Recherchen haben mich leider nicht weitergebracht - überall heißt es, es sollte mit der Funktion .SentOnBehalfOfName funktionieren, was aber leider nicht der Fall ist. Hier deswegen der Auszug aus dem Sub:
Dim oApp As New Outlook.Application
Dim oMail As Outlook.MailItem
Dim Ins As Object
Dim wdDoc As Object
Dim wdRange As Object
Set oMail = oApp.CreateItem(olMailItem)
With oMail
.BodyFormat = olFormatHTML
.SentOnBehalfOfName = Range("F7")
.To = Range("F27")
.CC = Range("K14")
.Subject = Range("F3")
.HTMLBody = Range("K15") & Range("K16") & .HTMLBody
Set Ins = .GetInspector
Set wdDoc = Ins.WordEditor
Set wdRange = wdDoc.Range
wdRange.WholeStory
With wdRange
.Font.Size = "11"
End With
.Attachments.Add DateiName
.Display
End With
Danke im Voraus für Eure Hilfe!
|