Picnic Time knowledge base

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== Promotional Email Settings ======
===== GMail account information =====
  * 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 =====
  * [[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
    * 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:

<code>'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
</code>
===== Add Macro buttons in Outlook 2010 =====
  * [[https://msdn.microsoft.com/en-us/library/office/ee814736(v=office.14).aspx#sectionSection3|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.
Picnic Time knowledge base

User Tools

Site Tools

Page Tools
