• 締切済み

MAPIコントロールでファイル添付してメール送信

VB6.0SP5で、MAPIセッション/MAPIメッセージコントロールを使用して、ファイルを添付したメールを作成し、送信を行っています。 ところが、受信者には添付ファイルの無いメールが届いたり、attach3というファイルが添付されていて（内容は見れない）届いたりとうまくいきません。 何かご存知のかたいらっしゃいましたら、教えてください。よろしくお願いします。

みんなの回答

  • 2ch
  • ベストアンサー率51% (64/125)
回答No.1

MSDNを読んで作ってみた。 結果、attach3というファイルが添付される現象を再現できなかった。 MAPISession1.Action = 1 With MAPIMessages1 　　'セッション確立 　　.SessionID = MAPISession1.SessionID 　　.Compose 　　 　　'送信先情報 　　.RecipDisplayName = "某社長さん" 　　.RecipAddress = "げいつ＠まいくろそふと.com" 　　 　　'お題と内容 　　.MsgSubject = "題名" 　　.MsgNoteText = "てーすとぉー" 　　 　　'ファイルの添付(INDEXをつけて添付ファイルのパスを指定) 　　.AttachmentIndex = 0 　　.AttachmentPathName = "c:\Windowsのソースを公開せよ.txt" 　　.AttachmentIndex = 1 　　.AttachmentPathName = "c:\もしくは入社させろ.txt" 　　 　　'届けーーー 　　.Send False End With 'セッション開放 MAPISession1.SignOff こんなフリーを使うのもあり http://www.hi-ho.ne.jp/~babaq/

