件名でメールを転送する

Question

特定の件名のメールをすべて電子メールに転送します。元のメールの内容には、特定のコンテンツ（ "geprüft"）を追加する必要があります。 私は今コードを持っていますが、正しく動作しません。これは、最後の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

このループは、私のために正常に動作します：。？

Dim tmpMail As MailItem 

For Each tmpMail In ActiveExplorer.Selection 

    Debug.Print tmpMail.Subject 

    With tmpMail.Forward 

     .Forward = True 
     .SentOnBehalfOfName = "###" 
     '.Subject = "WG" & .Subject 'WG is automatically added when forwarding 
     .To = "###" 
     .Body = "geprüft" & Chr(10) & .Body 

     .Send 
    End With 
Next tmpMail