trying to copy an email
 

I am trying to select an email and then copy it. Then I want the Inbox
folder window to appear. I will select a folder and the copy of the
email will be put there. I can't get by the line "Set oFolderSelected
= oIns.Selection". Any ideas



Sub MoveEmail()
Dim oApp As Outlook.Application
Dim oExp As Outlook.Explorer
Dim oSelected As Outlook.Selection
Dim oFolderSelected As Outlook.Selection
Dim oItem As Outlook.MailItem
Dim oFldr As Outlook.Folders
Dim oNS As Outlook.NameSpace
'Dim oFldr As Outlook.MAPIFolder
Dim oBackup As Outlook.MAPIFolder

Dim intNumber As Integer
Dim intInspector As Integer

Set oApp = Outlook.Application
Set oExp = oApp.ActiveExplorer
Set oIns = oApp.ActiveInspector

Set oSelected = oExp.Selection


If oSelected.Count 1 Then GoTo exit_outofhere

Set oItem = oSelected.Item(oSelected.Count)
Set oNS = oApp.GetNamespace("MAPI")

oItem.Copy

Set oBackup = oNS.GetDefaultFolder(olFolderInbox)
oBackup.Display
Set oFolderSelected = oIns.Selection
If oFolderSelected.Count 1 Then GoTo exit_outofhere
oFolderSelected =
oNS.GetDefaultFolder(olFolderInbox).Folders.Item(o FolderSelected.Count)
oItem.Move oFolderSelected


exit_outofhe
Exit Sub
End Sub

trying to copy an email
 

Selection is the property of the Explorer object, not Namespace:
Set oFolderSelected = oExp.Selection

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"rub" wrote in message
ups.com...
I am trying to select an email and then copy it. Then I want the Inbox
folder window to appear. I will select a folder and the copy of the
email will be put there. I can't get by the line "Set oFolderSelected
= oIns.Selection". Any ideas



Sub MoveEmail()
Dim oApp As Outlook.Application
Dim oExp As Outlook.Explorer
Dim oSelected As Outlook.Selection
Dim oFolderSelected As Outlook.Selection
Dim oItem As Outlook.MailItem
Dim oFldr As Outlook.Folders
Dim oNS As Outlook.NameSpace
'Dim oFldr As Outlook.MAPIFolder
Dim oBackup As Outlook.MAPIFolder

Dim intNumber As Integer
Dim intInspector As Integer

Set oApp = Outlook.Application
Set oExp = oApp.ActiveExplorer
Set oIns = oApp.ActiveInspector

Set oSelected = oExp.Selection


If oSelected.Count 1 Then GoTo exit_outofhere

Set oItem = oSelected.Item(oSelected.Count)
Set oNS = oApp.GetNamespace("MAPI")

oItem.Copy

Set oBackup = oNS.GetDefaultFolder(olFolderInbox)
oBackup.Display
Set oFolderSelected = oIns.Selection
If oFolderSelected.Count 1 Then GoTo exit_outofhere
oFolderSelected =
oNS.GetDefaultFolder(olFolderInbox).Folders.Item(o FolderSelected.Count)
oItem.Move oFolderSelected


exit_outofhe
Exit Sub
End Sub

trying to copy an email
 

Thank you.

Dmitry Streblechenko wrote:
Selection is the property of the Explorer object, not Namespace:
Set oFolderSelected = oExp.Selection

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"rub" wrote in message
ups.com...
I am trying to select an email and then copy it. Then I want the Inbox
folder window to appear. I will select a folder and the copy of the
email will be put there. I can't get by the line "Set oFolderSelected
= oIns.Selection". Any ideas



Sub MoveEmail()
Dim oApp As Outlook.Application
Dim oExp As Outlook.Explorer
Dim oSelected As Outlook.Selection
Dim oFolderSelected As Outlook.Selection
Dim oItem As Outlook.MailItem
Dim oFldr As Outlook.Folders
Dim oNS As Outlook.NameSpace
'Dim oFldr As Outlook.MAPIFolder
Dim oBackup As Outlook.MAPIFolder

Dim intNumber As Integer
Dim intInspector As Integer

Set oApp = Outlook.Application
Set oExp = oApp.ActiveExplorer
Set oIns = oApp.ActiveInspector

Set oSelected = oExp.Selection


If oSelected.Count 1 Then GoTo exit_outofhere

Set oItem = oSelected.Item(oSelected.Count)
Set oNS = oApp.GetNamespace("MAPI")

oItem.Copy

Set oBackup = oNS.GetDefaultFolder(olFolderInbox)
oBackup.Display
Set oFolderSelected = oIns.Selection
If oFolderSelected.Count 1 Then GoTo exit_outofhere
oFolderSelected =
oNS.GetDefaultFolder(olFolderInbox).Folders.Item(o FolderSelected.Count)
oItem.Move oFolderSelected


exit_outofhe
Exit Sub
End Sub