参考URL：
http://www.hi-ho.ne.jp/~babaq/
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • メール自動送信について（MAPI）

    ５～６年前にメールを自動送信するプログラムを作りました。 VBのMAPIを使い数百人にメールで添付ファイルを送信するプログラムを作りました。一時期使っていたのですが、しばらく使っていませんでした。 新システムまでのつなぎとして、給与明細をメールで送信する必要が生じました。過去のプログラムを引っ張り出した実行しますとメッセージボックスがあて先ごとにでて送信ボタンを１あて先ごとに押さなければなりません。Outlook　Expressでスパムメール対策でもはじめたのでしょうか？これを自動化（メッセージボックスを出さないように・応答要求がこないように）出来ないものでしょうか？ ご指導のほど宜しくお願いいたします。 メッセージの内容 警告マーク　　 プログラムがユーザの代わりに次の電子メールメッセージを送ろうとしています。 あて先：XXXXXXXXXX 件名：給与明細 メッセージを送信しますか？ 　送信　　　送信しない　　　＜－ボタン

  • 添付ファイルの送信が出来ません

    Office 2010 | Microsoft Office Outlook | Windows 7 を使用してます。 昨日までは、異常なく使用出来ておりましたが、急に添付ファイルの送信だけが出来なくなってしまいました。 添付ファイルの種類は、エクセル、ワード、写真・・・すべて添付出来ません。 スマートフォンで同じアカウントで添付ファイルを送信はすることは出来ますが、パソコンからの送信が出来きません。 添付ファイルを送信すると以下のメッセージの返信があります。 配信不能 : **** システム管理者 このメールは、受信者全員または一部に届きませんでした。 件名: **** 送信日時: 2011/09/24 21:48 以下の受信者にメールを配信できません: ****@piaia.or.jp 2011/09/24 21:48 この受信者へ配信できる電子メール アカウントはありません。 以上のメッセージを受信します。 添付ファイル無しで同じアドレスへの送信は出来ます。 送信フォルダー内を削除したり、office2010をインストールし直したりしてみましたが、解決出来ませんでした。 よろしくお願い致します。

  • メールにファイルを添付して送信したい

    メールにドキュメントにあるファイルを添付して送信したいのです。 でたらめながら以下のようにやってみましたが、、、。 メール画面から、メール作成―アドレスより相手先を入力―件名入力―メール文入力―「ファイル添付」をクリック―ファイルの参照をクリック―全てのファイルを選択―ドキュメントより目的のワードファイルを右クリック―送る―メール受信者―ここで私的には、送信のつもりですが、送信ボタンがみあたらないので、もう一度「ファイル添付」をクリックしましたところ、「問題が発生しました。指定したファイルが見当たりません再度お試しください」とのメッセージがでました。やり方に問題があるからとおもいますが、正しいやり方をご指導頂きたくおもいます。 はじめてのトライの初心者ですので、手順方式でお願いいたします。

  • Outlookexpressで添付ファイル付きのメールを送信すると、エラーメッセージを受信する

    知人のパソコンA、なのですが、WinXP、Outlookexpressで、添付ファイルをつけて、送信すると、MAILER-DAEMONのエラーメッセージが届くと言うことです。ただし、添付なしのメールは、普通に送信できるようですし、私のパソコンで、受信できます。 もう一人の知人Bに送信しても、添付ファイルつきのメールが送信できない。MAILER-DAEMONのエラーメッセージが届く。 (1).添付ファイルが大きすぎると言うわけでもありません。 （確かめました） 添付ファイルは写真一枚、で送信してもエラーメッセージが届きます。また、メモ帳で作成した文章を添付しても、エラーメッセージが届きます。 (2).Outlookexpressの連絡先の宛名をダブルクリックして、メール作成画面を出して作成しているし、この方法で、添付ファイルなしで送信できている（わたしのパソコンで、添付ファイルなしのメールは、受信できている）ので、あて先が間違っているわけではありません。 (3).現在、私のプロバイダーでメール受信障害はないようです。 (4)・アンチウイルスソフトは自動更新になっていて、機能している。 でも、「ハイパーリンクを検索しています。○○％～」というメッセージが出ることがある。 以上で、何か、わかりますでしょうか？ 宜しくお願いします。

  • 添付ファイル付きメールが送れません

    去年購入したWindowsXP　ＳＰ２　のノートパソコンです。 インターネットは問題なくつながり、通常のテキストだけのメールは、送信も受信もできます。 添付ファイルの付いたメールも受信できます。 でも何故か添付ファイルを付けたメールを送信できません。 原因と処置方法を教えてください。お願いします。

  • Finder上から右クリックメニューでファイルを添付してメール送信

    Mac OS 10.5.6 を使っています。 ファイルをMailで添付して送信する際、いちいちMailから新規メッセージを作成し、添付操作でそのファイルを選択して添付するという操作をするのではなくて、送りたいファイルをFinder上で右クリックして、そこから例えば「Mail送信」というようなメニューをクリックすることによって、そのファイルが添付されたMailが自動的に立ち上がるようにすることができる方法をご存じないでしょうか？ Windowsで言うところの、右クリック→送る→メール受信者、というものと同様の操作がMacで出来ないかと思っています。 よろしくお願いいたします。

    • ベストアンサー
    • Mac
  • VBで添付ファイル付きのメールを送信したい

    こんにちは。いつもお世話になっております。 現在、VB6.0でメーラーを起動し、そこへ添付ファイルを付けて送信を行うと言う作業を行っております。 ユーザー側で、実行ボタンを押したときに送信まで行ってしまうか、送信はせず、新規メールの起動だけで終るかを選択できるようになっています。 自分なりに色々と調べて、MAPIを使用したプログラムでの操作はできたのですが、テストメーラーをOutlook ExpressからMicrosoft Outlookに変更したら、送信部分が上手く動作しませんでした。 どのメーラーでも上手く動くように設定したいのですが、何か方法はありませんでしょうか？ また、送信時に出てしまう確認メッセージを出さずに自動送信する方法はありますか？MAPIを使用せずに添付ファイル付きのメールを送信する方法でも構いません。 宜しくお願い致します。 MAPISession1.SignOn MAPIMessages1.SessionID = MAPISession1.SessionID MAPIMessages1.Compose MAPIMessages1.RecipType = mapToList 'あて先欄に表示させたい文字 MAPIMessages1.RecipDisplayName = "テストさん" 'あて先のメールアドレス MAPIMessages1.RecipAddress = "SMTP:メールアドレス" 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

  • MicrosoftOutlook（Vista)で添付ファイル付で送信したら、受信者のメールには添付ファイルが添付されていない。

    MicrosoftOutlook（Vista)で添付ファイル付で送信したら、受信者のメールには添付ファイルが添付されていない。当方の送信ファイルのデータには添付ファイルがあるよう(クリップマーク）に記録されています。ちなみに、添付ファイルのない当方の送信メールを返信してもらったところ、着信したメールには添付ファイルがついていました。 このような状態を改善する方法をご存じないでしょうか・・・？

  • MAPI コンポーネントを使ったメールソフト

    VB6で、MAPI コンポーネントを使ったメールソフトを作ったのですが、メール送信時に「メッセージを送信しますか」とのメッセージボックスが開きますが、このメッセージボックスが出ないようにするにはどうしたら良いでしょうか？ 具体的には、 MAPIMessages1.AttachmentIndex = 0 MAPIMessages1.AttachmentPathName = attcbin MAPIMessages1.AttachmentName = attcsb MAPIMessages1.AttachmentPosition = 0 MAPIMessages1.AttachmentType = 0 MAPIMessages1.MsgNoteText = mailmsg MAPIMessages1.Send False←ここでメッセージボックスが出ます。 MAPIMessages1.SignOff ご存知の方がいらっしゃいましたら教えてください。 よろしくお願いいたします。

  • メールの添付ファイル

    メーラーで添付ファイルを送信する場合のプログラムで質問です。テキストファイルの添付は概ね理解できるのですが、例えばpdfファイルなどを添付する場合の方法を模索しています。以下のような感じで、合っていますでしょうか？ ・添付するpdfファイルの内容をReadFileで読み込む。 ・読み込んだデータをBase64エンコードする。 ・マルチパートのメールフォーマットで送信 簡単に書かせていただきましたが、こんな流れでしょうか？ 逆に添付ファイルを受信する場合は ・マルチパートの添付ファイルの内容を示す部分を読む。 ・読んだ内容をBase64デコードする。 ・CreateFileでファイルを作成。 ・作成したファイルにBase64デコードした内容を書く。 こんな感じでしょうか？ よろしくお願いします。。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する