Forward email items as attachment one by one by excel vba

I have many email items.

I put them in my excel from outlook, know I can reply all of them by excel vbn, but i can't forward as attachment to department. by excel vbn

I need code to help me to do it

I am trying but I don't have enough information

You need to create a new MailItem instance and then attach the original item as an attachment:

    Set objMsg = Application.CreateItem(olMailItem)
    With objMsg
        .Attachments.Add objItem, olEmbeddeditem
        .Subject = "SPAM"
        .To = "spam@host.co.uk"
        .Send
    End With

The Attachments.Add method creates a new attachment in the Attachments collection. The source of the attachment can be a file (represented by the full file system path with a file name) or an Outlook item that constitutes the attachment.

You my find the How To: Create and send an Outlook message programmatically article helpful.

Create a new message using Application.CreateItem(0), then add the messages you want to be forwarded as attachments by passing them to MailItem.Attachments.Add.