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

Question

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

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

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

感谢。

Answer 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