使用 Excel VBA 发送带有 Outlook 的电子邮件

Question

我有 3 列：A）企业 B）Email 地址匹配企业 C）是或否

如果 C 栏中为“是”，我想自动向 B 栏中的电子邮件发送消息

谢谢你的建议。

这是我现在得到的，但它不起作用，什么也没有发生。 当我运行脚本时，如果 C 列中有“是”，它只会在 D 列中写入“发送”。

Sub Test2()

    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim cell As Range

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo cleanup
    For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
           LCase(Cells(cell.Row, "C").Value) = "yes" _
           And LCase(Cells(cell.Row, "D").Value) <> "send" Then

            Set OutMail = OutApp.CreateItem(olMailItem)

            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "Reminder"
                .Body = "Dear " & Cells(cell.Row, "A").Value _
                      & vbNewLine & vbNewLine & _
                        "Please contact us to discuss bringing " & _
                        "your account up to date."
                        Attachments.Add ("\\mtr.intra\367$\profils\R06C286A\_RD\NASC02\Desktop\testtest123.pdf")
                               .Send  
            End With
            On Error GoTo 0
            Cells(cell.Row, "D").Value = "send"
            Set OutMail = Nothing
        End If
    Next cell

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