Linking tasks to Contacts

Okay, I get it now. So the BCM link is working, but the native Outlook
Contacts link that we are trying to create with the vba is not working. Do
you have any other procedures in your ThisOutlookSession? Did you close down
Outlook and restart after inserting the code? Is there anything peculiar
about your Outlook or BCM installation?

Regards.....Bill Kratz

"Lon Orenstein" wrote:

> Bill:
>
> I'm on BCM 2007, version 3.00.5828.00... What I mean by "checking" is to
> click on Link to Record on the ribbon bar, in the Task dialog, and it shows
> the contact I originally right clicked on to create the task. The Contacts
> field at the bottom is there but no contacts are in it. Looking on the
> view, that column is empty too.
>
> HTH,
> Lon
>
> ___________________________________________________________
> Lon Orenstein
> pinpointtools, llc
> Lon DeleteThis @pinpointtools.com
> Author of Outlook 2007 Business Contact Manager For Dummies
> Author of the eBook: Moving from ACT! to Business Contact Manager
> 800.238.0560 x6104 Toll Free (U.S. only) +1 214.905.0401 x6104
> www.pinpointtools.com
>
>
> "whkratz" <whkratz DeleteThis @discussions.microsoft.com> wrote in message
> news:7B6C4390-1774-4CFD-901D-09DAEB9993FC@microsoft.com...
> > Hi Lon -- Well, that's a little strange. The Contact Link should appear
> > in
> > the Task (or Appointment) as soon as it opens in its Inspector form when
> > you
> > select Create New Task for Business Contact. Two questions:
> >
> > What version of Outlook BCM are you running?
> >
> > When you say "when I go back to check, it is indeed linked to the business
> > contact in Link Record", do you mean that the Link is displayed in the
> > Contacts field of the Task form, or do you mean that it shows up if you
> > display the Contacts field in some list view?
> >
> > Regards.....Bill Kratz
> >
> > "Lon Orenstein" wrote:
> >
> >> Bill:
> >>
> >> Thanks much!!! I entered the code and can see the Contacts field at the
> >> bottom of my task form, but after creating the task there are no contacts
> >> showing there. To create the task, I right click on the Business Contact
> >> list and choose Create, New Task for Business Contact, and when I go back
> >> to
> >> check, it is indeed linked to the business contact in Link Record.
> >>
> >> Any ideas?
> >>
> >> Thanks,
> >> Lon
> >>
> >> ___________________________________________________________
> >> Lon Orenstein
> >> pinpointtools, llc
> >> Lon DeleteThis @pinpointtools.com
> >> Author of Outlook 2007 Business Contact Manager For Dummies
> >> Author of the eBook: Moving from ACT! to Business Contact Manager
> >> 800.238.0560 x6104 Toll Free (U.S. only) +1 214.905.0401 x6104
> >> www.pinpointtools.com
> >>
> >>
> >> "am_box" <ambox DeleteThis @discussions.microsoft.com> wrote in message
> >> news:3FA02D5F-59AB-4968-87E6-3EE708A6238F@microsoft.com...
> >> > Thank you both for helping out - will give it a go.
> >> >
> >> > Rgds, Adam
> >> >
> >> > "Luther" wrote:
> >> >
> >> >> On Apr 27, 2:48 am, am_box <am_... DeleteThis @discussions.microsoft.com> wrote:
> >> >> > Hi,
> >> >> >
> >> >> > This looks great - but I am getting a Microsoft VB message - compile
> >> >> > error:
> >> >> >
> >> >> > Expected: line number or label or statement or end of statement.
> >> >> >
> >> >> > The first line of dashes are red, and the lines;
> >> >> >
> >> >> > Private Sub olInspectors_NewInspector(ByVal pInspector As
> >> >> > Outlook.Inspector)
> >> >> >
> >> >> > If Not objItem.UserProperties("TemporaryParentEntryId") Is
> >> >> > Nothing Then
> >> >> >
> >> >> > followed by the last dashed line
> >> >> >
> >> >> > are red too. I am sorry - but not a VB programmer just someone
> >> >> > trying
> >> >> > to
> >> >> > get the most of out BCM.
> >> >> >
> >> >> > If you can give me a shove in the right direction I would be
> >> >> > grateful.
> >> >> >
> >> >> > Regds, Adam
> >> >>
> >> >> BASIC is very line oriented. If something is meant to fit on a single
> >> >> line, then it better fit.
> >> >>
> >> >> That's the case with this:
> >> >>
> >> >> > If Not objItem.UserProperties("TemporaryParentEntryId") Is
> >> >> > Nothing Then
> >> >>
> >> >> The mail program wrapped it.
> >> >>
> >> >> Format it back to a single line and the problem should be fixed.
> >> >>
> >> >>
> >>
> >>
>
>

