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