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.

Import Excel Data into Outlook Contact Folder

xlsfile   = "C:\Temp\Data\Contactlist.xls"
;Example - Format of XLS File
;     Column 1 = First name
;     Column 2 = Last name
;     Column 3 = Email address
;     Etc.


;Define Outlook Constants
olFolderContacts = 10

;Find contact folder, assign to object variable
objOL = ObjectCreate("Outlook.Application")
objNS = objOL.GetNamespace("MAPI")
objFolder = objNS.GetDefaultFolder(olFolderContacts)
objFolder.Display

;Open Excel
objXL = ObjectOpen("Excel.Application")
;objXL.Visible = @TRUE
objXL.UserControl = @TRUE

oAPP = objXL.Workbooks
oAPP.Open(xlsfile)
oACT = objXL.ActiveWorkbook
oWS  = objXL.Worksheets(1)

FirstRow = 1
LastRow = oWS.UsedRange.Rows(oWS.UsedRange.Rows.Count).Row

;Loop down worksheet rows
For r = FirstRow To LastRow    
   ;Add new contact, set to object variable
   objContact = objFolder.Items.Add   
   ;Set contact properties
   objContact.FirstName = oWS.Cells(r, 1).value
   objContact.LastName = oWS.Cells(r, 2).value
   objContact.Email1Address = oWS.Cells(r, 3)
   ; Etc.
   ;(set more properties here)
   objContact.Save()
   objContact = 0
Next 



;destroy objects to clean up memory
objFolder = 0
objNS = 0
objOL.Quit()
objOL = 0

oWS = 0
oACT = 0
oAPP = 0
objXL.Quit()
objXL = 0

Article ID:   W17128

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

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