|
web
newsgroups
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
Late binding equivalentWhat is the late binding equivalent of the below code? Many Thanks Regards Dim O As Outlook.Application Dim F As Outlook.MAPIFolder Dim iCon As Outlook.ContactItem Dim oContact As Outlook.ContactItem 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) Everything stays the same except:
1) All your "As xxxx" change to "As Object" 2) o = New Outlook.Application changes to o = CreateObject("Outlook.Application") And you get rid of the direct casts (since you can't cast to an object time you don't know about). Oh yeah, and Option Strict Off needs to be at the top of the module, I'm pretty sure. Show quoteHide quote "John" <John@nospam.infovis.co.uk> wrote in message news:uV0K%23JOOGHA.3164@TK2MSFTNGP11.phx.gbl... > Hi > > What is the late binding equivalent of the below code? > > Many Thanks > > Regards > > > Dim O As Outlook.Application > Dim F As Outlook.MAPIFolder > Dim iCon As Outlook.ContactItem > Dim oContact As Outlook.ContactItem > > 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) > > > Getting error on Outlook.ContactItem on line below. How do I deal with this?
iCon = CType(F.Items().Add(2), Outlook.ContactItem) Thanks Regards Show quoteHide quote "CMM" <cmm@nospam.com> wrote in message news:ODXHS3OOGHA.1216@TK2MSFTNGP14.phx.gbl... > Everything stays the same except: > > 1) All your "As xxxx" change to "As Object" > 2) o = New Outlook.Application changes to o = > CreateObject("Outlook.Application") > > And you get rid of the direct casts (since you can't cast to an object > time you don't know about). > > Oh yeah, and Option Strict Off needs to be at the top of the module, I'm > pretty sure. > > > -- > -C. Moya > www.cmoya.com > "John" <John@nospam.infovis.co.uk> wrote in message > news:uV0K%23JOOGHA.3164@TK2MSFTNGP11.phx.gbl... >> Hi >> >> What is the late binding equivalent of the below code? >> >> Many Thanks >> >> Regards >> >> >> Dim O As Outlook.Application >> Dim F As Outlook.MAPIFolder >> Dim iCon As Outlook.ContactItem >> Dim oContact As Outlook.ContactItem >> >> 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) >> >> >> > > Sheesh. If the starting point I gave couldn't get you started, you really
shouldn't be programming. I mean, seriously...it seems that some really really BASIC concepts are eluding you. You're basically looking for someone to do it *for you* Why are using CType? Do you know what it does? Stop trying to "cast." Same goes for the constant "olContactItem." Find out what integer this represents (um, research... use your wits) and use that in the place of the constant. Actually I have already done it after your first post but before the second
post and just wanted to double check the small point. As you can see I had already determined and used the constant. Thanks for the original post that helped me to complete this successfully. Regards Show quoteHide quote "CMM" <cmm@nospam.com> wrote in message news:uRGAlhPOGHA.536@TK2MSFTNGP09.phx.gbl... > Sheesh. If the starting point I gave couldn't get you started, you really > shouldn't be programming. I mean, seriously...it seems that some really > really BASIC concepts are eluding you. You're basically looking for > someone to do it *for you* > > Why are using CType? Do you know what it does? Stop trying to "cast." Same > goes for the constant "olContactItem." Find out what integer this > represents (um, research... use your wits) and use that in the place of > the constant. > > -- > -C. Moya > www.cmoya.com > 
Other interesting topics
Newbie: trying to run one forms event from another form.
User "sticky" profile possible to create one control array with different controls? vb2005 propertybag dealing with images of varing sizes on a form. VB 'Phone Home' Install ADO Problem Data Binding Anyone? Instance a class at runtime Activate Save button in BindingNavigator |
|||||||||||||||||||||||
