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.

====== Email Settings ======
===== GMail account =====
orders.picnicpromotions@gmail.com
[[start:promomailcred|Credentials]]
==== Outlook VB Macro to copy mail to folder ====
<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("testpicnictime@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, "Move 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>

Picnic Time knowledge base

User Tools

Site Tools

Page Tools