Hi Winnie
Many thanks for your response. The details are :
Microsoft Outlook 2013 (15.0.4893.1000) MSO (15.0.4893.1000) 32 bit
Product ID: 00218-02490-20695-AA703
The macro code we are using is as follows:
Sub MoJCopyTo2HrFolder()
On Error Resume Next
'MsgBox ("This is the move to 2 Hour Folder function")
Dim ns As Outlook.NameSpace
Dim moveToFolder As Outlook.MAPIFolder
Dim objItem As Outlook.mailItem
MsgBox ("I am in the MoJ 2Hour Macro")
Set ns = Application.GetNamespace("MAPI")
'Define path to the target folder
Set moveToFolder = ns.Folders("_SSG Support_SSCL.MOJ.PMO").Folders("Two Hour Mails MOJ")
If Application.ActiveExplorer.Selection.Count = 0 Then
MsgBox ("No item selected")
Exit Sub
End If
If moveToFolder Is Nothing Then
MsgBox "Target folder not found!", vbOKOnly + vbExclamation, "Move Macro Error"
End If
For Each objItem In Application.ActiveExplorer.Selection
If moveToFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
Set objItem = objItem.Copy
objItem.Move moveToFolder
End If
End If
Next
Set objItem = Nothing
Set moveToFolder = Nothing
Set ns = Nothing
End Sub
Thanks
Tony
TKHussar
Outlook Macro Button Not Working
