Mails gesammelt versenden

13/08/2008 - 21:45 von Jörg Haberfellner | Report spam
Hallo Leute!

Ich komme bei folgendem Problem nicht recht weiter:
Von Access aus lasse ich individuelle Mails erstellen und lege diese
in den Ordner "Entwürfe" bzw. erst mal in irgendeinen beliebigen Ordner ab.
Da liegen jetzt - weis der Kuckuck - 10 Mails in dem Ordner, man kann sie
kurz durchklicken um zu sehen ob alles passt und dann möchte ich diese 10
Mails mit
einem Klick verschicken.

Wie geht das?

Ich verwende Outlook 2007

Danke schon einmal im voraus für Eure Hilfe

Jörg
 

Lesen sie die antworten

#1 Peter Marchert
13/08/2008 - 22:06 | Warnen spam
On 13 Aug., 21:45, Jörg Haberfellner
wrote:
Hallo Leute!



Hallo Jörg,

Ich komme bei folgendem Problem nicht recht weiter:
Von Access aus lasse ich individuelle Mails erstellen und lege diese
in den Ordner "Entwürfe" bzw. erst mal in irgendeinen beliebigen Ordner ab.
Da liegen jetzt - weis der Kuckuck - 10 Mails in dem Ordner, man kann sie
kurz durchklicken um zu sehen ob alles passt und dann möchte ich diese 10
Mails mit
einem Klick verschicken.

Wie geht das?



Um den Postausgang zu leeren, verwende ich diesen Code:

Public Sub FlushOutBox()

Dim objOutbox As MAPIFolder
Dim objItem As Outlook.MailItem
Dim lngItems As Long

Set objOutbox = Outlook.Session.GetDefaultFolder(olFolderOutbox)

For lngItems = objOutbox.Items.Count To 1 Step -1
Set objItem = objOutbox.Items(lngItems)
objItem.Send
Next

Set objOutbox = Nothing
Set objItem = Nothing

End Sub

Gruß
Peter

Infos, Workshops & Software für
Outlook®: www.outlook-stuff.com

Ähnliche fragen