邮件发送

最新推荐文章于 2025-04-08 16:45:00 发布

原创最新推荐文章于 2025-04-08 16:45:00 发布 · 960 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#exception #login #string #server #c

delphi 专栏收录该内容

12 篇文章

订阅专栏

这段代码展示了使用Delphi实现邮件发送的功能。设置了邮件的基本信息，如发件人、收件人、主题等，还配置了SMTP服务器的认证方式、主机和端口。在发送邮件时进行了异常处理，若发送失败会显示错误信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.Button2Click(Sender: TObject);
var
tmp:string;
begin
with IdMessage1 do
begin
    Clear; // 清除前一次產生的 body & headerm, 以免第二次按時重複
    Body.Assign(Memo1.Lines);
    From.Text := 'yangtang_newton@163.com'; // 寄件者
    Recipients.EMailAddresses := 'yangtang_newton@163.com'; // 收件者
    Subject := 'subject 主題';
    //Priority := TIdMessagePriority(2); // 0-4, 0表示最高優先順序
    //CCList.EMailAddresses := 'a@a.com;b@b.com';
    //BccList.EMailAddresses := 'd@d.com;e@e.com';
    ReceiptRecipient.Text := '';
    // ReceiptRecipient.Text := From.Text; //若要寄件回函,改成這行
end;

// 附加的檔案
// TIdAttachment.Create(IdMessage1.MessageParts, 'c:/t1.zip');
// TIdAttachment.Create(IdMessage1.MessageParts, 'c:/t2.zip');

//SMTP server 認證的方式
// IdSMTP1.AuthenticationType := atNone; // 不用認證,要認證改為下面三行
IdSMTP1.AuthenticationType := atLogin; {Simple Login}
IdSMTP1.UserId := 'yangtang_newton';
IdSMTP1.Password := '？？？？';

//一般設定
IdSMTP1.Host := 'smtp.163.com';
IdSMTP1.Port := 25;

//寄送
try
    IdSMTP1.Connect;
    try
      IdSMTP1.Send(IdMessage1);
      ShowMessage('E-Mail 已寄出');
    finally
      IdSMTP1.Disconnect;
    end;
except
    on e: exception do
    begin
      ShowMessage('Mail 寄送失敗:' + e.Message);
    end;
end;
end;