先日質問した者です。
MAPISession MAPIMessagesを使用してメールを送信するプログラムを作ってるのですが、
通常使うメールソフトにMicrosftOutLookを使用すると正しく動作しません。

先日は.Sendでエラーになる件で質問しましたが、
.ResolveNameを追加することにより、.Send Trueの場合は送ることが出来るようになりました。
しかし、.Send Falseにした場合送信トレイに乗っかるだけで送信されません。
自動で送信出来るようにしたいのですが、どうすればよいのでしょうか？

※通常使うメールソフトにOutLook Expressを選ぶと送れます。

----------------------------------------------------------------------------------------------
Private Sub Command1_Click()

    Dim frgReject As Integer
    
    frgReject = 0
        
    s.SignOn
        
    With m
    
        .SessionID = s.SessionID
              
        .Compose
        
        'txtKenの内容を件名に設定
        .MsgSubject = "テスト"
        
        .MsgNoteText = "あいうえお"

        .RecipAddress = "xxx@xxxxxx.xx"
        .ResolveName

        .Send False
  
    End With
    
    s.SignOff
    
End Sub

使う前にレジストリでOEを選ぶようにしたらどうですか。逃げですが。