带有预格式化数据的Open mail client

Question

我需要创建一封电子邮件，但当按钮被触发时，我希望它打开带有预格式化电子邮件的Outlook。

由于客户端有一些限制，我不希望它从程序本身发送电子邮件，我希望它在outlook中打开。

如下所示：

Dim email As New CDO.Message
With email
    .From = "the_sender@company1.com"
    .To = "the_reciever@company2.com"
    .Subject = "Great e-mail"
    .HTMLBody = "<h1>Header for a cool email</h1> And cool HTML"
    .AddAttachment("Cute_kitty.jpg")

    '.Send() NO! Open outlook with this stuff typed above and make sender useless
End With

我该怎么做呢？我找到了这个东西，但它(当然)不支持html-email和附件……

Dim proc As System.Diagnostics.Process = New System.Diagnostics.Process
proc.StartInfo.FileName = "mailto:the_reciever@company2.com?subject=Great e-mail&body=My cool email that does not support html n stuff"
proc.Start()

有什么建议吗？

Answer 1

如果要在Outlook中打开邮件，则需要使用Outlook对象模型。大致是这样的：

设置App = CreateObject("Outlook.Application")

NS.Logon

设置电子邮件= App.CreateItem(0)

通过电子邮件

 .To = "the\_reciever@company2.com"

 .Subject = "Great e-mail"

 .HTMLBody = Your HTML text"

 .Attachments.Add("c:\temp\Cute\_kitty.jpg")

 .Display

结尾为