| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3274990
建立时间:2005年6月6日 |
| |
|
 [delpih编程]利用delphi自带控件发送带有附件的邮件（以163邮箱为例）【转】
软件技术
吕向阳 发表于 2009/5/15 18:31:20 |
| 利用delphi自带控件发送带有附件的邮件（以163邮箱为例）首选添加TIdSMTP和TIdMessage控件。procedure TForm1.Button1Click(Sender: TObject);beginsmtp := TIdSMTP.Create(nil);smtp.AuthenticationType := atLogin;smtp.Host := 'smtp.163.com';smtp.Username := '###'; //用户名smtp.Password := '******'; //密码msgsend := TIdMessage.Create(nil);msgsend.Recipients.EMailAddresses := 'liang0_0@tom.com'; //收件人地址(多于一个的话用逗号隔开)msgsend.From.Text := '###@163.com'; //自己的邮箱地址msgsend.Subject := 'test'; //邮件标题msgsend.Body.Text := RichEdit1.Text; //邮件内容TIdAttachment.Create(msgsend.MessageParts, 'C:\temp\1.jpg'); //添加附件trysmtp.Connect();try smtp.Authenticate;smtp.Send(msgsend);ShowMessage('发送成功');exceptShowMessage('邮件发送失败');end;exceptShowMessage('无法连接邮件服务器！');end;smtp.Disconnect;end; |
|
|