delphi 简单的发送邮件

delphi 编程用outlook发送邮件的方法,以下是关键 代码

// uses ComObj,Dialogs
function TForm1.SendMailWithAttachments(Email, Subject : string; Body : Widestring ; Filename : string): boolean;
var
   outlook : variant;
   item : variant;

begin
try
  outlook := CreateOLEObject('outlook.application');
   try 
   item := outlook.CreateItem(0);
   item.Subject := Subject;
   // You can use "Body := Memo1.text".
   item.Body := Body;
  // You can add more Attachments by adding the same line.
   item.Attachments.Add(FileName,1,1,FileName);
   item.To := email;
   item.Send;
   finally 
   // To make sure Outlook don't stay open.
   outlook.quit;
   end;
   except
   result := false;
   exit; 
   end; 
result := true;
end;

// Here is an example how the function works. 
procedure TForm1.Button1Click(Sender: TObject);
var
   Opendialog1 : TOpenDialog; 
begin 
   // Create an OpenDialog to get the Attachment.
   // Is the Dialogs unit in the uses line?
   Opendialog1 := TOpendialog.Create(application);
   try 
   if OpenDialog1.Execute then 
   begin
   SendMailWithAttachments(xuedelphi@163.com', 'I Love Eva Zhang','She Is My Wife!',opendialog1.FileName);
  end;
   finally
   Opendialog1.Destroy;
   end;

end;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

trassion

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值