Nasao sam na msdn-u kako se koristi mailto
http://msdn.microsoft.com/libr...tworking/predefined/mailto.asp
ali ne pise nista u vezi attach-a.
Probao sam i sljedece ali nije dalo rezultate...
Code:
ShellExecute(Self.Handle,
nil,
'mailto:' +
'
[email protected]' +
'?Subject=Test Message Subject' +
'&Body=Test Message Body' +
'&Attach="c:\Mail Attachments\attachment.txt"',
nil,
nil,
SW_NORMAL);
Zatim sam probao:
Code:
const olMailItem = 0;
var Outlook: OLEVariant;
MailItem: variant;
begin
try
Outlook:=GetActiveOleObject('Outlook.Application') ;
except
Outlook:=CreateOleObject('Outlook.Application') ;
end;
MailItem := Outlook.CreateItem(olMailItem) ;
Mailitem.recipients.add('
[email protected]');
Mailitem.Subject :='Subject';
Mailitem.Body := 'Body message...';
Mailitem.Attachments.Add('c:\file.txt') ;
Mailitem.Send;
Outlook := Unassigned;
end;
Ovaj code radi, samo sto koristi Microsoft Outlook za slanje. Ne znam kako bi glasila OLE oznaka za Outlook Express aplikaciju i da li uopste to Outlook Express podrzava?
Send mail i attach iz delphija
