ここに質問の内容を詳しく書いてください。
表題のように、Outlookと連携し会社ごとに対応した添付ファイルをつけて、一括送付するVBAを作りたいと考えています。
メール作成に必要なデータは全て一つのSheet(Contents)に記載しています。
VBA初心者でまだ理解不足が多く、どなたかお力添えいただければ幸いです。
発生している問題・エラーメッセージ
『実行時エラー 424 オブジェクトが必要です』
該当のソースコード
Sub Invoice用一括メール送信マクロ2() Dim objOutlook As outlook.Application Dim i Dim rowMax As Long Dim wsMail As Worksheet Dim objMail As outlook.MailItem Set objOutlook = CreateObject("outlook.Application") Set wsMail = ThisWorkbook.Sheets("Contents") With wsList '送信先の件数 rowMax = .Cells(Rows.Count, 1).End(xlUp).row '送信先の件数分繰り返す For i = 2 To rowMax Set objMail = objOutlook.CreateItem(olMailItem) objMail.To = wsMail.Cells(i, 1).Value 'メールTo宛先' objMail.CC = wsMail.Cells(i, 2).Value 'メールCc宛先' objMail.subject = wsMail.Cells(i, 3).Value 'メール件名' objMail.BodyFormat = olFormatPlain 'メール文頭' objMail.body = wsMail.Cells(i, 4).Value & vbCrLf & _ wsMail.Cells(i, 5).Value & " san" & vbCrLf & vbCrLf & _ wsMail.Cells(i, 6).Value 'メール本文' '--- 添付ファイル設定 ---' Dim Wm_ITEM Dim folder As String Dim FileName As String folder = wsMail.Cells(i, 7).Value FileAd = wsMail.Cells(i, 8).Value Wm_ITEM.Attachments.Add folder & "\" & FileName '--- メールの送付の実行---' objMail.Display Next i Set objOutlook = Nothing MsgBox "送信完了 / Send completely" End With End Sub
試したこと
Setを追記
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。