VB6でOutlookExpressの新規メール作成を起動するには？ (ID：114887)

名前

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

本文

「MAPIセッション」「MAPIメッセージ」という２つのコントロールを使用すると出来ます。
実装方法は以下のとおりです。

VB6の開発環境を開いた後、画面上部のメニューから次のようにクリックしていきます。
１：プロジェクト(P)→コンポーネント(O)→Microsoft MAPI Contorols6.0にチェック
２：「MAPIセッション」「MAPIメッセージ」２つのコントロールをフォームに貼り付ける
３：以下のサンプルコードを記述してください。

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
〜〜〜〜〜〜  サンプルコード  〜〜〜〜〜〜〜
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
'注意：Outlook Expressでデフォルトに設定されているメールアドレスで送信されます。

Private Sub Command1_Click()

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose

MAPIMessages1.RecipType = mapToList
'あて先欄に表示させたい文字
MAPIMessages1.RecipDisplayName = "テストさん"
'あて先のメールアドレス
MAPIMessages1.RecipAddress = "SMTP:test1700@goo.yahoo.cam"
MAPIMessages1.MsgSubject = "メールタイトル"
MAPIMessages1.MsgNoteText = "本文内容" + vbCrLf

'Falseにすると自動送信になります
MAPIMessages1.Send True

MAPISession1.SignOff

End Sub
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

ちなみに私自身はこのコントロールを使用したプログラムを作りこんだ事はありませんので
その他不明な事がございましたら
MSDNの
「MAPISession コントロール」
「MAPIMessages」→「MAPI メッセージ (MAPIMessages) コントロール」
あたりをご参考くださいませ（＾＾；

←解決時は質問者本人がここをチェックしてください。

戻る