Пересылка писем с вложениями всем получателям

Question

Я получаю электронные письма, содержащие отчеты Excel в виде вложения. Все они принадлежат одному и тому же отправителю, но у каждого из них разные получатели.

Пример:

Email # 1

От: John@gmail.com Кому: me@gmail.com; mike@gmail.com

+ 1 вложение файла Excel

E-mail # 2

От: John@gmail.com Кому: me@gmail.com; jessica@gmail.com

+ 1 вложение файла Excel

Мне нужно снова переслать эти электронные письма получателям с приложенным файлом.

Answer 1

Можно создать правило макроса , когда вы получаете письмо от определенного отправителя и запускаете сценарий. Об автоматическом сохранении вложений, пожалуйста, обратитесь к этому коду:

 Sub Save_Attachment(olItem As Outlook.MailItem)
        Dim olAttch As Outlook.attachment
        Dim sPath As String
        Dim acount
        Dim objMsg As MailItem
        Dim recips As Outlook.Recipients
        Dim recip As Outlook.Recipient

    For Each olAttch In olItem.Attachments
           If olAttch.UnRead = True Then
                If olAttch.SenderEmailAddress = "v-shuail@microsoft.com" Then
                    Set acount = olAttch.Attachments.Count
                    If acount > 0 Then
                        Set objMsg = Application.CreateItem(olMailItem)
                        Set recips = olAttch.Recipients


                        With objMsg
                          .Subject = "This is the subject"
                          .Attachments.Add ("path-to-file.docx")
                           For Each recip In recips
                            .Recipients.Add (recip)
                           Next
                          .Send
                        End With
                        Set objMsg = Nothing
                    End If
                End If
            End If
        Next

        Set olAttch = Nothing

End Sub