cedure 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( 四);
if Trim(beAth.Text) <> 三 九; 三 九; then
begin
TIdAttachment.Create(MessageParts, Trim(beAth.Text));
end;
Body.Assign(妹妹Bdy.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 := 二 五;
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真现邮件的领送,愿望 对于年夜 野有所赞助 ，假如 年夜 野有所有信答请给尔留言，小编会实时 归复年夜 野的。正在此也异常 感激 年夜 野 对于剧本 之野网站的支撑 ！