Блог

пожалуйста, нажмите, чтобы просмотреть скриншот Как мне скопировать сведения в каждой строке с заголовком таблицы и отправить скопированные данные на адрес электронной почты в этой строке?

Я пробовал несколько способов решить эту проблему, но не могу найти решение:

По сути, мне просто нужно скопировать то, что находится в строке, отправить скопированные значения на адрес электронной почты в этой строке.

Вот мой код:

 Sub AutoSendMail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    
    On Error GoTo cleanup
    For Each cell In Columns("E").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
            LCase(Cells(cell.Row, "F").Value) = "yes" Then

            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "VBA TEST"
                .Body = "Dear " amp; Cells(cell.Row, "A").Value _
                    amp; vbNewLine amp; vbNewLine amp; _
                    "Hello, this is a vba test, please ignore. " amp; _
                    "Thank you!"
                'You can add files also like this
                '.Attachments.Add ("C:test.txt")
                .Display  'Or use Display
            End With
            On Error GoTo 0
            Cells(cell.Row, "G").Value = "SENT"
            Set OutMail = Nothing
        End If
    Next cell

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub