Переслать почту и добавить содержимое в тело (Outlook 2007, VBA)

Question

Может ли кто-нибудь помочь мне с редактированием VBA-кода для следующей проблемы: Я хочу пересылать электронные письма с определенной тематикой на конкретный E-Mail. В этом процессе я хочу добавить текст в перенаправленный элемент. Спасибо за помощь!

Редактировать.

У меня есть код сейчас, но он не работает должным образом. Он посылает последний E-Mail нажал на :(.

Sub Test(oMail As MailItem) 
Dim MyItem As Outlook.MailItem 
Dim obj_curitem As MailItem 
Dim obj_newitem 
Dim obj_Selection 
Dim obj_curfolder 
Dim obj_msgitems 
Dim Forward As Object 

If Err.Number = 0 Then 
    Set obj_Selection = Outlook.ActiveExplorer.Selection 
     If obj_Selection.Count > 0 Then 

     For Each obj_curitem In obj_Selection 
      strID = obj_curitem.EntryID 
      Set olNS = Application.GetNamespace("MAPI") 

      'Object auf einem neuen Item erstellen 
      Set obj_newitem = obj_curitem.Forward 
      With obj_curitem.Forward 
       .Forward = True 
       .SentOnBehalfOfName = "###" 'Deine Mailadresse 
       .Subject = "WG" & .Subject      'Betreff 
       .To = "###"     'Empfängermail 
       .BODY = "geprüft" & .BODY      'E-Mail Inhalt 
       .Send 

      End With 
     Next 
    End If 
End If 
End Sub 

Answer 1

В общем вам нужно будет обрабатывать NewMailEx событие класса приложений, где вы можете проверить предметом собственности и решить, следует ли пересылать по электронной почте или нет . Метод Forward класса Application позволяет это сделать - он выполняет действие Forward для элемента и возвращает результирующую копию в качестве объекта MailItem.

Это событие NewMailEx срабатывает один раз для каждого полученного элемента, который обрабатывается Microsoft Outlook Элемент может быть одним из нескольких типов элементов, например, MailItem, MeetingItem или SharingItem. Строка EntryIDsCollection c возвращает идентификатор записи, соответствующий этому элементу. Вы можете использовать идентификатор записи, возвращенный в массиве EntryIDCollection, для вызова метода NameSpace.GetItemFromID и обработки элемента.

Перспективы объектной модели предусматривает три основных способа для работы с товаром тел:

1. Body.
2. HTMLBody.
3. Редактор Word. Свойство WordEditor класса Inspector возвращает экземпляр Word Document, который представляет тело сообщения. Итак, вы можете использовать объектную модель Word, чтобы сделать все, что вам нужно, с телом сообщения.

См. Chapter 17: Working with Item Bodies для получения дополнительной информации.