-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: rajbaba_0
Message 13 in Discussion
Hi Pandurang My main problem is that i already set this permission in working
folder and vertual directory on that its giveing the problem so why i asked this thing
please give me some tips/help on this topic Its a very urgent For ur help I am
pasting my code below
Sub ImportContactsFromOutlook()
' This code is based in Microsoft Access.
' Set up DAO objects (uses existing "tblContacts" table)
Dim rst As New ADODB.Recordset()
Dim conn As New ADODB.Connection()
'CreateObject("Outlook.Application")
' Set up Outlook objects.
Dim ol As New Outlook.Application()
Dim olns As Outlook.NameSpace
Dim cf As Outlook.MAPIFolder
Dim c As Outlook.ContactItem
Dim objItems As Outlook.Items
Dim Prop As Outlook.UserProperty
Dim iNumContacts As Integer
Dim i As Integer
olns = ol.GetNamespace("MAPI")
'cf = olns.GetDefaultFolder(olFolderContacts)
cf = olns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
objItems = cf.Items
iNumContacts = objItems.Count
If iNumContacts <> 0 Then
For i = 1 To iNumContacts
If TypeName(objItems.Item(i)) = "ContactItem" Then
c = objItems.Item(i)
reponse.write (c.FirstName & c.LastName)
reponse.write (c.BusinessAddressStreet & c.BusinessAddressCity &
c.BusinessAddressState & c.BusinessAddressPostalCode)
End If
Next i
End If
End Sub
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
