Forward Email #1

Sub Complete() ‘ Send Completed Message to support On Error Resume Next Dim oApp As Outlook.Application Dim objFolder As Outlook.MAPIFolder Set oApp = New Outlook.Application Set objNS = Application.GetNamespace(“MAPI”) Set objInbox = objNS.GetDefaultFolder(olFolderInbox) Set objFolder = objInbox.Folders(“Helpdesk”) Dim oEmail As Outlook.MailItem ‘Require that this procedure be called only when a message is selected If Application.ActiveExplorer.Selection.Count = 0 Then Exit Sub End If For Each objItem In Application.ActiveExplorer.Selection If objFolder.DefaultItemType = olMailItem Then If objItem.Class = olMail Then Response = MsgBox(“Forward message (” + item.Subject + “) to Appended Subject”) Set myForward = objItem.Forward myForward.Subject = “APPENDED SUBJECT – ” + objItem.Subject + “” myForward.Recipients.Add “Jimmy <jimmy.bharata@frieslandcampina.com>” myForward.Display ‘.Send or .Display End If End If Next End Sub