excel - セルをループしてメールを送信する

Question

こんにちは、C 列のアドレスに電子メールを送信し、F 列の電子メール アドレスといくつかのテキストにコピーするマクロがあります...しかし、私の問題は、各名前をループしていないことです。最後のもの...誰かが私が間違っていることを理解するのを手伝ってくれますか?

Sub Send_Email()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim cel As Range

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

For Each cel In Range(("C2"), Range("C2").End(xlDown))

    strbody = "Hi there" & vbNewLine & vbNewLine & _
            "My name Is William" & vbNewLine & _
            "I work at Fair" & vbNewLine & _
            "Bye" & vbNewLine & _
            "WH"

    On Error Resume Next
    With OutMail
        .To = cel.Value    '"email.address@fair.com"
        .CC = cel.Offset(0, 3).Value & "Ivan.Martinez@fair.com"
        .BCC = ""
        .Subject = "Information You Requested"
        .Body = strbody
        .Display
        '.Attachments.Add ("C:\test.txt")
        '.Send
    End With
    On Error GoTo 0
Next cel

Set OutMail = Nothing
Set OutApp = Nothing

サブ終了

Answer 1

For Each cel In Range(("C2"), Range("C2").End(xlDown)).Cells