VBA初心者です。

VBA初心者です。
エクセルのVBAを用いて宛先毎に指定の添付を送りたいと思います。
さらに送信されたかわかるようにエクセルのB列に送信状況がわかるようにしたいのですがどんな文法をいれてよいのかわかりません。教えていただけると大変助かります。
下記のどごにどのようにすればよいでしょうか。
Sub outlook()

Dim oApp
Dim Wm_ITEM
Dim Wm_TO
Set oApp = GetObject(, "Outlook.Application")

Dim folder As String
Dim FileName As String
Dim row As Long
Dim shname As String

row = 2
shname = "提供票送付事業所一覧"

Do Until row = 150

Set Wm_ITEM = oApp.CreateItem(0)
Wm_TO = ""
WS_OutLk = ""

If ThisWorkbook.Sheets(shname).Cells(row, 1) <> "" Then

Wm_ITEM.To = ThisWorkbook.Sheets(shname).Cells(row, 5)
Wm_ITEM.CC = ThisWorkbook.Sheets(shname).Cells(row, 6)
Wm_ITEM.Subject = ThisWorkbook.Sheets(shname).Cells(row, 7)
Wm_ITEM.Body = ThisWorkbook.Sheets(shname).Cells(row, 3) & _
ThisWorkbook.Sheets(shname).Cells(row, 4)
Wm_ITEM.Body = Wm_ITEM.Body _
& vbCrLf _
& ThisWorkbook.Sheets(shname).Cells(row, 8)

folder = ThisWorkbook.Sheets(shname).Cells(row, 9).Value
FileName = ThisWorkbook.Sheets(shname).Cells(row, 10).Value

Wm_ITEM.Attachments.Add folder & "\" & FileName
Wm_ITEM.display

Wm_ITEM.Save
　 Wm_ITEM.Send

End If

row = row + 1

Loop

MsgBox "完了"

End Sub

No.2 回答者： fujillin 回答日時： 2022/10/10 13:32

こんにちは

>エクセルのB列に送信状況がわかるようにしたい
内容的に現状のままで良いのなら、
　Worksheets(shname).Cells(row, 2).Value = "送ったよ！"
の一行を、End If の前に追加するとか。

No.1 回答者： Qchan1962 回答日時： 2022/10/10 12:40

こんにちは

＞宛先毎に指定の添付を送りたいと思います。
掲示のコードで出来ているのでは無いでしょうか？

＞B列に送信状況がわかるようにしたいのですが
A列の対象セルが空白でない場合にその行の情報に基づき実行されるコードですね
なのに、B列に何を入れるのでしょうか？　
対象行を実行したよ　みたいな事でしょうか？
エラートラップなどを追加して何だかのエラーなどを返すとかでしょうか？

html特殊文字で読みにくいのですが、ご質問者様は提示のコードを理解していますか？