ログインしてさらにmixiを楽しもう

コメントを投稿して情報交換!
更新通知を受け取って、最新情報をゲット!

Excel(エクセル)活用コミュのSendMailメソッドでメール本文を付けるには

  • mixiチェック
  • このエントリーをはてなブックマークに追加
以前、ここで資料請求データを請求先で分類し、それぞれファイルを作る方法を教えていただいたものです。
このプログラムは無事に動き、さらに請求先のメールアドレスを配列に入れてSendMailメソッドで自動的にブックを貼付して送ることもできました。

ActiveWorkbook.SendMail Recipients:=mail(i)

ところが、これで送ったメールには本文が入りません。できればセルに担当者名などを入れておき、メール本文に挨拶文とともに自動挿入できるようになるといいのですがExcel VBAで実現する方法はあるでしょうか。

よろしくお願いします。

コメント(2)

これが参考になりませんか?どう?

http://mixi.jp/view_bbs.pl?id=4208485&comm_id=2106
> 素浪人さん
ありがとうございました。
結局、BASP21を使って処理することができました。
http://www.hi-ho.ne.jp/~babaq/basp21.html

ToもCcも本文も全部vlookupでコピーして配列に取り込んで。

MyfileName = cDir & aryCode(i) & "_" & myDate
mailAddress = mailTo(i) & vbTab & "cc" & vbTab & mailCc(i)
msg = bobj.SendMail(Server, mailAddress, MailFrom, Subject, mailBody(i), MyfileName & ".xls")

ログインすると、みんなのコメントがもっと見れるよ

mixiユーザー
ログインしてコメントしよう!

Excel(エクセル)活用 更新情報

Excel(エクセル)活用のメンバーはこんなコミュニティにも参加しています

星印の数は、共通して参加しているメンバーが多いほど増えます。