• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:個別に違う添付ファイルを付けて一括でメール配信をしたいのですが、EXC)

一括で添付ファイル付きのメールを送信する方法について

このQ&Aのポイント
  • 個別に違う添付ファイルを付けて一括でメール配信をしたいのですが、ExcelやAccessのVBA、またはソフトなどご存知の方いませんか。
  • 添付ファイルが1つで、多数の方に送信できるフリーソフトはあったのですが、それぞれに送れる方法が知りたいです。
  • 100件ほどの添付ファイルを通常のメールに一つずつ添付するのは面倒なので、一括で送信する方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.1

エクセルのVBAで Outlookをコントロールする事例です。 仮に D8セルの添付するファイルを保存しているパスを入れておきます。 13行目以下の B列に メールアドレス C列に 件名 D列に 本文 F列に ファイル名 をいれて準備します。 Sub ボタン1_Click() Dim myOLApp As Object Dim myDATA As MailItem Dim GYOU As Long '### OUTLOOKのオブジェクトを作成後、メールを新規作成する。 Set myOLApp = CreateObject("Outlook.Application") For i = 13 To Range("B65536").End(xlUp).Row Set myDATA = myOLApp.CreateItem(olMailItem) '(添付ファイルの追加) myDATA.Attachments.Add Range("D8").Value & "\" & Range("F" & i).Value & ".xls" '(宛先のアドレス、件名、本文の追加) myDATA.To = Range("B" & i).Value myDATA.Subject = Range("C" & i).Value myDATA.Body = Range("D" & i).Value '作成したメールアイテムの送信 myDATA.Send Next Set myDATA = Nothing Set myOLApp = Nothing End Sub エクセルVBAでOlutLookのVBAを作動させるには VBエディターの ツール=>参照設定 で Micrsoft Loutlook 10.0 Object Library にチェックを入れておきます。

UKUJIMA
質問者

お礼

