婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > Delphi - Indy idMessage和idSMTP實現郵件的發送

Delphi - Indy idMessage和idSMTP實現郵件的發送

熱門標簽:高德地圖標注公司位置需要錢嗎 慶陽外呼系統定制開發 怎么去掉地圖標注文字 北京外呼系統咨詢電話 廊坊地圖標注申請入口 襄陽外呼增值業務線路解決方案 合肥阿里辦理400電話號 海南人工外呼系統哪家好 地圖標注資源分享注冊

idMessage / idSMTP

首先對idMessage類的各種屬性進行賦值(郵件的基本信息,如收件人、郵件主題、郵件正文等),其次通過idSMTP連接郵箱服務器,最后通過idSMTP的Send方法將idMessage發送出去。

界面布局如下:

代碼如下:

unit uMain;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls, RzPanel, RzShellDialogs, IdMessage, IdBaseComponent,
 IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP,
 RzButton, StdCtrls, RzEdit, RzBtnEdt, Mask, RzLabel;
type
 TMainFrm = class(TForm)
  gbMsgSet: TRzGroupBox;
  gbSrvSet: TRzGroupBox;
  lbSubject: TRzLabel;
  lbRsd: TRzLabel;
  lbCc: TRzLabel;
  lbBCc: TRzLabel;
  lbAth: TRzLabel;
  lbBdy: TRzLabel;
  lbUserName: TRzLabel;
  lbHost: TRzLabel;
  lbPsd: TRzLabel;
  edtSub: TRzEdit;
  edtRsd: TRzEdit;
  edtCc: TRzEdit;
  edtBCc: TRzEdit;
  beAth: TRzButtonEdit;
  mmBdy: TRzMemo;
  btnSendMail: TRzBitBtn;
  edtUN: TRzEdit;
  edtHst: TRzEdit;
  edtPsd: TRzEdit;
  IdSMTP: TIdSMTP;
  IdMessage: TIdMessage;
  odMain: TRzOpenDialog;
  procedure beAthButtonClick(Sender: TObject);
  procedure btnSendMailClick(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 end;
var
 MainFrm: TMainFrm;
implementation
{$R *.dfm}
procedure TMainFrm.beAthButtonClick(Sender: TObject);
begin
 with odMain do
 begin
  Execute;
  if FileName > '' then
  begin
   beAth.Text := FileName;
  end;
 end;
end;
procedure TMainFrm.btnSendMailClick(Sender: TObject);
begin
 try
  if (Trim(edtCc.Text) = '') and (Trim(edtRsd.Text) = '') and (Trim(edtBCc.Text) = '') then
  begin
   MessageDlg('You should input Rsd, please check,thanks!', mtInformation, [mbOK], 0);
   edtRsd.SetFocus;
   Exit;
  end;
  with IdMessage do
  begin
   Clear;
   Subject := edtSub.Text;
   From.Text := edtUN.Text;
   Recipients.EMailAddresses := edtRsd.Text;
   CCList.EMailAddresses := edtCC.Text;
   BccList.EMailAddresses := edtBCc.Text;
   Priority := TIdMessagePriority(4);
   if Trim(beAth.Text) > '' then
   begin
    TIdAttachment.Create(MessageParts, Trim(beAth.Text));
   end;
   Body.Assign(mmBdy.Lines);
  end;
 except
  on E: Exception do
  begin
   MessageDlg('Msg Set Failed with Err information [' + E.Message + ']', mtWarning, [mbOK], 0);
   Exit;
  end;
 end;
 try
  if (Trim(edtUN.Text) = '') or (Trim(edtHst.Text) = '') or (Trim(edtPsd.Text) = '') then
  begin
   MessageDlg('You should input UN, please check,thanks!', mtInformation, [mbOK], 0);
   edtUN.SetFocus;
   Exit;
  end;
  with IdSMTP do
  begin
   if Connected then Disconnect;
   AuthenticationType := atLogin;
   Port := 25;
   UserName := edtUN.Text;
   Password := edtPsd.Text;
   Host := edtHst.Text;
   Connect;
  end;
 except
  on E: Exception do
  begin
   MessageDlg('Srv Set Failed with Err information [' + E.Message + ']', mtWarning, [mbOK], 0);
   Exit;
  end;
 end;
 try
  IdSMTP.Send(IdMessage);
  IdSMTP.Disconnect;
  MessageDlg('OK!', mtInformation, [mbOK], 0);
 except
  on E: Exception do
  begin
   MessageDlg('Send Failed with Err information [' + E.Message + ']', mtWarning, [mbOK], 0);
   Exit;
  end;
 end;
end;

end.

總結

以上所述是小編給大家介紹的Delphi - Indy idMessage和idSMTP實現郵件的發送,希望對大家有所幫助,如果大家有任何疑問請給我留言,小編會及時回復大家的。在此也非常感謝大家對腳本之家網站的支持!
如果你覺得本文對你有幫助,歡迎轉載,煩請注明出處,謝謝!

您可能感興趣的文章:
  • Delphi7中群發Email郵件的方法
  • Delphi實現獲取句柄并發送消息的方法
  • delphi發送消息控制滾動條使用示例

標簽:商丘 株洲 臺州 哈密 綿陽 鶴崗 鎮江 平頂山

巨人網絡通訊聲明:本文標題《Delphi - Indy idMessage和idSMTP實現郵件的發送》,本文關鍵詞  Delphi,Indy,idMessage,和,idSMTP,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《Delphi - Indy idMessage和idSMTP實現郵件的發送》相關的同類信息!
  • 本頁收集關于Delphi - Indy idMessage和idSMTP實現郵件的發送的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 广宁县| 开远市| 共和县| 新龙县| 吴忠市| 平利县| 台东县| 柏乡县| 馆陶县| 钟山县| 沿河| 罗甸县| 昆明市| 延长县| 安乡县| 分宜县| 宾川县| 临海市| 南澳县| 南皮县| 老河口市| 夏河县| 临猗县| 佛冈县| 白河县| 鄢陵县| 神木县| 东至县| 扶沟县| 鹤山市| 墨竹工卡县| 科尔| 增城市| 屯昌县| 灵川县| 榆中县| 囊谦县| 永平县| 渝中区| 石棉县| 克东县|