代码如下:
Self.Status.Clear;
Self.NextMail.Enabled := False;
Self.SMTP.Host := trim( Self.smtpHost.Text );
Self.SMTP.Username := '[email protected]';
Self.SMTP.AuthenticationType := atLogin;
Self.SMTP.Password := '58990';
Self.SMTP.Port := 25;
Self.MailMessage.From.Address := trim( Self.MailFrom.Text );
Self.MailMessage.Recipients.EMailAddresses := trim( Self.MailTo.Text );
Self.MailMessage.Subject := trim( Self.Subject.Text );
Self.MailMessage.Body.Text := Self.Body.Lines.Text;
if FileExists( Self.Attach.Text ) then
TIdAttachment.Create(Self.MailMessage.MessageParts,Attach.Text);
try
try
Self.
SMTP.Connect(1000);
SMTP.Send(MailMessage);
except on E:Exception do
Status.Lines.Insert(0, '错误: ' + E.Message);
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end;
Self.Status.Clear;
Self.NextMail.Enabled := False;
Self.SMTP.Host := trim( Self.smtpHost.Text );
Self.SMTP.Username := '[email protected]';
Self.SMTP.AuthenticationType := atLogin;
Self.SMTP.Password := '58990';
Self.SMTP.Port := 25;
Self.MailMessage.From.Address := trim( Self.MailFrom.Text );
Self.MailMessage.Recipients.EMailAddresses := trim( Self.MailTo.Text );
Self.MailMessage.Subject := trim( Self.Subject.Text );
Self.MailMessage.Body.Text := Self.Body.Lines.Text;
if FileExists( Self.Attach.Text ) then
TIdAttachment.Create(Self.MailMessage.MessageParts,Attach.Text);
try
try
Self.
SMTP.Connect(1000);
SMTP.Send(MailMessage);
except on E:Exception do
Status.Lines.Insert(0, '错误: ' + E.Message);
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货