Script With EXCEL- Please help
Posted on 2006-05-03
i have the following script, and its for Put Multiple contacts from Excel sheet to Contact folder.
its working fine, without any Problems.
I want only to Do the same step, but with One condetion , is to put them in specific folder - like my other question .
Please Update me .
here is the Script.
i want only to add one thing, that Tell this script to take all the Data From Excel Sheet and put it In Specific Folder under this Folder only " Head-office "
Const olContactItem = 2
Set objOutlook = CreateObject("Outlook.Application")
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\contacts.xls")
x = 1
Do Until objExcel.Cells(x,1).Value = ""
Set objContact = objOutlook.CreateItem(olContactItem)
objContact.FullName = objExcel.Cells(x,1).Value
objContact.CompanyName = objExcel.Cells(x,2).Value
objContact.Email1Address = objExcel.Cells(x,3).Value
x = x + 1