如何发送邮件时候自动选择附件(10分)

类似于winzip中的生成文件并且发送邮件，这时候就会自动打开系统默认的邮件（比如outlook
express）,并且附件已经自动加载

在delphi中如何也能这样做到，不使用本身带的邮件控件

procedure TForm1.Button1Click(Sender: TObject);
begin
nmsmtp1.Host :='202.107.117.252';
if nmsmtp1.Connected then
begin
nmsmtp1.PostMessage.FromAddress:= edit1.Text ;
nmsmtp1.PostMessage.ToAddress.Text :=edit3.Text ;
nmsmtp1.PostMessage.Subject:=edit4.Text ;
nmsmtp1.PostMessage.Body.Text :=memo1.Text ;
NMSMTP1.PostMessage.Attachments.Add('c:/pdos.def');//在这里指定你要发的文件
nmsmtp1.SendMail ;
end
else
begin
nmsmtp1.Connect ;
nmsmtp1.PostMessage.FromAddress:= edit1.Text ;
nmsmtp1.PostMessage.ToAddress.Text :=edit3.Text ;
nmsmtp1.PostMessage.Subject:=edit4.Text ;
nmsmtp1.PostMessage.Body.Text :=memo1.Text ;
NMSMTP1.PostMessage.Attachments..Add('c:/pdos.def');//在这里指定你要发的文件
nmsmtp1.SendMail ;
end;

end;
有问题请来信：sunyl@dongyubooks.com
Good Lucky !!!!!!