MAPIで自動的にメッセージをメーラーに送るには？ (ID:76391)

名前

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

本文

ＶＢ６で作成したものですが、参考までに

'
    '********************************
    ' メール送信処理
    '
    '********************************
    '
    '  MAPI セッションを開始
    MAPISession1.SignOn    
    
    '  メッセージを送信
    Call sendmapimessage
    
    '  MAPI セッション終了
    MAPISession1.SignOff
    
    End

End Sub

Private Sub sendmapimessage()

'  エラーが発生した場合はエラー処理ルーチンへ
    On Error GoTo erroroccur
    
    With MAPIMessages1
        
        ' メッセージセッションとの関連付け
        .SessionID = MAPISession1.SessionID
        
        ' メッセージを作成
        .Compose
        
        ' 宛先データを設定
        .RecipDisplayName = rShop_Name
        ' 送信アドレスをセット
        .RecipAddress = rAdd
        
        .MsgSubject = "データ"
        .MsgNoteText ="  メッセージ"
        .AttachmentIndex = 0
        '  添付ファイル名
        TxtDataFile$ = "エクセルデータ".xls"
        .AttachmentPathName = TxtDataFile$
        
        .Send False
    End With
    Exit Sub
        
erroroccur:
    MsgBox Err.Number & vbCr & _
    Err.Description, _
    vbExclamation
    End
End Sub

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

戻る