hi all,
how can I modify my vba script to import contacts not in the default one
folder but in a contact folder contained in "Public folders\All Public
Folders\One\Contatti" Folder?
thx.

this is my script for importing from a text file to excel and from excel to
outlook

'this import the txt file to excel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

objExcel.Workbooks.OpenText
"E:\dgs\MEF\scriptoli\contacts\Importacontatti\inp ut.txt"

'this import the excel in outook
Const olContactItem = 2

Set objOutlook = CreateObject("Outlook.Application")

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook =
objExcel.Workbooks.Open("E:\dgs\MEF\scriptoli\cont acts\importacontatti\input.txt")

x = 1

Do Until objExcel.Cells(x,1).Value = ""

Set objContact = objOutlook.CreateItem(olContactItem)
objContact.FullName = objExcel.Cells(x,1).Value
objContact.Email1Address = objExcel.Cells(x,2).Value
objContact.Save

x = x + 1
Loop

objExcel.Quit

Thx
James.

To create a new item in a non-default folder programmatically, instead of CreateItem, you'd use the Add method on the target folder's Items collection:

Set newItem = targetFolder.Items.Add("IPM.Post.YourFormName")

The message class parameter is optional.

To get a non-default folder, you need to walk the folder hierarchy using the Folders collections or use a function that does that for you. See http://www.outlookcode.com/d/code/getfolder.htm and, especially for public folders, http://www.outlookcode.com/codedetail.aspx?id=1164



--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"alici0" wrote in message ...
hi all,
how can I modify my vba script to import contacts not in the default one
folder but in a contact folder contained in "Public folders\All Public
Folders\One\Contatti" Folder?
thx.

this is my script for importing from a text file to excel and from excel to
outlook

'this import the txt file to excel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

objExcel.Workbooks.OpenText
"E:\dgs\MEF\scriptoli\contacts\Importacontatti\inp ut.txt"

'this import the excel in outook
Const olContactItem = 2

Set objOutlook = CreateObject("Outlook.Application")

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook =
objExcel.Workbooks.Open("E:\dgs\MEF\scriptoli\cont acts\importacontatti\input.txt")

x = 1

Do Until objExcel.Cells(x,1).Value = ""

Set objContact = objOutlook.CreateItem(olContactItem)
objContact.FullName = objExcel.Cells(x,1).Value
objContact.Email1Address = objExcel.Cells(x,2).Value
objContact.Save

x = x + 1
Loop

objExcel.Quit

Thx
James.