How to check for unsent email
Falk0ner, вс, 06/07/2008 - 15:35.
var
Outbox: MAPIFolder;
UnsentMail: integer;
...
Outbox := NmSpace.GetDefaultFolder(olFolderOutbox);
UnsentMail := Outbox.Items.Count;
if (UnsentMail > 0) then
ShowMessage(Format('Unsent items in Outbox: %d', [UnsentMail]));
The constant olFolderOutbox is defined in Outlook_TLB as $00000004
Outbox: MAPIFolder;
UnsentMail: integer;
...
Outbox := NmSpace.GetDefaultFolder(olFolderOutbox);
UnsentMail := Outbox.Items.Count;
if (UnsentMail > 0) then
ShowMessage(Format('Unsent items in Outbox: %d', [UnsentMail]));
Отправить комментарий