请问：ShellExecute mailto能发送带附件邮件么？谢谢！(100分)

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

如果不行，我要怎么调用OutlookExpress才能发送带附件的邮件呢？（我的默认的邮件服务程序是outlookexpress）
请大家指教！
谢谢了！

gz

使用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

接受答案了.