• 締切済み

MS Outlookでメールを自動生成したい

20件ほどのメールをマクロで生成し送信したいのですが、教えてください。 どなかが作成されたものがかならずあるとは思いますが、それをどう検索してよいかもわかりません。 メールの文面はほぼ一緒でそれぞれの相手先に送ります。その際変更したいのは 本文の一行目に来る、送信先の相手の名前です。 自分にもBCCでその履歴が欲しいです。 これを実現するためにはどうすればよいか教えてください。エクセルVBAならできますが、時間が無いので出来合いのものか、ソースコードをコピーして使えるとうれしいです。 使い方を誤るとスパムメールを作ることができますね… よろしくお願いします。

みんなの回答

  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.1

参考になりそうなのだと。。。 •基本 http://www.red.oit-net.jp/tatsuya/vb/Outlook.htm •Outlook VBA（Excel情報を読み込んでメールを自動送信する方法） http://peiyorin.cocolog-nifty.com/blog/2009/05/outlook-vbaexce.html http://peiyorin.cocolog-nifty.com/blog/2009/05/outlook-vbaex-1.html ■OUTLOOK系のVBA関連のサイト •Outlook 2010 VBA の基礎知識 https://msdn.microsoft.com/ja-jp/library/office/ee814736(v=office.14).aspx •Outlookサポートナビ！／Outlookフォーム作成／VBSプログラミング http://outlook-navi.com/vbs/OutlookFormProgramming.htm •Outlook 研究所 https://outlooklab.wordpress.com/

piyo-maru7
質問者

お礼