お礼が遅くなり申し訳けありません。 ありがとうございます。 試してみます。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • outlookで個別添付ファイル付きメール一括送信

    お世話になります。 Windows10でMicrosoft 365のOutlookやExcelを使用しています。 50人くらいに、メール本文中には宛先の社名と氏名を記入し、それぞれに別々の添付ファイルを付けたメールを送る必要があります。 Excelシートに メールアドレス、社名、氏名、添付ファイル名 のリストを作っておいて、差込印刷のように一括送信する(できることなら、いきなり送信されるのではなく、下書きフォルダに保存されると尚良い)ことができるソフト(?)など、ご存じの方がいらっしゃいましたら、ぜひ教えてください。 マクロを自分で書くスキルはありません。 宜しくお願いいたします。

  • VBAメール添付ファイル付送信

    VBAメール添付ファイル付送信 Win2000 Access2000 添付ファイル付メールの送信を以下の様に組んでおります 以下の組み方ですと本文の下か、上かにしか添付ファイルを付ける事ができません 本文の中間に添付ファイルを付ける事は可能なのでしょうか? 希望する内容↓ ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 本文○○○○○○○○○○○○ ここに添付ファイル 本文○○○○○○○○○○○○ ++++++++++++++++++++++++++++++++++++++++++++++++++++++ With myMail   .To = "メールアドレス"   .Subject = "例:メールタイトル"   .Attachments.Add("サーバに保存してあるEXCELのフルパス")   .Body = "本文 (メッセージ)"   .send End With 宜しくお願いします

  • ファイルの一括添付

    ニフティ-メール送信に際して10個以上のワードファイルを一括して添付したいのですが、フォールダーから一ファイルずつ添付しなければなりません。ファイルリストを一括ハイライトして添付できないものでしょうか。

  • 一括メール送信ソフトでメールを送ろうとしたのですが・・・

    今、複数のメールアドレスに対して、個別の写真と文章を送りたいと考えています。 そこで、「エクセル一括メール送信『HG』2」というフリーソフトを試してみたのですが、送信できません。 (エラーメッセージ:Err: Cant connect Server 11001 が表示されます) メールアカウントはGmailで、SMTPサーバ名や認証設定などすべてGmailガイドに沿って入力してあります。ただ、何度試してみても送信ができません。Outlookでアカウント登録し、アカウント設定テストを行った所、Outlookには問題なく登録ができました。 どのようにすれば、エクセル一括メール送信『HG』2でメール送信できるようになるでしょうか? また、ほかに一括送信で本文や添付ファイルを個別に設定できるフリーソフトはありますでしょうか? ど素人な質問ですみませんが、宜しくお願いしますm(_ _)m

  • メールで添付ファイルを送れない

    VISTAでWINDOWSメールを使用。メールにWORDやEXCELのファイルを添付して送信しようとすると「いくつかのファイルが見つからなかったためメッセージに添付できませんでした。このままメッセージを送信しますか?」の表示が出て、本文は送信できますが、添付ファイルが送信できません。ファイルはちゃんとあります。どうすれば解決するでしょうか。

  • 添付ファイル付のメールを連続して簡単に送る方法ありますか?

    1日に5回程度、同じ内容のメールを、別々の相手に送っています。 毎回、メールの内容をコピーして、添付ファイルを手動でアップして送信していますが、このような作業をもっと簡単にすることはできないのでしょうか? 添付ファイルは、全部で10個あります。 できれば、メールの本文と、件名、添付ファイルがすでにできあがっているモノを、毎回、Eメールアドレスだけ変えて、送信できるようにしたいと思っています。 メールソフトは、アウトルックエクスプレスです。 もしご存じの方いましたら教えてください。

  • メールに添付したファイルが開けない

    Excel2013で作成したファイルを、WindowsLiveメールに添付して、先方に送信しました。受信したメールの添付ファイルが、ペイントに代わっています。開くと文字化けします。 先方のメールソフトも、WindowsLiveメールです。 どのように対処したらいいのか、ご教授ください。よろしくお願いします。

  • VBAでメールにアクティブブックを添付したい

    EXCEL2003を使用しています。 ・アクティブブックを保存し、メールに添付 ・送信先アドレス、件名を指定 ということをVBAで行ないたいです。 調べてみた所、メール送信に関するVBAの記述としては「SendMailメソッド」を使えばいいらしいのですが、こちらは送信まで行なってしまうようです。 でも今回の場合は自動送信ではなく、上記の通り送信の直前で止めたいのです。 (本文記述と送信ボタン押下は手動) できればメニューの[ファイル]-[送信]機能ではなく、VBAで処理したいのですが…どうすればいいのでしょうか。

  • 1つの添付ファイルが3形態で届きました。

    1つの添付ファイルが3形態で届きました。 メールを3種類で受信できるように設定しておりますが、届いたのはそれぞれ異なった形態でした。 3種類とは、次のA,B,Cです。プロバイダ宛のメール(A)はGoogleのfree mail (B)へ転送し、更に携帯電話(C)へ転送しております。 友人が添付ファイル付きのメールを、私を含む約20名に送信したところ、私のAには本文には添付したと書かれているものの、ファイルは添付されていませんでした。 調べてみると、Bには「参加者名簿5.xls」のはずが「�Q���Җ���5.xls」というように名前が文字化けして届きました。 ここで最後の5という文字は共通しています。また、漢字5文字に対し、9文字になっています。後者が1bitとすれば、どこか1bitが抜け落ちた結果のように解釈できます。 そしてこのxlsは正常に開くことが出来ました。 また、Cにはメール本文にwinmail.dat というファイルが添付されていました。これはこのままでは読めず、メモ帳で読むと、化け文字の中に「参加者名簿5」と言う文字列が含まれています。 なお、メール本文は3通ともキッチリ届いております。 送信の瞬間、ファイル名の10bitの内1bitが抜け落ちたと解釈すれば、説明できますが、そのようなことが起こりうるのでしょうか?

  • CSVファイルからどうやってメールだけ取り出し、一括配信出来るのでしょう?宜しく御願い致します。

    メールを一括配信したいのですが。 調べても全然わかりません。 CSVファイルからどうやってメールアドレスだけ取り出し、一括配信出来るのでしょう? だれか知っている人がいれば宜しく御願い致します。

micro SDに入っているデータの復活
このQ&Aのポイント
  • micro SDに入っているデータ(動画や写真)を復活させる方法について教えてください。
  • micro SDのデータが読めなくなり、フォーマットを行った後に上書きされた写真を復活させる方法を探しています。
  • ソースネクスト株式会社の製品・サービスを利用して、micro SDに入っているデータを復活させることは可能でしょうか。
回答を見る