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/18 16:38] andre [Email account information] |
start:promomail [2017/04/19 15:55] (current) andre [Outlook VB Macro to copy mail to folder] |
||
|---|---|---|---|
| Line 7: | Line 7: | ||
| * Incoming mail server: ''ec2-54-219-159-220.us-west-1.compute.amazonaws.com'' | * Incoming mail server: ''ec2-54-219-159-220.us-west-1.compute.amazonaws.com'' | ||
| * Outgoing mail server: ''smtp.DoNotUse.com'' (email should only be sent from Picnic Time email addresses) | * Outgoing mail server: ''smtp.DoNotUse.com'' (email should only be sent from Picnic Time email addresses) | ||
| - | * Server port number for incoming server (IMAP): ''993'' (Outlook 2010 More settings ... Advanced) | + | * Server port number for incoming server (IMAP): ''143'' (Outlook 2010 More settings ... Advanced) |
| - | * Incoming server encrypted connection: ''SSL'' (Outlook 2010 More settings ... Advanced) | + | * Incoming server encrypted connection: ''TLS'' (Outlook 2010 More settings ... Advanced) |
| - | ===== GMail account information DELETEME ===== | + | |
| - | * orders.picnicpromotions@gmail.com | + | |
| - | * [[start:promomailcred|Credentials]] | + | |
| - | * [[http://pop2imap.com/gmail-outlook-2010.php|Add Your Gmail Account to Outlook 2010 Using IMAP]] | + | |
| - | * Server settings (manually configure in Outlook 2010) | + | |
| - | * Incoming mail server: ''imap.gmail.com'' | + | |
| - | * Outgoing mail server: ''smtp.DoNotUse.com'' (email should only be sent from Picnic Time email addresses) | + | |
| - | * Server port number for incoming server (IMAP): ''993'' (Outlook 2010 More settings ... Advanced) | + | |
| - | * Incoming server encrypted connection: ''SSL'' (Outlook 2010 More settings ... Advanced) | + | |
| ===== Outlook VB Macro to copy mail to folder ===== | ===== Outlook VB Macro to copy mail to folder ===== | ||
| * [[https://msdn.microsoft.com/en-us/library/office/ee814736(v=office.14).aspx|Getting Started with VBA in Outlook 2010]] | * [[https://msdn.microsoft.com/en-us/library/office/ee814736(v=office.14).aspx|Getting Started with VBA in Outlook 2010]] | ||
| * 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 37: | 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 | ||