目前我用這段代碼實現了調用Foxmail。並往裡面寫收郵件資料等。。但怎麼加附本阿?拜托大家了。。懂的人告訴一聲好嗎?在線等候!!<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> prog,pram : string;<br>begin<br> prog := 'C:/Program Files/Foxmail/Foxmail.exe';<br> pram := 'D:/1.txt';<br>// ShellExecute(0,'open','C:/Program Files/Foxmail/Foxmail.exe','', '',SW_SHOW);<br>// ExecuteFile(prog,pram,'',SW_SHOW);<br> ShellExecute(Handle, 'open',<br> 'mailto:luck@pllink.com.tw ' +<br> '?cc=luck@pllink.com.tw' +<br> '&bcc=zzz@ddd' +<br> '&subject=Hello%20how%20are%20you%3F' +<br> '&Attachment=D:/1.txt'+ //我用這個加附本不行。沒效果<br> '&body=This%20is%20a%20two%20line%20message.',<br> nil, nil, SW_NORMAL);<br>end;