This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision | ||
|
start:promomail [2017/04/19 15:54] andre [GMail account information] |
start:promomail [2017/04/19 15:55] (current) andre [Outlook VB Macro to copy mail to folder] |
||
|---|---|---|---|
| Line 14: | Line 14: | ||
| * To open the Visual Basic Editor in Outlook 2010 | * To open the Visual Basic Editor in Outlook 2010 | ||
| * Click the Macros button on the Developer tab. | * Click the Macros button on the Developer tab. | ||
| - | * In the Macro dialog box that appears, type CopyToGmail under Macro Name. | + | * 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. | * 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: | * Copy, paste and save the VBA code below into the Visual Basic Editor: | ||
| <code>'Outlook VB Macro to copy selected mail item(s) to a target folder | <code>'Outlook VB Macro to copy selected mail item(s) to a target folder | ||
| - | Sub CopyToGmail() | + | Sub CopyToCloud() |
| On Error Resume Next | On Error Resume Next | ||
| Line 29: | Line 29: | ||
| 'Define path to the target folder | 'Define path to the target folder | ||
| - | Set CopyToFolder = ns.Folders("orders.picnicpromotions@gmail.com").Folders("Inbox") | + | 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 | If Application.ActiveExplorer.Selection.Count = 0 Then | ||