delphi - 如何使用 TSendMail 创建邮件？

Question

在 Windows 10 中的 Delphi 10.4.2 VCL 应用程序中，我遵循了TSendMail此处的示例：

http://docwiki.embarcadero.com/CodeExamples/Sydney/en/TSendMail_(Delphi)

InternetSendMail1...在 ActionList中创建一个动作。

但是当我执行这段代码时：

var OK := InternetSendMail1.Execute;
CodeSite.Send('OK', OK);

确定返回True。

但没有任何反应：没有打开任何电子邮件。

我的电子邮件客户端 Thunderbird 是一个常规注册的 MAPI 邮件客户端，可以完美运行多年：例如，当我单击一个mailto链接时，会在 Thunderbird 中创建一个新电子邮件等。

那么我必须怎么做才能使InternetSendMail1动作起作用呢？

编辑：我终于意识到我想要做的不是真正发送邮件，而是创建带有附件的邮件，因此用户可以使用收件人、正文等进行编辑，然后在完成编辑后发送. 所以我将问题从“如何使用 TSendMail 发送邮件？” 到“如何使用 TSendMail 创建邮件？”。

标签： delphisendmaildelphi-10.4-sydney