请问:ShellExecute mailto能发送带附件邮件么?谢谢!(100分)

  • 主题发起人 主题发起人 jonics
  • 开始时间 开始时间
J

jonics

Unregistered / Unconfirmed
GUEST, unregistred user!
ShellExecute(handle, 'open', 'mailto:aaa@163.com?subject=test&body=test&attach=''c:/aa.txt''', nil, nil, SW_SHOW);
我怎么就是不能加附件呢?

如果不行,我要怎么调用OutlookExpress才能发送带附件的邮件呢?(我的默认的邮件服务程序是outlookexpress)
请大家指教!
谢谢了!

 
使用MapiSendMail
 
ShellExecute(handle, 'open', 'mailto:aaa@163.com?subject=test&body=test&file=''c:/aa.txt''', nil, nil, SW_SHOW);
 
楼上的朋友,想当然了吧,这样不行!
 
uses
ComObj;

procedure TForm1.Button16Click(Sender: TObject);
const
olMailItem = 0;
olByValue = 1;
var
OutlookApp, MailItem, MyAttachments: OLEVariant;
begin
try
OutlookApp := GetActiveOleObject('Outlook.Application');
except
OutlookApp := CreateOleObject('Outlook.Application');
end;
try
MailItem := OutlookApp.CreateItem(olMailItem);
MailItem.Recipients.Add('YourMailAddress@something.com');
MailItem.Subject := 'Your Subject';
MailItem.Body := 'Your Message';
myAttachments := MailItem.Attachments;
myAttachments.Add('C:/SomeFile.txt', olByValue, 1, 'Name of Attachment');
MailItem.Send;
finally
myAttachments := VarNull;
OutlookApp := VarNull;
end;
end;


 
楼上的热情回答非常感谢!

可是你没有看我问的问题
我指shellexecute 'mailto'
 
mailto:我没有用过带附件的,资料也没有找到:(
 
我的那段代码应该可以用了,虽然不是完全满足你的要求……:PP
 
呵呵,这个我会,本来我就是用outlook写好了,可是客户有的用OE,有的用Outlook..
所有才要用mailto
:(
 
接受答案了.
 
后退
顶部