Получавам имейли, съдържащи отчети на 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
