在从 vb6.0 发送邮件之前显示 Outlook/Outlook Express 弹出窗口答案

【问题标题】：Show Outlook/Outlook Express popup before sending mail from vb6.0在从 vb6.0 发送邮件之前显示 Outlook/Outlook Express 弹出窗口
【发布时间】：2013-08-28 20:23:26
【问题描述】：

我想从 VB6 应用程序发送电子邮件，但在发送之前我想打开 Outlook 或 Outlook Express 弹出/窗口，其中包含从 VB6 应用程序填写的详细信息。

我搜索过这个，但可以使用 Outlook 电子邮件程序。

那么，如何使用默认的邮件发送程序发送邮件，并在发送邮件前打开邮件发送窗口？

谢谢。

【问题讨论】：

标签： vb6

【解决方案1】：

您可以在 Windows 中使用 mailto: API 来执行此操作，see here 以获取有关如何使用 mailto API 的示例。

您的代码可能类似于：

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub sendMail()
  ShellExecute 0, "open", "mailto:your@email.address?body=First Paragraph. %0A%0A Second paragraph. %0A%0A Third Paragraph etc.", 0, 0, 1
End Sub

【讨论】：

感谢您的回复。是的，此代码适用于 Outlook 和 Outlook Express，但附件有问题。它不会将附件附加到电子邮件中。
@YoginiMane：我自己没有尝试过，但是mailto协议有一个“附件”参数选项，请参见此处的cmets：msdn.microsoft.com/en-us/library/aa767737(v=vs.85).aspx。
我试过这个命令，但附件不起作用，否则它工作正常。