Email wird aus dem Pausausgang nicht versendet

[rich_x]

Hallo,

ich habe ein Programm geschrieben was E-Mails über Outlook 2003 versenden soll. Jetzt bin ich an dem Punkt angelangt, wo gleichzeitig mehrer Mails versendet werden sollen. Um den Sicherheitsdialog nicht x-mail zu bestätigen habe ich die Mails im Postausgang abgelegt und würde sie dann mit Senden\Empfangen verschicken.
Also für eine Mail habe ich folgendes verwendet

Delphi-Quellcode:

procedure senden;
var Outlook: TOutlookApplication;
    nspace: NameSpace;
    folder: MAPIFolder;
    maili : MailItem;
Begin
Outlook.Connect;
NmSpace := Outlook.GetNamespace('MAPI');
NmSpace.Logon('', '', False, False);
Folder := NmSpace.GetDefaultFolder(olFolderOutbox);
Folder.Display;
maili := Outlook.CreateItem(olMailItem) as MailItem;
maili.To_:='[e-mail]';
MI.Subject :='status '+ datumuhrzeit;
MI.Body := statusreport;
for j := 0 to listbox1.Items.Count - 1 do
MI.Attachments.Add(listbox1.Items.Strings[j], EmptyParam, EmptyParam, EmptyParam);
MI.Send;

Jetzt möchte ich das ganze für mehrere Mails machen und habe mir gedacht die Mails im Postausgang mit folgendem Code zwischen zu speichern

Delphi-Quellcode:

procedure senden;
var Outlook: TOutlookApplication;
    nspace: NameSpace;
    folder: MAPIFolder;
    maili : MailItem;
Begin
Outlook.Connect;
NmSpace := Outlook.GetNamespace('MAPI');
NmSpace.Logon('', '', False, False);
Folder := NmSpace.GetDefaultFolder(olFolderOutbox);
Folder.Display;
maili := Outlook.CreateItem(olMailItem) as MailItem;
maili.To_:='[e-mail]';
MI.Subject :='status '+ datumuhrzeit;
MI.Body := statusreport;
for j := 0 to listbox1.Items.Count - 1 do
MI.Attachments.Add(listbox1.Items.Strings[j], EmptyParam, EmptyParam, EmptyParam);
MI.Move(NmSpace.GetDefaultFolder(olFolderOutbox))

um anschließend senden\empfangen zu betätigen. Nach dem man aber senden\empfangen betätigt hat, bleiben die Mails im Postausgang ohne das sie versendet werden.

Ich danke ich Vorraus für die Hilfe