Макрос для удаления конкретного получателя из ответа всем VBA-OUTLOOK - PullRequest
Новая
       16

Макрос для удаления конкретного получателя из ответа всем VBA-OUTLOOK

0 голосов
/ 31 мая 2019

Как видно из заголовка - я хочу, чтобы мой макрос удалил нашу общую папку «Входящие» из получателей.Когда я получаю электронное письмо для этого почтового ящика, макрос выполняет кнопку «Ответить всем», он всегда отвечает и на этот общий почтовый ящик, создавая таким образом беспорядок.К сожалению, часть кода, ответственная за удаление электронной почты, вообще не работает

Ниже кода, включенного 

Sub MSGREPLY()

Dim mail
Dim replyall
Dim recip As Recipient

For Each mail In Outlook.Application.ActiveExplorer.Selection
    If mail.Class = olMail Then
        Set replyall = mail.replyall

        For Each recip In replyall.Recipients
                If (recip.Address) = "EmailAddressHere" Then
                    recip.Delete
                        Exit For
                            End If
                                Next

        With replyall
            .Body = "Message" & vbCrLf & .Body
            .Display
            .Send
        End With
    End If
Next

End Sub

Есть советы или возможное решение?

...