ここから本文です

VBA マクロについて VBA マクロについて助けてください。 同一内容で添付フ...

dit********さん

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.添付ファイル名が空欄のものについては、メールを作成しないようにしたい。エラー表示もしない。

見よう見まねで作ったマクロなので、ここからどのように修正すればよいか教えてください。

m.HTMLBody,Exit Sub,B&amp;quot,End Sub,添付ファイル,エラー,処理

閲覧数:
72
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

a_h********さん

2016/10/711:36:52

>On Error GoTo Err
エラーが発生した場合、その処理はどこでするの?
飛び先は?

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問は投票によってベストアンサーに選ばれました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる