個別に違う添付ファイルを付けて一括でメール配信をしたいのですが、EXCELやACCESSのVBA、またはソフトなどご存知の方いませんか。
例)
送信先 添付ファイル 本文(同じ)
田中さん excel01.xls 添付いたしましたファイルの内容にて、お願いします。
鈴木さん excel02.xls 添付いたしましたファイルの内容にて、お願いします。
;
;
添付ファイルが1つで、多数の方に送信できるフリーソフトはあったのですが、それぞれに送れる方法が
知りたいです。(添付ファイルは 1つのフォルダにあるとして)
100件位、あるので毎回 通常のメールに添付するのが面倒なのです。
宜しくお願いします。
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 にチェックを入れておきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
個別添付つきメールの一斉送信について
Excel(エクセル)
-
Wordの差し込み印刷でメールと添付資料を一括送信したい。
Word(ワード)
-
WORDの差し込み文書の電子メール送信。「添付」形式で送信できません。
その他(Microsoft Office)
-
-
4
Wordで差込印刷した後に別々のファイル名をつける
Word(ワード)
-
5
多数の人へ本文の一部分だけ違う内容のメールを一斉送信する方法
Yahoo!メール
-
6
アクセスVBAでメールを送信(複数宛先・添付)
その他(パソコン・スマホ・電化製品)
-
7
差し込み印刷の元データファイルの探し方
Excel(エクセル)
-
8
wordで10ページのものを1ページずつ分けたファイルにするには?
Word(ワード)
-
9
「パスとファイル名が正しいかどうか確認してください」と表示されるのですが…
その他(パソコン・スマホ・電化製品)
-
10
宛先だけ変更して同じ内容のメ-ル(添付ファイル)を多数の方へ送りたいですが
Windows Vista・XP
-
11
ひとつのファイルを一括で複数のフォルダにコピーする方法はありませんか
Windows Vista・XP
-
12
Thunderbird 「後で送信」の設定方法
フリーソフト
-
13
Acccess レポートをグループ別に出力する
Visual Basic(VBA)
-
14
教えてください。 パソコンの用語で「ローカルへファイルを保存」などという時、パソコンのどこになります
その他(IT・Webサービス)
-
15
Wordでこのような三角が出てくるようになってしまったのですがどうやったら消せますか?
Word(ワード)
-
16
ACCESSで自動でメールをおくる時に任意のアドレスに送りたい
Access(アクセス)
-
17
ワードかエクセルで、KOKUYOのタックインデックスを使って
Word(ワード)
-
18
振り込み相手の口座名義はどこまで書けば振り込めるか?
銀行・ネットバンキング・信用金庫
-
19
Excelで住所を2つ(町名迄と番地以降)に分けるには?
Excel(エクセル)
-
20
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PC内で速度を遅くした音源をCD...
-
スマホでtxtファイルを編集する...
-
VBA:カウンターの i の値が開放...
-
個別に違う添付ファイルを付け...
-
拡張子「.IDJ」を、windo...
-
A4の紙に印刷されている文字を...
-
RaspberryPi にUSBメモリを接続...
-
ガラケーからPCへの写真の取り込み
-
garagebandのLR Mixの方法について
-
ビデオファイルのプロパティの...
-
パソコン名、IPアドレスをH...
-
Fortniteのクラッシュについて
-
iosのshortcutアプリでmp3を連...
-
革に付いてしまったマジック(ペ...
-
エクセルのセルからフォーカス...
-
iphoneでネット画像を保存でき...
-
2枚、マイクロSDカードを入...
-
typedefのスコープに関して。
-
TextBoxにフォーカスを与えると...
-
会社で使えるイラスト
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PC内で速度を遅くした音源をCD...
-
個別に違う添付ファイルを付け...
-
A4の紙に印刷されている文字を...
-
e-taxで送信ファイルの拡張子が...
-
ガラケーからPCへの写真の取り込み
-
2枚、マイクロSDカードを入...
-
エクセルで「特定の文字を含む...
-
エアコンの冷媒 R410Aの重...
-
iPhoneの内蔵の記憶媒体は、HDD...
-
情けない話ですが成田エクスプ...
-
ビデオファイルのプロパティの...
-
Fortniteのクラッシュについて
-
VBS フォルダ内にあるすべての...
-
カメラのフラッシュは大丈夫?
-
拡張子「.IDJ」を、windo...
-
スマホでtxtファイルを編集する...
-
VBA:カウンターの i の値が開放...
-
TextBoxにフォーカスを与えると...
-
ファイル数と合計サイズの取得方法
-
GIMP separate+プラグイン クラ...
おすすめ情報