See Processing Incoming E-mails with Macros

Something like this where item is the incoming mail.

    Dim newMail As mailItem
                    
    Set newMail = CreateItem(olMailItem)
        
    With newMail
        .To = "address"
        .Attachments.Add Item
        .Display ' .Send
    End With

    Set newMail = Nothing