Entwürfe mit Outlook 2002 versenden

Vb6Franz · Mar 1, 2008

Hi!
Ich möchte ca. 200 bis 300 Mails aus dem Ordner Entwürfe versenden, möglichst in einem Rutsch oder zumindest in Paketen von jeweils ca. 10 Mails.
Welcher Ansatz ist vermutlich am zielführendsten?
Eine VB-Programmierung dierekt in Outlook 2002 oder auslesen der Mails in VB6 und in einer Schleife senden.
Letzteres habe ich probiert, das Auslesen funktioniert, aber das Senden funktioniert noch nicht, Fehler: ...Die Aufgabe wurde vor Abschluss abgebrochen.

Private Sub CmdTest_Click()
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myOldFolder As MAPIFolder
Dim myFolder As MAPIFolder
Dim oItem As Outlook.MailItem
Dim lCnt As Long
Dim lA As Long
Dim TimeOut As Long

Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderDrafts)
lCnt = myFolder.Items.Count 'Wieviel Entwürfe sind vorhanden?
DoEvents
For lA = lCnt To 1 Step -1 'Mails in umgekehrter Reihenfolge auslesen
TimeOut = (GetTickCount / 1000) + 3
Set oItem = myFolder.Items(lA) 'Mail bereitstellen
oItem.Send 'Mail senden
Do 'mindestens 3 sec warten, bis nächstes Mail gesendet wird
DoEvents
Loop Until TimeOut < (GetTickCount / 1000)
Next
Set myolApp = Nothing
End
End Sub
Click to expand...

VB6 verwende ich desshalb, weil Vorlagen programmatisch mit Daten aus einer DB verfollständigt werden und ev. noch vom User ergänzt werden müssen. Die Empfänger der Mails sollen diese möglichst gleichzeitig erhalten, deshalb das Zwischenlager in Entwürfe.
Ich bin neu in der Outlook-programmierung.

Bitte um Anregungen, danke.
Franz

Log in or Sign up

Entwürfe mit Outlook 2002 versenden

Vb6Franz ROM

Share This Page