inputbox query

Hello Guys,

Any ideas why the code below does not work. I am moving emails into different folders of outlook and before that there is an inputbox that pops up. I want to stop the operation when I click cancel or X on the inputbox. Why does not the code below work?

Private Sub oItems_ItemAdd(ByVal Item As Object)
  Static N
  If IsNumeric(N) Then N = N + 1
  N = InputBox("Type ID to be added to the end of the Subject", "Subject ID", N)
  If N = "" Then
  Exit Sub
  Else
  With Item
    .Subject = .Subject & " " & N
    .Save
  End With
  End If
End Sub

Hello this is the entire code. Whe I drag an email to the folder "controls" an inputbox pops up where I can amend the subject of the email I am dragging. I want the following. If I click cancel on the inputbox I do not want the email to be pasted into the folder. This should be happening only when I type in something in the inputbox.

Option Explicit
 
Private WithEvents oItems As Outlook.Items
 
Private Sub Application_Startup()
  Const MyFolder = "Controls" ' <-- Change to suit
  On Error Resume Next
  With Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    Set oItems = .Folders(MyFolder).Items
    If Err Then
      .Folders.Add MyFolder
      Set oItems = .Folders(MyFolder).Items
    End If
  End With
  On Error GoTo 0
End Sub
 
Private Sub oItems_ItemAdd(ByVal Item As Object)

  Static N
  If IsNumeric(N) Then N = N + 1
  N = InputBox("Type ID to be added to the end of the Subject", "Subject ID", N)

  With Item
    .Subject = .Subject & " " & N
    .Save
  End With

End Sub

Hello this is the entire code. Whe I drag an email to the folder "controls" an inputbox pops up where I can amend the subject of the email I am dragging. I want the following. If I click cancel on the inputbox I do not want the email to be pasted into the folder. The email should be pasted only only when I type in something in the inputbox.

Option Explicit
 
Private WithEvents oItems As Outlook.Items
 
Private Sub Application_Startup()
  Const MyFolder = "Controls" ' <-- Change to suit
  On Error Resume Next
  With Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    Set oItems = .Folders(MyFolder).Items
    If Err Then
      .Folders.Add MyFolder
      Set oItems = .Folders(MyFolder).Items
    End If
  End With
  On Error GoTo 0
End Sub
 
Private Sub oItems_ItemAdd(ByVal Item As Object)

  Static N
  If IsNumeric(N) Then N = N + 1
  N = InputBox("Type ID to be added to the end of the Subject", "Subject ID", N)

  With Item
    .Subject = .Subject & " " & N
    .Save
  End With

End Sub

Well. I tried with If (InputBox("Type ID to be added to the end of the Subject", "Subject ID", N)) = vbcancel Then Exit Sub and it does not work.

Well. The inputbox appears I click on cancel but the email is still pasted into the folder when I drag it. I want to avoid that. When I click on cancel it should stop pasting the email into the folder.

It certainly is. When you click on cancel the inputbox dissapears and when you go into the folder you can see the email that has been moved. Which code do you use exactly?

So what code did you use? When I drag the email into the folder and click cancel on the inputbox the email is still moved..

All right, norie. Thanks for your help. There is just one more thing. The folder I need the macro for is a shared folder in microsoft exchange server. The code works fine for my personal mail box but not for the shared one. Is there a way to apply it for shared folders?

Actually, I want to get the access of a shared sub folder of an email address.