我目前编写了一个应用程序，可以生成 pdf 凭证和电子邮件给他们的潜在收件人。但是我使用的功能是依赖于客户端的（MS Outlook），我真的很想让这个电子邮件客户端不可知，因为我们有很多客户，并不是所有的客户都使用 Outlook。
我查看了一些选项，但在搜索中找不到任何似乎可以解决我的问题的内容。
有没有人知道一种使用客户 smtp 连接发送电子邮件的好方法，而不管客户端如何，并使用它发送附件而无需直接调用客户端来执行此操作？
【问题讨论】：
标签： delphi delphi-2010
或者您可以使用Synapse 库来使用 SMTP 发送邮件，最好是在其newest snapshot 中。
这里是应该使用登录login 和密码password 将邮件从sender@from.com 到recipient@to.com 发送到smtp.server.com 的附加c:\voucher.pdf 文件的代码。关于 TMimeMess 类中的其余函数，我会直接将您推荐给 the reference。
我希望这会起作用，因为我已经简化并本地化了我正在使用的更复杂的代码，但我无法验证它也无法编译。如果没有，让我们投反对票:)
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 的好评论（伙计，请更改您的昵称，它不再酷了 :)，如果您将所有收件人的列表发送给每个人，那将是非常糟糕的。使用突触you cannot 将密件抄送添加到消息头； 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 ...
【讨论】：
【讨论】：
JclMapi 在 JCL 中有 JclMapi 但话又说回来，并非所有电子邮件客户端都支持它。
TIdSMTP 组件直接访问 SMTP 协议，不需要其他电子邮件客户端，因为 TIdSMTP 是客户端。如果他想跟踪已发送的电子邮件，他将不得不手动进行（例如通过 IMAP4 协议连接到他的电子邮件服务器 - 请参阅TIdIMAP4 组件 - 并将电子邮件上传到所需的文件夹）。
如果您想与现有的电子邮件客户端集成（例如在电子邮件客户端的sent、sent items 等文件夹中查看已发送的消息），您可以使用Simple MAPI。标题在 Delphi 中的 Mapi 单元中翻译（至少在 D2007 中）。
但要小心检查实际客户端是否支持 Simple MAPI。
【讨论】：
The use of Simple MAPI is discouraged. It may be altered or unavailable in subsequent versions of Windows.