Как редактировать макрос, который автоматически отправляет электронные письма, чтобы избежать повторной отправки электронных писем после обновления списка электронных писем - PullRequest
Новая
       14

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

0 голосов
/ 14 декабря 2018

Я создал макрос для автоматической отправки электронных писем группе людей.Этот процесс будет выполняться ежедневно.Однако я не хочу отправлять несколько раз одно и то же электронное письмо одному и тому же человеку, который может появляться каждый раз в моем списке.Есть ли способ просмотреть отправленные элементы в Outlook, чтобы избежать отправки электронной почты несколько раз?Ниже мой код.Большое спасибо! 

Sub Mail_small_Text_Change_Account()

    Dim cel As Range
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo cleanup
    For Each cell In Columns("D").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
           Cells(cell.Row, "E") = "T" Then

    strbody = "Dear " & Cells(cell.Row, "C").Value _
                      & vbNewLine & vbNewLine & _
                        "Please contact us " & _
                        "to date"

    Set OutMail = OutApp.CreateItem(olMailItem)
    On Error Resume Next
        With OutMail
            .To = cell.Value
            '.CC = cel.Offset(0, 3).Value
            .Subject = "Subject"
            .Body = strbody
            .SendUsingAccount = OutApp.Session.Accounts.Item(2)
            .Display   'or use .Send
            End With
            On Error GoTo 0
            Set OutMail = Nothing
        End If
    Next cell

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