Code: Mappe per outlook als mail an Verteilerliste

Forumthread: Code: Mappe per outlook als mail an Verteilerliste
4 Beiträge zu diesem Forumthread
Anzeige
301 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

13.08.2005 13:09:32

Martin

Hallo,
ich möchte meine aktive Arbeitsmappe per outlook als mail verschicken.
ich habe aus einem Forum die Lösung:
ActiveWorkbook.SendMail Array("a@b.de", "c@b.de", "d@b.de")
Jetzt würde ich gerne eine Verteilerliste aus Outlook verwenden da die Verteilerliste recht lang ist und oft verändert wird. Einfach den Namen eingeben klappt natürlich nicht. Kennt jemand den Code dafür?
Wäre mir eine große Hilfe!
Danke
Martin
P.S.: ich habe diese Frage auch in einem anderem Forum gestellt, dies aber vor 4 Tagen und dort konnte mir leider keiner helfen, also hoffentlich kein "crossposting", danke für das Verständnis.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code: Mappe per outlook als mail an Verteilerl

13.08.2005 16:59:00

Rene
AW: Code: Mappe per outlook als mail an Verteilerl

13.08.2005 17:57:19

martin
Weiß jemand Rat? Oder einen Tipp wo zu suchen?

16.08.2005 23:57:20

martin
AW: Weiß jemand Rat? Oder einen Tipp wo zu suchen?

17.08.2005 10:27:36

Rene

AW: Code: Mappe per outlook als mail an Verteilerl

13.08.2005 16:59:00

Rene

Hi,
Du hast die Verteilerliste in deinem Outlook schon anglegt?
gruss René
Bitte Rückmeldung

AW: Code: Mappe per outlook als mail an Verteilerl

13.08.2005 17:57:19

martin

Hallo,
ja, der Verteiler ist schon angelegt.
Grüße
Martin

Weiß jemand Rat? Oder einen Tipp wo zu suchen?

16.08.2005 23:57:20

martin

Hallo,
ich suche immer noch den Befehl um per Vba eine Mail per Outlook an einen in Outlook bereits angelegten Verteiler zu schicken. Also nicht über die Array Funktion mehrere Adresse in den Code zu tippen. Die Adresse a@b.de müsste doch auch in der Outlook-Sprache
durch eine Verteilerliste ersetzt werden können?
Ich habe schon viel gesucht und leider nichts gefunden. Kennt jemand ein Codebook in dem ich sowas finden könnte? Würde mir viel Arbeit sparen. Ich habe es auch schon im Outlook foren ergebnislos versucht.
Danke
Martin

AW: Weiß jemand Rat? Oder einen Tipp wo zu suchen?

17.08.2005 10:27:36

Rene

Hi,
versuchs mal damit


Sub Verteiler_senden()
' Erst muss der Veteiler in Outlook angelegt sein, hier heißt er "meinprivaterverteiler" '
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "meinprivaterverteiler" ' Der Name deines Verteilers
.Subject = "Weiterleiten: Mappe4" ' Irgendein Titel
.Message = ""   ' Irgendein Mailtext
'        .Delivery = xlOneAfterAnother ' Die Datei an einen nach dem anderen senden
.Delivery = xlAllAtOnce ' oder an alle gleichzeitig
.ReturnWhenDone = True ' nach Bearbeitungsende zurücksenden, wenn nicht dann "false"
.TrackStatus = False ' Keine Nachverfolgung, sonst true
End With
ActiveWorkbook.Route
End Sub

leider bekommst du trotzdem noch zwei Warnmeldungen und musst am ende in Outlook nochmal senden drücken.
Irgendwie kann man das auch abstellen.
Da musst du noch mal rumprobieren.
gruss René
Bitte Rückmeldung