いつも楽しく拝見してます。
今、大変困っております。

MAPISession MAPIMessagesを使用してメールを送信するプログラムを作ってるのですが、
通常使うメールソフトにMicrosftOutLookを使用するとSendの段階でエラー(予期せぬエラーと出ます)となり、
送れません。
どうすれば送れるようになるのかわかる方お教えください。

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

下記プログラムです。
-----------------------------------------------------------
Private Sub Command1_Click()

    Dim frgReject As Integer
    
    frgReject = 0
    
    s.SignOn
    
    With m
    
        .SessionID = s.SessionID
        
        .Compose
        
        .RecipAddress = "xxxx@xxxxxxxx.xx"
        
        'txtKenの内容を件名に設定
        .MsgSubject = "テスト"
        
        .MsgNoteText = "テスト"
        
        .Send True
        
        '.Send IIf(frgReject = 0, False, True)
    
    End With
    
    s.SignOff
    
    
End Sub
-----------------------------------------------------------

# OutLook → Outlook 、ですよね。

> MAPISession MAPIMessagesを使用してメールを送信するプログラムを作ってるのですが、
> 通常使うメールソフトにMicrosftOutLookを使用するとSendの段階でエラー(予期せぬエラーと出ます)となり、
> 送れません。

当方に環境が無いので確認は出来ませんが、思い付くのはこのあたりです。
http://support.microsoft.com/kb/252720/en-us

他にも情報が無いか、support.microsoft.com に行って、
「outlook MAPI」等のキーワードで探してみては如何でしょう。

> # OutLook → Outlook 、ですよね。
>
> > MAPISession MAPIMessagesを使用してメールを送信するプログラムを作ってるのですが、
> > 通常使うメールソフトにMicrosftOutLookを使用するとSendの段階でエラー(予期せぬエラーと出ます)となり、
> > 送れません。
>
> 当方に環境が無いので確認は出来ませんが、思い付くのはこのあたりです。
> http://support.microsoft.com/kb/252720/en-us
>
> 他にも情報が無いか、support.microsoft.com に行って、
> 「outlook MAPI」等のキーワードで探してみては如何でしょう。

Googleで検索しまくったのですが、
関係する現象は見つからないのです。

わかる方よろしくお願いします。

> Googleで検索しまくったのですが、
> 関係する現象は見つからないのです。
>
> わかる方よろしくお願いします。

.RecipDisplayName = "xxxx@xxxxxxxx.xx"

↑あて先欄に表示させたい文字を指定してみましょう。