"From" Adresse bei Vba Mailen mit Outlook
Reinhard
ich habe den nachstehenden Code zusammengebastelt, klappt bei mir gut, ich hab ja auch nur ein
Postfach.
D.h., bei mir ist meine Adresse bzw. die Rücksendeadresse für den Empfänger mit
.SentOnBehalfOfName = "huhu@eule.de"
korrekt.
Jetzt soll das aber bei jmd. laufen, der da wohl in einem netzwerk eine Art gemeinsames Postfach hat o.ä.
Ich zitiere mal:
"SendOnBehalfOfName ist falsch, dann wird die ausgehende Mail im eigenen Postfach statt in dem der
Shared Distribution Mailbox gespeichert. Kann vielleicht damit zusammenhängen, dass Du keine
verschiedenen Mailboxes hast, bei denen Du Mitglied der DistributionGroup bist.
Dann kommt dieser SendOnBehalfOfName. Wenn der Empfänger dann auf Antworten klickt, kommt die
Mail auch nur bei dem Sender an nicht in der Shared Mailbox"
Wie kann man das anpassen daß es da klappt?
Wie heißt das auf Deutsch sodaß ich da im Internet suchen kann. Hat so ein gemeinses Mailfach einen Namen wie "Posteingang" o.ä.?
Danke & Gruß
Reinhard
Sub Mailen()
Dim olapp As Object, aws As String
Application.DisplayAlerts = False
With ActiveWorkbook
.Save
'optional anzuhängende Datei samt Pfad
aws = .FullName
'Outlook ansprechen
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.SentOnBehalfOfName = "huhu@eule.de"
'optional Empfängeradresse
.To = "empfänger@server.de"
'optional Kopie an
.cc = "mail1@server.de,mail2@server.de,mail3@server.de"
'optional Blindkopie an
.bcc = "mail1@server.de,mail2@server.de,mail3@server.de"
'optional Betreff
.Subject = "Mein Betreff"
'optional Text
.HtmlBody = "Mein Textinhalt"
'optional Lesebestätigung anfordern
.ReadReceiptRequested = True
'optional mailanhangsDatei
.Attachments.Add aws
'Mail anschauen
.Display
'Mail senden
'.Send
'optional Datei löschen auf Festplatte
'Kill aws
End With
End With
Set olapp = Nothing
Application.DisplayAlerts = True
End Sub
Anzeige