• picnicpromotions@ec2-54-219-159-220.us-west-1.compute.amazonaws.com
• Credentials
• Add email account to Outlook 2010 Using IMAP
• Server settings (manually configure in Outlook 2010)
  • 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)
  • Server port number for incoming server (IMAP): 993 (Outlook 2010 More settings … Advanced)
  • Incoming server encrypted connection: SSL (Outlook 2010 More settings … Advanced)

===== GMail account information =====

• orders.picnicpromotions@gmail.com
• Credentials
• 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)

• Getting Started with VBA in Outlook 2010
• 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 CopyToGmail 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 CopyToGmail()
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("orders.picnicpromotions@gmail.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

• Create a button for the macro on the Quick Access Toolbar
• To create a button for a macro on the Quick Access Toolbar
  • Click the File tab.
  • Click Options to open the Outlook Options dialog box, and then click Quick Access Toolbar.
  • In the list under Choose commands from:, choose Macros. Find the text that is similar to Project1.Module1.Test in the list that appears and select that text.
  • Click the Add » button to add the macro to the list on the right side, and then click the Modify… button to select a button image to associate with the macro.
  • Click OK. You should see your new button on the Quick Access Toolbar above the File tab.
  • Now you can quickly run your macro at any time without using the Developer tab—give it a try.