-
To open the Visual Basic Editor in Outlook 2010
Click the Macros button on the Developer tab.
In the Macro dialog box that appears, type CopyToCould under Macro Name.
Click the Create button to open the Visual Basic Editor with the outlines of a new macro already typed in.
Copy, paste and save the VBA code below into the Visual Basic Editor:
'Outlook VB Macro to copy selected mail item(s) to a target folder
Sub CopyToCloud()
On Error Resume Next
Dim ns As Outlook.NameSpace
Dim CopyToFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem
Set ns = Application.GetNamespace("MAPI")
'Define path to the target folder
Set CopyToFolder = ns.Folders("picnicpromotions@ec2-54-219-159-220.us-west-1.compute.amazonaws.com").Folders("Inbox")
If Application.ActiveExplorer.Selection.Count = 0 Then
MsgBox ("No item selected")
Exit Sub
End If
If CopyToFolder Is Nothing Then
MsgBox "Target folder not found!", vbOKOnly + vbExclamation, "Copy Macro Error"
End If
For Each objItem In Application.ActiveExplorer.Selection
If CopyToFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
objItem.Copy CopyToFolder
objItem.Move CopyToFolder
End If
End If
Next
Set objItem = Nothing
Set CopyToFolder = Nothing
Set ns = Nothing
End Sub