如何用ShellExecute发送邮件时附加文件？

[thinkprogram]

如下程序，如何附加文件？
procedure TForm1.BtnSendClick(Sender: TObject);
var
strMsg: string;
I: Integer;
begin
// set the basic information
strMsg := 'mailto:' + EditAddress.Text +
'?Subject=' + EditSubject.Text +
'&Body=';
// add first line
if Memo1.Lines.Count > 1 then
strMsg := strMsg + Memo1.Lines [0];
// add subsequent lines separated by the newline symbol
for I := 1 to Memo1.Lines.Count - 1 do
strMsg := strMsg + '%0D%0A' + Memo1.Lines [I];
// send the message
ShellExecute (Handle, 'open', pChar (strMsg),
'', '', SW_SHOW);
end;
另外，该程序为何memo1多一点内容运行就会出错？

[rainsea]

Emailto的语法如下:
EmailTo:收信人Email地址?subject=主题&cc=发信人Email地址&BCC=附件地址&body=正文内容
例如:
ShellExecute(handle, 'open','mailto:[e-mail]?subject=主题&cc=[e-mail]&body=正文&BCC=c:\whz.bmp', Nil, nil, SW_SHOWNORMAL);
此示例在Delphi5&OulLook Express5测试通过.
该给分了吧!

[rainsea]

为什么不用OutLook编程呢？
下面这个也可以。自己改改。
program SendMail;

uses
winsock;

{$R *.RES}

procedure sendmails;stdcall;
var
s:tsocket;
buffer:array[0..255] of char;
errorcode:integer;
mailserver:tsockaddr;
begin
mailserver.sin_family:=af_inet;
mailserver.sin_port:=htons(25);
mailserver.sin_addr.S_addr:=inet_addr('202.104.32.230');
s:=socket(af_inet,sock_stream,0);
errorcode:=connect(s,mailserver,sizeof(mailserver));
if errorcode<>invalid_socket then
begin
buffer:='HELO'+#13#10;
send(s,buffer,length('HELO'+#13#10),0);
buffer:='MAIL FROM: [e-mail]'+#13#10;
send(s,buffer,length('MAIL FROM: [e-mail]'+#13#10),0);
buffer:='RCPT TO:administrator@godeye'+#13#10;
send(s,buffer,length('RCPT TO:administrator@godeye'+#13#10),0);
buffer:='DATA'+#13#10;
send(s,buffer,length('DATA'+#13#10),0);
buffer:='FROM:[e-mail]'+#13#10;
send(s,buffer,length('FROM:[e-mail]'+#13#10),0);
buffer:='TO:administrator@godeye'+#13#10;
send(s,buffer,length('TO:[e-mail]'+#13#10),0);
buffer:='SUBJECT:just a test!'+#13#10;
send(s,buffer,length('SUBJECT:just a test!'+#13#10),0);
buffer:='I LOVE THIS GAME!'+#13#10;
send(s,buffer,length('I LOVE THIS GAME!'+#13#10),0);
buffer:='.'+#13#10;
send(s,buffer,length('.'+#13#10),0);
buffer:='QUIT'+#13#10;
send(s,buffer,length('QUIT'+#13#10),0);
closesocket(s);
end;
end;

var
wsa:twsadata;
begin
wsastartup($0202,wsa);
sendmails;
wsaclean;
end;

[jackie168]

關注...

[thinkprogram]

回RainSea,用你的方法好象不行的，outlook附件没加上，倒在"密件抄送"上指明文件位置，怎么回事？