MAPISession1の操作について

最上級初心者 2005-08-10 00:28:33 No: 124021

いつも参考にさせて頂いております。
VB6からMAPI関数を使用してメールの送信画面を表示させたいと思っています。
下記のコード内で
MAPIMessages1.RecipAddress = ""
と、相手のアドレスを空白にしたいのですが、エラーになってしまいます。
アドレスの所を空白にしてメール送信画面を表示する方法が分かる方がいらっしゃいましたらご指導を御願い致します。

【開発環境】
・VB6 SP6

【コード】
Private Sub Command1_Click()
        MAPISession1.SignOn
        MAPIMessages1.SessionID = MAPISession1.SessionID
        MAPIMessages1.Compose
        MAPIMessages1.RecipType = mapToList
        'あて先欄に表示させたい文字
        MAPIMessages1.RecipDisplayName = ""
        'あて先のメールアドレス
        MAPIMessages1.RecipAddress = ""
        MAPIMessages1.MsgSubject = ""
        MAPIMessages1.MsgNoteText = ""
        'Falseにすると自動送信になります
        MAPIMessages1.Send True
        MAPISession1.SignOff
End Sub