Yes, you're correct on all those statements. I've not only closed Outlook
but also rebooted.

There are some other addins (our pinpointtools applications) in the Trust
Center but none of those use VBA code.

Could there be some problem with the code I copied? I saw the other posts
about this newsgroup inserting a CRLF and splitting the line -- I fixed that
and got it to save/compile correctly, but maybe there's something else off.
Here's my code, copied from my ThisOutlookSession. This is the line that I
had to fix:
*** If Not objItem.UserProperties("TemporaryParentEntryId") Is Nothing
Then ***


Option Explicit
Private WithEvents olInspectors As Outlook.Inspectors

Private Sub Application_Startup()
Dim olApp As New Outlook.Application
Set olInspectors = olApp.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal pInspector As Outlook.Inspector)
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objItem As Object
Dim strID As String
Dim bcmContact As Outlook.ContactItem

Set olApp = CreateObject("Outlook.Application")
Set objNS = olApp.GetNamespace("MAPI")
Set objItem = pInspector.CurrentItem

If objItem.Class = olTask Or olAppointment Then
If Not objItem.UserProperties("TemporaryParentEntryId") Is Nothing
Then
strID = objItem.UserProperties("TemporaryParentEntryId")
Set bcmContact = objNS.GetItemFromID(strID)
objItem.Links.Add bcmContact
End If
End If

Set bcmContact = Nothing
Set objItem = Nothing
Set objNS = Nothing
Set olApp = Nothing
End Sub

Private Sub Application_Quit()
Set olInspectors = Nothing
End Sub

Thanks for all your help on this. The BCM Community is thrilled to see you
here and as soon as we get this working, I'll ask you to expand it to show
the Phone Number of that Business Contact in the views. That will satisfy
another 200 people here.

Take care,
Lon

___________________________________________________________
Lon Orenstein
pinpointtools, llc
Lon.TakeThisOut@pinpointtools.com
Author of Outlook 2007 Business Contact Manager For Dummies
Author of the eBook: Moving from ACT! to Business Contact Manager
800.238.0560 x6104 Toll Free (U.S. only) +1 214.905.0401 x6104
www.pinpointtools.com


