> Although if not logged in already in that context I'd probably want to use
> GetNameSpace("MAPI") rather than Session. Some things aren't right if you
> use Session that way, it doesn't touch the store.
>
> --
> Ken Slovak
> [MVP - Outlook]
>
http://www.slovaktech.com> Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
> Reminder Manager, Extended Reminders, Attachment Options
>
http://www.slovaktech.com/products.htm>
>
> "Eric Legault [MVP - Outlook]" <elegaultZZZ[ at ]REMOVEZZZmvps.org> wrote in
> message news:DDBB36D6-4F2C-4673-8185-96388FEAAEA5[ at ]microsoft.com...
>> It would be something like this I believe:
>>
>> Dim O As Object
>> Dim F As Object
>> Dim iCon As Object
>>
>> Sub Contacs2Outlook()
>>
>> Dim oContact As Object
>> O = CreateObject("Outlook.Application")
>> F = O.Session.GetDefaultFolder(10)
>> oContact = DirectCast(F.Items.Item(1), Outlook.ContactItem)
>> oContact.Delete()
>>
>> iCon = CType(F.Items().Add(2), Outlook.ContactItem)
>> F.Items().Add(2)
>> With iCon
>> .CompanyName = "My Computer"
>> .Categories = "Clients"
>> .Save()
>> End With
>> End Sub
>>
>> --
>> Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
>> Try Picture Attachments Wizard for Outlook:
>>
http://www.collaborativeinnovations.ca>> Blog:
http://blogs.officezealot.com/legault/>>
>>
>> "John" wrote:
>>
>>> Hi
>>>
>>> I have the below code for communicating with outlook. What changes do I
>>> need
>>> to do to late bind this code so it does not need references to any
>>> particular version of outlook.
>>>
>>> Many Thanks
>>>
>>> Regards
>>>
>>>
>>> Imports System.Reflection
>>> Imports Outlook
>>>
>>> Module modContacts
>>> Dim O As Outlook.Application
>>> Dim F As Outlook.MAPIFolder
>>> Dim iCon As Outlook.ContactItem
>>>
>>> Sub Contacs2Outlook()
>>>
>>> O = New Outlook.Application
>>> F =
>>> O.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
>>> oContact = DirectCast(F.Items.Item(1), Outlook.ContactItem)
>>> oContact.Delete()
>>>
>>> iCon = CType(F.Items().Add(Outlook.OlItemType.olContactItem),
>>> Outlook.ContactItem)
>>> F.Items().Add(Outlook.OlItemType.olContactItem)
>>> With iCon
>>> .CompanyName = "My Computer"
>>> .Categories = "Clients"
>>> .Save()
>>> End With
>>> End Sub
>>> End Module
>>>
>>>
>>>
>