我目前有一个应用程序,可以生成pdf礼品券并将其发送给其收件人。然而,我使用的功能是依赖于客户端(MS Outlook)的,我真的很想让这个电子邮件客户端不再与特定客户端相关,因为我们有很多客户,并且并不是所有客户都使用Outlook。
我已经查看了一些选项,但在搜索中并没有找到能够解决我的问题的内容。
是否有人知道一种好的方式,可以使用客户的smtp连接发送电子邮件,而无论客户使用哪个电子邮件客户端,并附带附件,而不必直接调用客户端来完成它?
我目前有一个应用程序,可以生成pdf礼品券并将其发送给其收件人。然而,我使用的功能是依赖于客户端(MS Outlook)的,我真的很想让这个电子邮件客户端不再与特定客户端相关,因为我们有很多客户,并且并不是所有客户都使用Outlook。
我已经查看了一些选项,但在搜索中并没有找到能够解决我的问题的内容。
是否有人知道一种好的方式,可以使用客户的smtp连接发送电子邮件,而无论客户使用哪个电子邮件客户端,并附带附件,而不必直接调用客户端来完成它?
或者您可以使用Synapse库来使用SMTP发送邮件,最好使用其最新快照。
以下是代码,应该将附加的c:\voucher.pdf
文件从sender@from.com
发送到recipient@to.com
,并通过登录login
和密码password
将其发送到smtp.server.com
。关于TMimeMess
类中的其他函数,我建议您直接参考参考文献。
我希望这可以工作,因为我已经简化并本地化了我正在使用的更复杂的代码,我无法验证它也无法编译。如果不行,请给我们投反对票:)
uses
SMTPSend, MIMEPart, MIMEMess;
procedure TForm.SendEmailClick(Sender: TObject);
var
MIMEText: TStrings;
MIMEPart: TMimePart;
MIMEMessage: TMimeMess;
begin
MIMEText := TStringList.Create;
MIMEText.Add('Hello,');
MIMEText.Add('here is the text of your e-mail message,');
MIMEText.Add('if you want the HTML format, use AddPartHTML');
MIMEText.Add('or e.g. AddPartHTMLFromFile if you have your');
MIMEText.Add('HTML message content in a file.');
MIMEMessage := TMimeMess.Create;
with MIMEMessage do
try
Header.Date := Now;
Header.From := 'sender@from.com';
Header.ToList.Clear;
Header.ToList.Add('recipient@to.com');
Header.CcList.Clear;
Header.Subject := 'E-mail subject';
Header.XMailer := 'My mail client name';
MIMEPart := AddPartMultipart('mixed', nil);
AddPartText(MIMEText, MIMEPart);
AddPartBinaryFromFile('c:\voucher.pdf', MIMEPart);
EncodeMessage;
if SendToRaw(Header.From, // e-mail sender
Header.ToList.CommaText, // comma delimited recipient list
'smtp.server.com', // SMTP server
Lines, // MIME message data
'login', // server authentication
'password') // server authentication
then
ShowMessage('E-mail has been successfuly sent :)')
else
ShowMessage('E-mail sending failed :(');
finally
Free;
MIMEText.Free;
end;
end;
更新:
根据来自Downvoter step into the light的友好评论(伙计,请改一下你的昵称,它不再酷了:),如果将所有收件人的列表发送给每个人,那么情况会变得非常糟糕。使用synapse,您无法添加BCC到消息头中;在MIMEMessage
中没有Header.BCCList
属性。相反,您可以在发送之前直接修改数据。
// First, you will remove the line where you are adding a recipient to the list
Header.ToList.Add('recipient@to.com');
// the rest between you can keep as it is and after the message encoding
EncodeMessage;
// and before sending the mail you'll insert the line with BCCs
Lines.Insert(1, 'Bcc: jane@invisiblecustomer.com, lisa@invisiblecustomer.com');
if SendToRaw ...
TIdSMTP
的组件,可直接访问SMTP协议,无需其他电子邮件客户端,因为TIdSMTP
就是 客户端。如果他想跟踪已发送的电子邮件,他将不得不手动执行(例如通过IMAP4协议连接到他的电子邮件服务器 - 请参阅TIdIMAP4
组件 - 并将电子邮件上传到所需的文件夹中)。 - Remy Lebeau如果您想要与现有的电子邮件客户端集成(例如,在电子邮件客户端的“已发送”、“已发送项目”等文件夹中查看已发送消息),您可以使用简单MAPI。在Delphi中,Mapi单元中翻译了标题(至少在D2007中)。
但是请注意检查实际客户端是否支持简单MAPI。