質問: outlookで作成したメール数100件にまとめて添付ファイルをつけたい 職場でoutlook2007を使っています。 試験の結果を学生に送信する場合、wordの差し込み印刷機能を使って各データを添付ファイルとして送信します。 この時に、いったん送信ボックスに置いたメール(成績通知のwordファイルが添付済)に、全学生共通のお知らせが書かれたpdfファイルを、すべてのメールに一度で追加する方法があったら教えてください。 件数が多いので、まとめて添付が出来ると良いなと思ったのですが...
回答: なかなか回答がつかないようなので、とりあえず叩き台として。 私はoutlook2003を使用しているのですが、マクロを使わない限り難しいようです。 (2007に新機能でもあれば別です) で、見よう見まねで書いてみました。 動作の概要 ダイアログで選択したファイルを、直前に選択していた全てのメールに添付する。 (すでに添付ファイルがある場合も、それにプラスして添付します) sub sample() set xlapp = createobject("excel.application") set myselectedmailitems = application.activeexplorer.selection myattachment = xlapp.getopenfilename() if myattachment = false then exit sub for each item in myselectedmailitems item.attachments.add myattachment item.save next item end sub (outlook2003で動作確認) いろいろとダメ出しされそうなコードですが、一応動くことは動くはずです。 なお、わけあって、excelがインストールされている必要があります。 wordで差し込んだ上にoutlookでvbaを使うくらいなら、いっそ、 「成績管理・アドレス管理からメール送信まで、一貫してexcelvbaでやる」 というのも選択肢になるかもしれません。