通过主题编辑机构转发电子邮件

Question

我想将具有特定主题的每封邮件转发到一封电子邮件。 在原始邮件的内容中，应添加特定的内容（“geprüft”）。 我现在有代码，但是无法正常工作。 它发送最后单击:(的电子邮件。

    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