BorlandTalk.com

Peter Brause · Guest

Hi,
I get a warning message from Outlook though I use Redemption. I have OL2003
and am using a POP3/SMTP transport and a PST file as a message store.
Here is my code:
procedure TForm1.Button1Click(Sender: TObject);
var
myOlApp, myNameSpace, myFolder, myItem, SafeItem, myRecipient, myUtils :
OleVariant;
const
olApplication = 'Outlook.Application';
olFolderOutbox = 4;
begin
try
myOlApp := CreateOleObject(olApplication);
myNameSpace := myOlApp.GetNamespace('MAPI');
OleVariant(myNameSpace).Logon;
myFolder := myNameSpace.GetDefaultFolder(olFolderOutbox);
myItem := myFolder.Items.Add;
myItem.Subject := 'Subject';
myItem.Body := 'xxx';
SafeItem := CreateOleObject('Redemption.SafeMailItem');
SafeItem.Item := myItem;
myRecipient := SafeItem.Recipients.Add('echo (AT) tu-berlin (DOT) de');
myItem:=myItem.Move(myFolder);
myItem:=myItem.Send;
myUtils := CreateOleObject('Redemption.MAPIUtils');
myUtils.DeliverNow;
finally
myOlApp := unassigned;
myNameSpace := unassigned;
myFolder := unassigned;
myItem := unassigned;
SafeItem := unassigned;
myRecipient := unassigned;
myUtils := unassigned;
end;
end;

How to get rid of the warning message?
Peter