
VBA マクロについて VBA マクロについて助けてください。 同一内容で添付フ...
2016/10/711:32:21
VBA マクロについて
VBA マクロについて助けてください。
同一内容で添付ファイルが異なるメールを一括で作成しようとマクロを作成したのですが、確認頂けないでしょうか。
マクロ①
Enum 列
企業名 = 2
氏名
宛先
件名
添付ファイル
End Enum
Option Compare Text
Private Sub CommandButton1_Click()
Dim ol As New Outlook.Application
Dim m As MailItem
Dim maxrow: maxrow = Range("b4").End(xlDown).Row
Dim oftfile As String
ChDrive "C:\"
ChDir "C:\Users\AA\Desktop\メール一括作成\"
oftfile = Application.GetOpenFilename("テンプレート,*.oft", 1, "テンプレートの選択")
If oftfile = "False" Then
Exit Sub
End If
For i = 5 To maxrow
Set m = ol.CreateItemFromTemplate(oftfile)
On Error GoTo Err
m.To = Cells(i, 列.宛先).Value
m.Subject = Cells(i, 列.件名).Value
m.Attachments.Add "C:\Users\AA\Desktop\メール一括作成\添付ファイル\" & Cells(i, 列.添付ファイル).Value
m.HTMLBody = Replace(m.HTMLBody, "□□", Cells(i, 列.企業名).Value)
m.HTMLBody = Replace(m.HTMLBody, "●●", Cells(i, 列.氏名).Value)
m.SaveAs "C:\Users\AA\Desktop\メール一括作成\作成メール\" & Cells(i, 列.企業名).Value & "_" & Cells(i, 列.氏名).Value & ".msg"
Next i
MsgBox "メールの作成が終了しました。", vbOKOnly + vbInformation
Exit Sub
End Sub
マクロ②
Private Sub CommandButton2_Click()
Dim i As Long, buf As String
Dim NM As String, r As Long
Const Path As String = "C:\Users\AA\Desktop\メール一括作成\添付ファイル\"
r = 5
i = 5
Do While Range("b" & r).Value <> ""
NM = Range("b" & r).Value
buf = Dir(Path & "*" & NM & "*.*")
Do While buf <> ""
Range("F" & i).Value = buf
i = i + 1
buf = Dir()
Loop
r = r + 1
Loop
End Sub
やりたいこと
1.マクロ②を使用して企業名の入った添付ファイルを自動抽出しているが、対象の添付ファイルがない場合、空欄にしておきたい。
2.添付ファイル名が空欄のものについては、メールを作成しないようにしたい。エラー表示もしない。
見よう見まねで作ったマクロなので、ここからどのように修正すればよいか教えてください。
ベストアンサーに選ばれた回答
2016/10/711:36:52
返信を取り消しますが
よろしいですか?
- 取り消す
- キャンセル
この回答は投票によってベストアンサーに選ばれました!
このカテゴリの回答受付中の質問
- Excel2003~2016と日本語・英語・中国語を皆で共有する為ユニコードでマクロコー...
- PCからスプレッドシートで条件付き書式設定で1以下を色変えたくて設定したました...
- 分光光度計を使用して、タンニン値を測定するのに没食子酸エチルの希釈液を10~10...
- エクセルのある区間における最大値の抽出について 計測器でcsvにおとしたデータを...
- Windows 10 Excel 2016 Excelのシート内に外部Wordファイル、もしくはWord onlin...
- エクセル2013のヘッダーとフッターについて エクセル2013の上にある「挿入」の...
- OS win10 エクセル2016の不具合 セルの内容が数式バーに表示されません。数式バ...
- excel VBAの保護されたビューについて質問です。 ブックを開く時にて、 ブックが...
- エクセルの microsoft barcode control16.0で作成した QRコードですが、勝手にサ...
- xe^(-x) = 0.1 のとき、xの値はどのように求めればよいでしょうか。 ご教示くだ...
このカテゴリの投票受付中の質問
- Excel(エクセル)についてですが、 例えば8:00と入力する際に 8と0といっ...
- #VALUE!が出たセルだけ消せないでしょうか? ファイルのオプション→詳細設定→計...
- 勤務時間の計算式を教えてください。 ①08:30~17:00 午前15分休憩 午後15分休憩...
- 質問です。 エクセルは基礎知識しかないので、質問の内容がわかりにくいと思いま...
- スプレッドシートのセル内に、 仮に123,12,1233といった文字があった時、 カン...
- エクセルを使用してA4の紙に、CSVから読み取った顧客データを任意の場所に配置し...
- excelについての質問です。 特定のワードを含む部分のみを別のセルに抽出した...
- エクセルマクロについて。 •メッセージボックスを表示→その後の動作を中止 と...
- Excelの関数の作り方がわからないので、教えて下さい。 A列に日付 B列に0又は1...
- エクセルに関して教えて下さい。 エクセルに関して教えて下さい。 割合の計算をし...
カテゴリQ&Aランキング
- 戻る
- 次へ
総合Q&Aランキング
Yahoo!知恵袋カテゴリ
お客様自身の責任と判断で、ご利用ください。

