BorlandTalk.com

Kim S · Guest

Every time I use the line that adds an attachment (MI.Attachments.Add)
my app fails with an error "eOleSysError Type Mismatch". What am I doing
wrong?
Regards,
Kim

procedure TTvMForm1.SendEmail;
const
olMailItem = 0;
var
Outlook, NmSpace: OleVariant;
MI: Variant;

begin
// Open default mailbox in Outlook
try
Outlook := GetActiveOleObject ('Outlook.Application');
except
Outlook := CreateOleObject ('Outlook.Application');
end;

NmSpace := Outlook.GetNamespace ('MAPI');
NmSpace.Logon (EmptyParam, EmptyParam, False, True);

MI := Outlook.CreateItem (olMailItem);

MI.Subject := MailSubject;

MI.HTMLBody := iall.outerHTML;
MI.Attachments.Add('C:\test.txt', EmptyParam, EmptyParam, 'Attachment
title');

MI.Display; // Use Send to just send without first displaying window

VarClear(Outlook);
end;

Dmitry Streblechenko · Guest

Did you try to pass EmptyParam instead of a string when calling
Attachments.Add?
Attachment.DisplayName is not used or shown by Outlook anyway - this is a
security feature to prevent MyEvilWorm.exe from displaying as ReadMe.txt.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Kim S" <ks@pumpkin-post.dk> wrote in message
news:44ed865b$1 (AT) newsgroups (DOT) borland.com...

Kim S · Guest

Yes, I tried that. And got no errors.
And I have made sure that the file I try to attach is actually present
and the path is correct.

Dmitry Streblechenko wrote:

Kim S · Guest

Found a solution:
Removing the 3 last parameters, so that I only have Attachments.Add
('c:\test.txt') works.
/Kim