VB6.0で添付ファイル付きのメールを送信するには？ (ID:126916)

名前

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

本文 こんにちは。いつもお世話になっております。 現在、「VB6.0でメーラーを起動し、そこへ添付ファイルを付けて送信を行う」と言う作業を行っております。 ユーザー側で、実行ボタンを押したときに送信まで行うか、送信はせず新規メールの起動だけで終るかを選択できるようになっています。 自分なりに色々と調べて、MAPIを使用したプログラムでの操作はできたのですが、メーラーをOutlook ExpressからMicrosoft Outlookに変更したら、送信部分が上手く動作しませんでした。 どのメーラーでも上手く動くように設定したいのですが、何か方法はありませんでしょうか？ また、送信時に出てしまう確認メッセージを出さずに自動送信する方法はありますか？MAPIを使用せずに添付ファイル付きのメールを送信する方法でも構いません。 宜しくお願い致します。 (system.web...の環境設定が存在せず、←の方法では無理そうでした。) ///// 以下は現在処理を行っているソースです。 //// MAPISession1.SignOn MAPIMessages1.SessionID = MAPISession1.SessionID MAPIMessages1.Compose MAPIMessages1.RecipType = mapToList 'あて先欄に表示させたい文字 MAPIMessages1.RecipDisplayName = "テストさん" 'あて先のメールアドレス MAPIMessages1.RecipAddress = "SMTP:yyy@aaa.com" MAPIMessages1.MsgSubject = "納品明細" MAPIMessages1.MsgNoteText = "本文内容" & vbCrLf MAPIMessages1.AttachmentPathName = App.Path & "\納品明細.xls" 'チェック有りの場合は自動送信 If chkAuto.Value = 0 Then 'Falseにすると自動送信になります MAPIMessages1.Send True Else MAPIMessages1.Send False End If MAPISession1.SignOff