- ベストアンサー
エクセル情報を使ってメールを作成する方法
- 申込者が100人を超える会社主催の講演会の対応をいきなり一人で任され、大変困っています。
- エクセルの申込者リストの情報を利用して、アウトルックでのメールを自動作成するようなマクロは作成可能でしょうか？
- 申込者リスト（エクセル）の情報を使用して、各申込者に受付番号を振った申込受付メールを送りたいです。
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
ご希望の操作をするには、以下のページを参考にして、Wordの差し込み印刷の機能を利用して電子メールに差し込みするのが簡単です。 http://support.microsoft.com/kb/294694/
その他の回答 (2)
- hallo-2007
- ベストアンサー率41% (888/2115)
VBA案ですが エクセルでOutLookのコードが使える様にしますが。 VBエディターの ツール＝＞参照設定 から Micosoft Outlook 10.0 Object を探してチェックを入れておきます。 シートの上の方に A B C 受付番号 氏名 メールアドレス 受付番号 氏名 メールアドレス ・・・・ ・・・・とデータが入っているとして に準備して A2セルに受付番号を入れるとVlookup関数で B2セルに メールアドレス C2セルに 氏名が出るように準備しておきます。 そして D2セルに =B1&"様"&Char(10)& "お申込みありがとうございます。"&Char(10)& "あなたの受付番号は"&A2&"になります。"&Char(10)& "当日は受付にて上記番号をお申し出下さい。" とメールする本文が表示されるように関数を準備します。 VBエディターを起動して Sub ボタン1_Click() Dim myOLApp As Object Dim myDATA As MailItem Set myOLApp = CreateObject("Outlook.Application") Set myDATA = myOLApp.CreateItem(olMailItem) '### メールの宛先、題名、本文を設定する。 myDATA.To = Range("C2").Value myDATA.Subject = "講演会受付番号のご連絡" myDATA.Body = Range("D2").Value '### メールを送信 myDATA.Send Set myDATA = Nothing Set myOLApp = Nothing End Sub と云った感じで C2セルのメールアドレスに D2セルの内容を本文としてメールが送信されます。 うまく出来ましたら For～Next文 或いは Do～Loop文でボタン一つでデータの最後の行まで繰り返すように すれば良いでしょう。 最初はきちんと確認しながら使ったほうが失敗が許されないので安全だと思います。
- 某HN クロメート(Chromate)（@CoalTar）
- ベストアンサー率40% (705/1742)
マクロは当方にとって難しそうだったので http://www.ngo-jvc.net/blogs/wfn/2008/05/excel.html ハイパーリンク関数 =HYPERLINK("mailto:"&C2&"?subject=講演会の件& body="&B2&" 様%0a%0aお申込みありがとうございます。%0a あなたの受付番号は "&A2&" になります。%0a 当日は受付にて上記番号をお申し出下さい。") 使ったことはありませんがフリーソフト(アドイン)があるようです。 エクセルでＥメール＋ http://e-mail.k-solution.info/
お礼
どうもありがとうございます。 早速月曜日会社のPCで試してみます。
お礼
どうもありがとうございます。 差し込み印刷ならよくやっているので、何とかなりそうです。 早速会社のPCで試してみます。