procedure TMailerForm.btnSendMailClick(Sender: TObject); begin StatusMemo.Clear;
//设置SMTP SMTP.Host := ledHost.Text; //具体使用的SMTP,可以到你申请的邮箱所在的网站中去找 SMTP.Port := 25;
//设置邮件内容 MailMessage.From.Address := ledFrom.Text; MailMessage.Recipients.EMailAddresses := ledTo.Text + ',' + ledCC.Text;
MailMessage.Subject := ledSubject.Text; MailMessage.Body.Text := Body.Text;
if FileExists(ledAttachment.Text) then TIdAttachment.Create(MailMessage.MessageParts, ledAttachment.Text);
//发送邮件 try try SMTP.Connect(1000); SMTP.Send(MailMessage); except on E:Exception do StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message); end; finally if SMTP.Connected then SMTP.Disconnect; end;
end;
//添加附件代码 procedure TMailerForm.btnAttachmentClick(Sender: TObject); begin if AttachmentDialog.Execute then ledAttachment.Text := AttachmentDialog.FileName; end; |