Here is the entirety of the code:
Sub Email()
On Error Resume Next
Dim msg As MailItem
Dim i As Integer
Dim objFolder As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace
Dim objItem As Object
Dim Box As Integer
Set objNS =...
I have this snippet of code that is giving me problems.
On Error GoTo MoveHandler
Box = InputBox("1 for Processed" & vbNewLine & "2 for No Ticket Required" & vbNewLine & "3 To Not Move this Email")
If Box = "1" Then objItem(1).Move objFolder.Folders("Processed")...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.