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 |