Database Search

TechHome

Redemption

• Add Attachment to Journal Item
• Adding Contact Information into Outlook
• Compiled EXE Keeps Running Under Task Manager
• Copy Contacts Folder to Subfolder in Outlook
• Create a Folder under Personal Folders in Outlook
• Create Outlook Distribution List
• Creating Address Book XML File
• Current Contact Folder Items
• Delete Mail from Outlook using OLE
• Delete Outlook Contact
• Email Forwarder
• Embed an Image into an Outlook Email
• Empty Folder in Outlook
• Encrypt Message in Outlook
• Find Contacts in Outlook
• Find Folder with the String Mailbox
• Get Internet headers Field from Outlook Message
• Get Contact data form Contact Item Currently Selected in Outlook
• Get Contact Information In Outlook
• Get Internet headers Field from Outlook Message
• Get list of appointments
• Get member of Outlook Distribution List
• Get Outlook Contact information
• How to Send Mail from Outlook using OLE
• Identify Outlook Folder Type or Contents
• Import Excel Data into Outlook Contact Folder
• Launch Outlook and Make Visible
• List Subfolders
• Mark Messages as Read in Outlook using OLE
• ObjectEventAdd To Capture ItemSend Event
• OLE and OUTLOOK check mail
• OLE and OUTLOOK read mail other than inbox
• OLE and OUTLOOK read mail
• OLE MAPI Choose Folder
• OLE_Outlook- add Entry to Address book
• Outlook - Get Oldest Email Message
• Outlook constants
• Outlook Contacts to XML
• Outlook PST to MSG Export
• Outlook Quit Event
• Outlook Received Date
• Outlook Reply-To in OLE
• Outlook Sendmail OLE Example
• Outlook Version
• Read Open Active Outlook Message
• Recurse Outlook folders
• Redemption Causes WinBatch Studio to Crash
• Rename Personal Folder in Oulook
• Save file attachments in Outlook
• Save outlook attachments
• Send to Multiple Recipients
• Sort Email by Received Time
• TypeOf Equivalent
• Use Existing Instance Or Create a New One If Necessary
• Using OLE to resolve name in Outlook
• WinBatch and Redemption Issue
• Writing Appointments to Outlook

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Copy Contacts Folder to Subfolder in Outlook

topFolder="Personal Folders"  ;(case sensitive) CHANGE TO FIT YOUR NEEDS!!!!!!!!
subFolder="Junk Contacts" ;(case sensitive) CHANGE TO FIT YOUR NEEDS!!!!!!!!

olFolderContacts = 10 
objOutlook = ObjectCreate("Outlook.application")
objNameSpace = objOutlook.GetNameSpace("MAPI")

objFolder = objNameSpace.GetDefaultFolder(olFolderContacts)
objContactItems = objFolder.Items
objFolderTop = objNameSpace.Folders(topFolder); 
objFolderSub = objFolderTop.Folders(subFolder);

 
Count = objContactItems.count
flag = 0 
data = ""
; Scan through all contacts
For xx = 1 to count
	objContact = objContactItems.item(xx)   
   objCopiedItem = objContact.Copy()
   objCopiedItem.Move(objFolderSub)
   objCopiedItem = 0
Next



; Clean up
objContact = 0
objContactItems = 0
objFolder = 0
objNameSpace = 0
objOutlook = 0

exit

objOutlook = ObjectOpen("Outlook.Application")
oln = objOutlook.GetNameSpace("MAPI")
oln.logon("userid", "password", 0, 1)
;
For x = 1 To oln.Folders.count  ;loop once for each folder
   If StrIndexNC(oln.Folders.item(x).name, "PCSetup", 1, @FWDSCAN);< find user Mail Box
      Message("Debug", oln.Folders.item(x).name)
      MainFolder = oln.Folders.item(x).folders
      PCSetupInbox = MainFolder.item("Inbox") ;<-- PCSetup Inbox
   EndIf
;
   If StrIndexNC(oln.Folders.item(x).name, "IMAP4", 1, @FWDSCAN);< find IMAP Mail Box
      Message("Debug", oln.Folders.item(x).name)
      IMAPMainFolder  = oln.Folders.item(x) 
      IMAPInbox = IMAPMainFolder.folders.item("Inbox") ;<-- IMAP Inbox
   EndIf
Next
;
daCount = IMAPInbox.items.count  ;   get a count of the IMAP4 INBOX before we start moving...
;
;   Now move the IMAP items into the PCSetup INBOX...
While IMAPInbox.items.count
   ThisItem = IMAPInbox.items(1)
   ThisItem.move(PCSetupInbox)
  ; if the count doesn't decrement, something wrong...
   Terminate(daCount == IMAPInbox.items.count, "Debug", "Unable to move messages...Terminating")
EndWhile
;
Message("Debug", "All Done")
;
MainFolder = 0
PCSetupInbox = 0
IMAPMainFolder = 0
IMAPInbox = 0
objOutlook = 0
oln = 0
;
Exit 

Article ID:   W17121

File Created: 2007:07:03:14:28:24

Last Updated: 2007:07:03:14:28:24