メールに文章を書き込む (ID:126858)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6でメールを送る部分を書きたいと思っています。 指定のアドレスからメーラーが開くところまではわかるのですが開いたメーラーに文章まで書かせることはできますか？ 次のDoc2Bsentを開いたメールに表示させたいというものです。 Dim strCommand As String Dim lngWin32apiResultCode As Long Dim DOC As String Dim Doc2Bsent As String Doc2Bsent = "確かに受領しました" & vbNewLine Doc2Bsent = Doc2Bsent & text1.Text strCommand = "info@abc.com" ' メールアドレスの前にmailto:を付加 If LCase(Left(strCommand, 7)) <> _ "mailto:" Then strCommand = _ "mailto:" & strCommand End If ' メールアドレスを指定してメーラーを起動 lngWin32apiResultCode = _ ShellExecute(Me.hWnd, _ "open", _ strCommand, _ vbNullChar, _ vbNullChar, _ SW_SHOWNORMAL)