"whkratz" <whkratz.TakeThisOut@discussions.microsoft.com> wrote in message
news:5486DE00-610A-435E-B65B-2F5B7B8674E0@microsoft.com...
> Okay, I get it now. So the BCM link is working, but the native Outlook
> Contacts link that we are trying to create with the vba is not working.
> Do
> you have any other procedures in your ThisOutlookSession? Did you close
> down
> Outlook and restart after inserting the code? Is there anything peculiar
> about your Outlook or BCM installation?
>
> Regards.....Bill Kratz
>
> "Lon Orenstein" wrote:
>
>> Bill:
>>
>> I'm on BCM 2007, version 3.00.5828.00... What I mean by "checking" is to
>> click on Link to Record on the ribbon bar, in the Task dialog, and it
>> shows
>> the contact I originally right clicked on to create the task. The
>> Contacts
>> field at the bottom is there but no contacts are in it. Looking on the
>> view, that column is empty too.
>>
>> HTH,
>> Lon
>>
>> ___________________________________________________________
>> Lon Orenstein
>> pinpointtools, llc
>> Lon.TakeThisOut@pinpointtools.com
>> Author of Outlook 2007 Business Contact Manager For Dummies
>> Author of the eBook: Moving from ACT! to Business Contact Manager
>> 800.238.0560 x6104 Toll Free (U.S. only) +1 214.905.0401 x6104
>> www.pinpointtools.com
>>
>>
>> "whkratz" <whkratz.TakeThisOut@discussions.microsoft.com> wrote in message
>> news:7B6C4390-1774-4CFD-901D-09DAEB9993FC@microsoft.com...
>> > Hi Lon -- Well, that's a little strange. The Contact Link should
>> > appear
>> > in
>> > the Task (or Appointment) as soon as it opens in its Inspector form
>> > when
>> > you
>> > select Create New Task for Business Contact. Two questions:
>> >
>> > What version of Outlook BCM are you running?
>> >
>> > When you say "when I go back to check, it is indeed linked to the
>> > business
>> > contact in Link Record", do you mean that the Link is displayed in the
>> > Contacts field of the Task form, or do you mean that it shows up if you
>> > display the Contacts field in some list view?
>> >
>> > Regards.....Bill Kratz
>> >
>> > "Lon Orenstein" wrote:
>> >
>> >> Bill:
>> >>
>> >> Thanks much!!! I entered the code and can see the Contacts field at
>> >> the
>> >> bottom of my task form, but after creating the task there are no
>> >> contacts
>> >> showing there. To create the task, I right click on the Business
>> >> Contact
>> >> list and choose Create, New Task for Business Contact, and when I go
>> >> back
>> >> to
>> >> check, it is indeed linked to the business contact in Link Record.
>> >>
>> >> Any ideas?
>> >>
>> >> Thanks,
>> >> Lon
>> >>
>> >> ___________________________________________________________
>> >> Lon Orenstein
>> >> pinpointtools, llc
>> >> Lon.TakeThisOut@pinpointtools.com
>> >> Author of Outlook 2007 Business Contact Manager For Dummies
>> >> Author of the eBook: Moving from ACT! to Business Contact Manager
>> >> 800.238.0560 x6104 Toll Free (U.S. only) +1 214.905.0401 x6104
>> >> www.pinpointtools.com
>> >>
>> >>
>> >> "am_box" <ambox.TakeThisOut@discussions.microsoft.com> wrote in message
>> >> news:3FA02D5F-59AB-4968-87E6-3EE708A6238F@microsoft.com...
>> >> > Thank you both for helping out - will give it a go.
>> >> >
>> >> > Rgds, Adam
>> >> >
>> >> > "Luther" wrote:
>> >> >
>> >> >> On Apr 27, 2:48 am, am_box <am_....TakeThisOut@discussions.microsoft.com>
>> >> >> wrote:
>> >> >> > Hi,
>> >> >> >
>> >> >> > This looks great - but I am getting a Microsoft VB message -
>> >> >> > compile
>> >> >> > error:
>> >> >> >
>> >> >> > Expected: line number or label or statement or end of statement.
>> >> >> >
>> >> >> > The first line of dashes are red, and the lines;
>> >> >> >
>> >> >> > Private Sub olInspectors_NewInspector(ByVal pInspector As
>> >> >> > Outlook.Inspector)
>> >> >> >
>> >> >> > If Not objItem.UserProperties("TemporaryParentEntryId")
>> >> >> > Is
>> >> >> > Nothing Then
>> >> >> >
>> >> >> > followed by the last dashed line
>> >> >> >
>> >> >> > are red too. I am sorry - but not a VB programmer just someone
>> >> >> > trying
>> >> >> > to
>> >> >> > get the most of out BCM.
>> >> >> >
>> >> >> > If you can give me a shove in the right direction I would be
>> >> >> > grateful.
>> >> >> >
>> >> >> > Regds, Adam
>> >> >>
>> >> >> BASIC is very line oriented. If something is meant to fit on a
>> >> >> single
>> >> >> line, then it better fit.
>> >> >>
>> >> >> That's the case with this:
>> >> >>
>> >> >> > If Not objItem.UserProperties("TemporaryParentEntryId")
>> >> >> > Is
>> >> >> > Nothing Then
>> >> >>
>> >> >> The mail program wrapped it.
>> >> >>
>> >> >> Format it back to a single line and the problem should be fixed.
>> >> >>
>> >> >>
>> >>
>> >>
>>
>>