![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
個別に違う添付ファイルを付けて一括でメール配信をしたいのですが、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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Excel(エクセル) アンケート集計用VBAについて教えて下さい。 約100人にアンケート内容が入ったExcelファイルを 1 2022/07/27 13:12
- PDF PDFを自動添付したメールを送信してくれるツールを探しています。 2 2023/02/07 15:19
- Gmail 会社のメルアドから個人のGmailアドレスに送ったら、「このメールにはご注意ください」と警告が出た 2 2022/05/26 15:12
- その他(メールソフト・メールサービス) メールソフトを教えてください 1 2023/03/28 23:32
- Android(アンドロイド) Aloha Browser でダウンロードしたファイルをPCに転送するには? 1 2022/05/23 18:54
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/03/28 14:52
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
個別添付つきメールの一斉送信について
Excel(エクセル)
-
WORDの差し込み文書の電子メール送信。「添付」形式で送信できません。
その他(Microsoft Office)
-
Wordの差し込み印刷でメールと添付資料を一括送信したい。
Word(ワード)
-
-
4
Wordで差込印刷した後に別々のファイル名をつける
Word(ワード)
-
5
多数の人へ本文の一部分だけ違う内容のメールを一斉送信する方法
Yahoo!メール
-
6
wordで10ページのものを1ページずつ分けたファイルにするには?
Word(ワード)
-
7
アクセスVBAでメールを送信(複数宛先・添付)
その他(パソコン・スマホ・電化製品)
-
8
【Excel関数】UNIQUE関数で0"を返さない方法?"
Excel(エクセル)
-
9
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
10
差し込み後、元データを変更し 差し込み先に反映させるには?
Access(アクセス)
-
11
ページを抜粋して保存できますか?
Word(ワード)
-
12
【Excel】 VBAを使って毎回名前が変わるファイルを添付してメール送信したい。
Excel(エクセル)
-
13
VBAのフォント変更(エクセルからoutlookのメール作成において)
Visual Basic(VBA)
-
14
一人一人にメールを送信する一括以外の効率的な方法を教えてください
その他(メールソフト・メールサービス)
-
15
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
16
敬称「氏」
その他(暮らし・生活・行事)
-
17
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
18
「御社」のように「団体」を丁寧に呼ぶには?
日本語
-
19
エクセルでエラーが出て困っています。
Excel(エクセル)
-
20
振り込み相手の口座名義はどこまで書けば振り込めるか?
銀行・ネットバンキング・信用金庫
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
個別に違う添付ファイルを付け...
-
e-taxで送信ファイルの拡張子が...
-
ファミコンソフトの裏に書いた...
-
ケイタイのiモーションをパソコ...
-
A4の紙に印刷されている文字を...
-
ガラケーからPCへの写真の取り込み
-
エクセルのVBAが起動するけどす...
-
拡張子「.IDJ」を、windo...
-
USBメモリーで無線でPC転送でき...
-
クラリスインパクトに替わるソ...
-
PC内で速度を遅くした音源をCD...
-
iPhoneの内蔵の記憶媒体は、HDD...
-
イベントハンドルのリーク(?)
-
エアコンの冷媒 R410Aの重...
-
2枚、マイクロSDカードを入...
-
ビデオファイルのプロパティの...
-
写真が出ない
-
TrueTypeフォントのファイル構...
-
人体切断マジックの事で、お聞...
-
多数の見開き画像を自動で二分割
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
個別に違う添付ファイルを付け...
-
A4の紙に印刷されている文字を...
-
e-taxで送信ファイルの拡張子が...
-
エクセルで「特定の文字を含む...
-
スマホでtxtファイルを編集する...
-
ガラケーからPCへの写真の取り込み
-
PC内で速度を遅くした音源をCD...
-
VBS フォルダ内にあるすべての...
-
エアコンの冷媒 R410Aの重...
-
iPhoneの内蔵の記憶媒体は、HDD...
-
stdio.hの中身
-
ビデオファイルのプロパティの...
-
2枚、マイクロSDカードを入...
-
ファイル数と合計サイズの取得方法
-
拡張子「.IDJ」を、windo...
-
プロ野球の結果を教えてください
-
VBA:カウンターの i の値が開放...
-
複数のブックを新しいブックのS...
-
SDカードを挿してるのに挿入し...
-
TextBoxにフォーカスを与えると...
おすすめ情報