Delphi 调用 Outlook Express求助 (100分)

[?]那位大侠知道如何用Delphi调用Outlook Express时能自动添加附件，就如Winrar的压缩并邮寄的效果。
调用部分很容易实现，只要用如下代码即可。
var
Command:string;
Subjectone:string;
begin
Subjectone:='The subject line';
Command:='mailto:fbtwo_1982@msn.com?subject=Subjectone';
ShellExecute(0,nil,PChar(command),nil,nil,SW_SHOWNORMAL);
end;
问题在于如何才能自动将附件添加上去。请各位大侠指教。

把
ShellExecute(0,nil,PChar(command),Command,nil,SW_SHOWNORMAL);
试一试吧

这种方法不行，会有错误[Error] : Incompatible types: 'String' and 'PChar'

我的例子:

Try
OutlookApplication1.AutoQuit:=True;
OutlookApplication1.Connect;
MI := OutlookApplication1.CreateItem(olMailItem) as MailItem;
MI.Recipients.Add('TO: '); //邮件发给谁
MI.Subject := 'Subject: '; //主题
MI.Body := 'Dear : ';
MI.Attachments.Add(Path, EmptyParam, EmptyParam,MI.Display(null); //Path是图片的路径
except
Showmessage('没有安装或不能启动OutLook！')
end;

这种方式是使用的OUTLOOK，而不是OUTLOOK EXPRESS，事实上EXPRESS没有OUTLOOK中的ATTACHEMENT，因此需要一个API的处理过程，希望各位大哥踊跃讨论，共同解决这一问题。