Я получаю электронные письма, содержащие отчеты Excel в качестве вложений. Все они от одного и того же отправителя, но в каждом письме разные получатели.
Пример:
Электронная почта №1
От: [email protected] Кому: [email protected];[email protected]
+1 прикрепленный файл Excel
Электронная почта № 2
От: [email protected] Кому: [email protected];[email protected]
+1 прикрепленный файл Excel
Мне нужно снова переслать эти письма получателям с вложенным файлом.
Вы можете создать макрос-правило, когда вы получаете электронное письмо от определенного отправителя, запускайте скрипт. Об автоматическом сохранении вложений см. этот код:
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 = "[email protected]" 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
