Weiterleiten mehrerer E-Mails als Anlage in eine neue E-Mail von Excel VBA

Question

Kann mir jemand mit Excel VBA Code zu senden mehrere/spezifische E-Mails, die in meinem Posteingang als Anhang in einer neuen E-Mail an jemanden ich möchte senden.

Also im Grunde was ich fragen ist, wenn ich zu meinem Outlook Express Posteingang gehe und wählen lässt sagen drei Mails und klicken Sie dann auf die Schaltfläche Weiter auf der Multifunktionsleiste es wird eine neue Postsendung mit den Mails, die als ausgewählt wurden ein Anhang. Ich möchte dies von Excel VBA automatisiert werden.

Bitte jede Hilfe wird sehr geschätzt.

Grüße, Premanshu

Answer 1

Ich habe Antwort auf meine Frage nach etwas mehr suchen aus einem Online-Forum/Community gefunden und waren in der Lage, dass nach meinem Bedürfnis zu ändern. Den Code unten für irgendjemandes Referenz und auch den Link für den ursprünglichen Beitrag, den ich für meinen Zweck verwendet und geändert habe, zu veröffentlichen.

Sub ForwardSelectedItems() 

On Error Resume Next 
Dim myolApp As Outlook.Application 
Dim objItem As Outlook.MailItem 

Set objOL = CreateObject("Outlook.Application") 

If objOL.ActiveExplorer.Selection.count = 0 Then 
    MsgBox ("No item selected") 
    Exit Sub 
End If 

For Each objItem In objOL.ActiveExplorer.Selection 
    Set objMsg = objItem.Forward() 
    With objMsg 
     .Display 
     For Each itm In objOL.ActiveExplorer.Selection 
     .Attachments.Add itm, olEmbeddeditem 
     Next itm 
     .Subject = "example" 
     .To = "example@example.com" 
     .Body = “” 
     .Send 
    End With 
Exit For 
Next 

Set objItem = Nothing 
Set objMsg = Nothing 

End Sub 

der Link für die popst refered I ist: - Forwarding Outlook Item as attachment and adding it to a category in the same VBA macro

Vielen Dank. Grüße, Premanshu