エクセルで下記のの表（請求明細）を右のメールへoutlookで送信しています次のマクロで できるのですが 下記の表のように2番目のメールが空白だとそれ以降のメール送信ができません それの改善方法と 実際には50人ほど送信する相手がいます 今回は25番目まで送信 今回は49番目まで送信とかセルに指定してできないでしょうか 下記のマクロもご教授いただいたものです どなたかご教授くださいSub test()Dim oApp As ObjectDim oMail As ObjectDim r As LongSet oApp = CreateObject(\u0026quot;Outlook.Application\u0026quot;)For r = 1 To Cells(Rows.Count, 2).End(xlUp).Row Step 6Set oMail = oApp.CreateItem(0)With oMail.BodyFormat = 2.To = Range(\u0026quot;I\u0026quot; \u0026amp; r + 4).Value.Subject = \u0026quot;請求書御中\u0026quot;.DisplayWith .GetInspector.WordEditor.Windows(1).SelectionRange(Cells(r, 1), Cells(r + 4, 5)).CopyPicture.PasteEnd With.Send '送信End WithNext rSet oApp = NothingSet oMail = NothingEnd Sub