ありがとうございました。今回は、OutlookでのVBAではなくてExcelを利用して、そこからOutlookオブジェクトを操作するということに気づいたら簡単ですね。 挙げていただいたOutlookでのVBAも便利そうです。また勉強させていただきます。 ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • Outlook2013自動送信が出来ません。

    はじめまして、いつもお世話になっております。 excel vba の学習を始めたばかりの初心者です。 あるサイトで自動でoutloook2013を起動しファイルを添付して送信するマクロを 見つけ送信しようとしましたが、『コンパイルエラー』の為、上手くいきません。 どなたか画像をご確認いただき、修正方法をご教示いただきたく存じます。 よろしくお願いいたします。 以下がコンパイルエラーの出たプロシージャ（抜粋） 黄色のライン→Sub sendmail_sample1() 反転→Dim outlookObj As Outlook.Application 'Outlookで使用するオブジェクト生成 以下がコンパイルエラーの出たプロシージャ（全体） Sub sendmail_sample1() '---コード1｜outlookを起動する Dim toaddress, ccaddress, bccaddress As String '変数設定：To宛先、cc宛先、bcc宛先 Dim subject, mailBody, credit As String '変数設定：件名、メール本文、クレジット、添付 Dim outlookObj As Outlook.Application 'Outlookで使用するオブジェクト生成 Dim mailItemObj As Outlook.MailItem 'Outlookで使用するオブジェクト生成 '---コード2｜差出人、本文、署名を取得する--- toaddress = Range("B2").Value 'To宛先 ccaddress = Range("B3").Value 'cc宛先 bccaddress = Range("B4").Value 'bcc宛先 subject = Range("B5").Value '件名 mailBody = Range("B6").Value 'メール本文 credit = Range("B7").Value 'クレジット '---コード3｜メールを作成して、差出人、本文、署名を入れ込む--- Set outlookObj = CreateObject("Outlook.Application") Set mailItemObj = outlookObj.CreateItem(olMailItem) mailItemObj.BodyFormat = 3 'リッチテキストに変更 mailItemObj.To = toaddress 'to宛先をセット mailItemObj.CC = ccaddress 'cc宛先をセット mailItemObj.BCC = bccaddress 'bcc宛先をセット mailItemObj.subject = subject '件名をセット '---コード4｜メール本文を改行する mailItemObj.Body = mailBody & vbCrLf & vbCrLf & credit 'メール本文 改行 改行 クレジット '---コード5｜自動で添付ファイルを付ける--- Dim attached As String Dim myattachments As Outlook.Attachments 'Outlookで使用するオブジェクト生成 Set myattachments = mailItemObj.Attachments attached = Range("B9").Value '添付ファイル myattachments.Add attached attached = ThisWorkbook.Path & "outlookメール操作.xlsm" '---コード6｜メールを送信する--- 'mailItemObj.Save '下書き保存 mailItemObj.Display 'メール表示(ここでは誤送信を防ぐために表示だけにして、メール送信はしない) '---コード7｜outlookを閉じる(オブジェクトの解放)--- Set outlookObj = Nothing Set mailItemObj = Nothing

  • 同報・差し込み等ができるメールソフト

    こんなメールソフトを探しています。 ・同報メールが送れる ・本文差し込みができる（件名も出来たら嬉しい） ・TOとBCCの両方がある ・送信履歴が残る（全文） フリー・シェア・パッケ、またはASP、なんでもOKです。 MatoMailer1.6を使っていたのですが、履歴で本文が全部残らなかったり、BCCが無かったり…と。 なにか情報・オススメがありましたら是非教えて下さい_(．．)_

  • Outlook VBAで「返信先の指定」を行いたい

    当方、Exchange 2003 (Win 2003) + Outlook 2003 or 2010 (Win XP or Win7)を利用しています。 特定のメールアドレス(例：sample@hoge.com)宛てにメールを受信した際に自動で、「返信先の指定」(例：reply@hoge.com)を行ったメールを作成、送信したいのですが実現方法が分からず難儀しており、 有識者の方のお知恵を拝借したくお願いいたします。 Outlook VBA にて件名や本文を自動で入力するマクロは作成できましたが、「返信先の指定」の実現方法が分からないです。 また、上記が実現できた後、自動送信は仕訳ルールにて、「スクリプトの実行」か「アプリケーションの開始」にてマクロを動かせば良いのではないかと考えていますが、その後の方針としてはこれで実現できますでしょうか？

  • ExcelVBAで自動的にメールを送りたい

    　ExcelVBAで、指定した宛先やCC,BCC、件名や本文をメール送信したいのですが、可能でしょうか。 　SendMailメソッドを使う方法があると思いますが、ブックを添付して送信しなければならず（間違っていたらご指摘ください）、何もブック等を添付せずにメール送信したいのです。 　可能でしたら、その方法をご教授ください。 よろしくお願いします。

  • アウトルックでメール送信時に自動的に番号を付与したい

    アウトルックで、メール送信する際に、本文に例えば、「管理番号：YS06-100M」（送信毎に101、102とカウントしていく）を自動的に付与するVBAを作ることは出来るのでしょうか？ エクセルからメール送信する場合で本文に記載する方法は現在行っています。 方法をご存知の方教えてください。

  • OutlookでG-mailを送るとBCCで戻る？

    OutlookでG-mailを送るとBCCで戻る？ OutlookやWindowsLiveMail等でG-mailのアカウントでメールを送信すると、BCCにアカウントのGmailをいれたかのように戻ってきます。 目的の送信先には確かに届いています。 まるでBCCにいれたかのように、戻ってきたメールの（宛先：）や（CC:）には、アカウントのGmailはありません。まるで、BCCにアカウントのGmail入れたかのようです。 因みに、異なるPCでチャレンジしても同じように戻ります。 よろしくお願いします。

  • Ｏｕｔｌｏｏｋの受信メール印刷で

    受信メールを印刷するときに相手側からの宛先が多いと送信先のアドレスばかり印刷され本文が見にくく困ってます。 印刷する際、相手からの送信先を印刷しない方法があれば教えてください。

  • Outlook express5について

    Outlook Express5でBCCでメールを送信したのですが、送信済みのメールにBCCで送った人のメールアドレスを表示することができますか？ 送った先にはBCCが見えないですが、送る側でも見える方法はないでしょうか？教えていただけたらうれしいです。

  • VBA　エクセル＋アウトルックで自動メール送信

    エクセル、アウトルックともに2003です。 VBAは初心者でほとんど分からないのですが、下記のようなことはできますか？ エクセル、シート１に顧客管理台帳を作りました。 A1セル　メールタイトル(共通) A2セル　会社名 A3セル　担当者名 A4セル　Eメールアドレス エクセル、シート2には送信する基本文章を入れようと思ってます。 A1セル　　　　会社名が反映されるように A2セル　　　　担当者名が反映されるように A3～A5セル　用件 シート1は50件ほどの顧客リストとなってます。 マクロ(VBA？)で1件ずつ、メールアドレス・タイトル、本文に会社名・担当者・用件が自動で入るようにしたいのですが、このようなことはできるのでしょうか？ 送信前に内容を一応チェックしてから送信したいと思ってますので、送信ボタンを押すのは手動にしたいです。

  • OUTLOOK BCCの上手な使い方

    はじめて質問します。 先日メールを同報送信する際、BCCをCCで送っちゃいました。 当然、相手先には他のメールアドレスがばれてしまいました。 ちゃんと意識して、連絡先から登録済みのグループをBCCに指定すればいいのですが、ぼーっとしていたのでしょうか、ついやっちゃいました。 今後、ついやっちゃったと言うことがないようにしたいのですが、連絡先で送信先をダブルクリックすると必ずBCCに指定する方法にならないかなと思って質問しました。 当方の環境は WINDOWS XP pro sp3 MS-OUTLOOK2003 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する