I need to create one vba script that can forward emails I receive. The only problem is that the emails I’d like to forward have different subjects,only the beginning is the same. This is how far I’ve gotten with it(this should be inserted in ThisOutlookSession). Someone could help me please?
Public WithEvents objInbox As Outlook.Folder Public WithEvents objInboxItems As Outlook.Items Private Sub Application_Startup() Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox) Set objInboxItems = objInbox.Items End Sub Private Sub objInboxItems_ItemAdd(ByVal item As Object) Dim objMail As Outlook.MailItem Dim objForward As Outlook.MailItem If TypeOf item Is MailItem Then Set objMail = item 'If it is a specific new email If (objMail.Subject = "Offer Response Received") Then Set objForward = objMail.Forward 'Customize the forward subject, body and recipients With objForward .Subject = "Offer Response Received" .HTMLBody = "<HTML><BODY>Please proceed. </BODY></HTML>" & objForward.HTMLBody .Recipients.Add ("XY") .Recipients.Add ("XY") .Recipients.ResolveAll .Importance = olImportanceHigh .Send End With End If End If End Sub