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

Question

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

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

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

谢谢。

Answer 1

您可以在 Windows 中使用 mailto: API 来执行此操作，有关如何使用 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