使用 JavaScript 在 HTA 中发送电子邮件并隐藏发件人的电子邮件地址

Question

我在工作中使用 HTA 并有很多选项，现在我正在尝试添加一个页面，该页面允许您直接从 HTA 发送电子邮件，而无需打开 MS Outlook。

我使用的是 Outlook 2003。我尝试了两种方法来创建电子邮件发送页面：

1.使用 Outlook.Application ActiveX 对象 - 它不起作用，因为它似乎只适用于 Outlook 2007，所以同时我把它排除在外。

2。使用带有 'mailto:' 的简单 HTML - 发送简单电子邮件可以正常工作，但我有一个无法解决的问题。

在 Outlook 中，我可以从名为“服务邮件”的“虚假”地址发送电子邮件（我只是将其写在“发件人”字段中），因此客户将无法回复我的电子邮件。我也想在我的 HTA 页面中执行此操作，但我认为此选项不存在。

有什么办法吗？也许通过使用适用于 Outlook 2003 的 ActiveX 对象并使用该对象来实现？

重要提示：我只能使用客户端语言，因为我没有服务器。

谢谢， 罗特姆

Answer 1

我在 VBScript 中制作了一个用于发送电子邮件的 HTA。它直接连接到邮件服务器。您不需要安装 Outlook（或任何其他电子邮件客户端），因此它非常有用。使用这样的东西：

With CreateObject("CDO.Message")
  .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.com"
  .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")  = 2
  .Subject  = "The subject line"
  .To       = "recipient@email.com"
  .From     = "sender@email.com"
  .TextBody = "The body of the email"
  ' or .CreateHTMLbody "page.htm"
  .AddAttachment "C:\path\to\file.txt"
  .Send
End With

...你明白了。

编辑：刚刚看到这个请求是专门针对 javascript 的，但本质上是一样的：

var mailobj = Server.CreateObject("CDO.Message");
mailobj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.com";
mailobj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")  = 2;
mailobj.Subject  = "The subject line";
mailobj.To       = "recipient@email.com";
mailobj.From     = "sender@email.com";
mailobj.TextBody = "The body of the email";
mailobj.Configuration.Fields.Update();
mailobj.Send();