Outlook Script: пересылка электронной почты без вложения

Question

Я ищу сценарий для пересылки всех входящих писем в группу рассылки, но без вложения. Мне нужно, чтобы приложение оставалось на исходном электронном письме, поэтому его нельзя просто удалить. Я использую Microsoft Outlook 2010.

Так просто для ясности: электронное письмо приходит с чем-то прикрепленным. Я хочу переслать это электронное письмо минус вложение на другой адрес, сохраняя оригинал неповрежденным.

Заранее благодарим любого, кто может вам помочь.

Редактировать: этот процесс должен происходить автоматически на каждом электронном письме, которое входит в этот адрес.

Answer 1

Поместите следующий код в ваш ThisOutlookSession модуль:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 
    Dim varEntryID As Variant 

    For Each varEntryID In Split(EntryIDCollection, ",") 
     Dim objOriginalItem As MailItem 
     Set objOriginalItem = Application.GetNamespace("MAPI").GetItemFromID(varEntryID) 
     Dim objForwardedItem As MailItem 
     Set objForwardedItem = objOriginalItem.Forward 

     Do Until objForwardedItem.Attachments.Count = 0 
      objForwardedItem.Attachments.Remove (1) 
     Loop 

     objForwardedItem.To = "toemailaddress@domain.com" 
     objForwardedItem.Send 
    Next 
End Sub 

Этот модуль может быть доступен в VBA IDE (Alt + F11) в окне Project Explorer: Project > Microsoft Outlook Objects > ThisOutlookSession