使用ShellApi发邮件的问题

[Hillside]

哪位高手可否指教使用ShellApi发Email时,怎样把subject和Body传给Email程序?

我这样的用法只能传递收件人地址:
ShellExecute(0, nil, 'MaiLTo:[e-mail]', nil, nil, SW_SHOW);

[TechnoFantasy]

可以发送主题以及正文的vb代码：
ShellExecute Me.hwnd, "", "mailto:[e-mail]?subject=help&body=OK", "", "", 0
将它该成delphi代码就可以了

[BaldZhang]

用MAPI：

uses
MAPI;

procedure MailFileTo(Address, FileName: string);
var
MM: TMapiMessage;
RecipDesc: TMapiRecipDesc;
FileDesc: TMapiFileDesc;
begin
FillChar(MM, SizeOf(MM), 0);
FillChar(RecipDesc, SizeOf(RecipDesc), 0);
FillChar(FileDesc, SizeOf(FileDesc), 0);

RecipDesc.ulRecipClass := MAPI_TO;
RecipDesc.lpszName := PChar(Address);
RecipDesc.lpszAddress := PChar(Address);

FileDesc.lpszPathName := PChar(FileName);

MM.lpszSubject := 'Register';
MM.lpRecips := @RecipDesc;
MM.nRecipCount := 1;
MM.lpFiles := @FileDesc;
MM.nFileCount := 1;

MAPISendMail(0, Application.Handle, MM,
MAPI_DIALOG + MAPI_LOGON_UI + MAPI_NEW_SESSION, 0);
end;

[BaldZhang]

做一点补充：我这里只实现了地址和附件，至于其他的标题等等，你自己再看一下帮助吧。