Re: New Exchange, Migrated w/ ExMerge - what gives? :-)

Thanks, Peter Jamieson - I can do that :-)

Kindest Regards,

William Arnold ~ Indianapolis

"Peter Jamieson" <pjj@xxxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:uzSF$9QjFHA.3336@xxxxxxxxxxxxxxxxxxxxxxx
>I haven't come across this particular problem, and you might get more info.
>in an Outlook group, but...
>
>> Is there a way to touch every contact record?
>
> A user ought to be able to modify all of their own contacts with a bit of
> Outlook (or Word) VBA. Depending on how many people you have to update,
> that might or might not be a manageable solution. Again, you might be
> better off asking how to do this in an Outlook group as they probably know
> more about the pitfalls, but the following code worked in a simple case
> here where all the contacts are in the default contacts folder (that isn't
> necessarily the case). In order to force an update, it adds and removes a
> user-defined property to/from every contact - in principle you ought to
> check for the name of the user defined field before trying to add it. To
> use it from the Word VBA editor you need to use Tools|References to add
> the Microsoft ?? Outlook Object Library, where 11 is your Outlook version.
>
> Sub touch_all_contact_records()
>
> Dim oOutlookApp As Outlook.Application
> Dim oContactFolder As Outlook.MAPIFolder
> Dim oContactItem As Outlook.ContactItem
> Dim oUserProperty As UserProperty
> Dim oONS As Outlook.NameSpace
>
> ' If you are running this from Outlook, use this...
> 'Set oOutlookApp = Application
> ' Otherwise, use this...
> Set oOutlookApp = CreateObject("Outlook.Application")
> Set oONS = oOutlookApp.GetNamespace("MAPI")
> Set oContactFolder = oONS.GetDefaultFolder(olFolderContacts)
>
> ' Add all the contact items in the default contacts folder to the list
>
> For Each oContactItem In oContactFolder.Items
> If Left(oContactItem.MessageClass, 11) = "IPM.Contact" Then
> Set oUserProperty =
> oContactItem.UserProperties.Add(Name:="u432765874635", Type:=olText,
> addtofolderfields:=False)
> oContactItem.Save
> oUserProperty.Delete
> Set oUserProperty = Nothing
> oContactItem.Save
> oContactItem.Close olSave
> End If
> Next
>
> Set oContactFolder = Nothing
> Set oONS = Nothing
> Set oOutlookApp = Nothing
>
> End Sub
>
> Peter Jamieson
>
> "William" <WmArnold1@xxxxxxxxxxxxxx> wrote in message
> news:vWdDe.18950$B52.18490@xxxxxxxxxxxxxxxxxxxxxxxxx
>> Greetings;
>>
>> I just moved a whole office of people to a new Exchange Server via
>> ExMerge:
>> http://support.microsoft.com/default.aspx?scid=kb;en-us;174197&sd=tech
>>
>> Now; Word - Tools - Letters and Mailings - Envelopes & Labels
>> does not show anything but the top line of the address until I
>> go back and edit a contact record that looks just perfect.
>>
>> Is there a way to touch every contact record?
>> Or, did I miss something in the migration??
>>
>> Looking forward to your reply, because,
>> one of my folks has over 2,000 contacts!
>>
>> William Arnold ~ Indianapolis, IN
>>
>>
>
>


.

Relevant Pages

  • Re: DocOutlook Landkarte Deutschland
    ... Informationen von Smarttools Outlook Weekly vom 11/19/25.02.2004 ... Karten und Routenplanung direkt aus Outlook aufrufen, ... ByVal Inspector As Inspector) Dim cb As CommandBar Dim mnu As ... ByVal lpOperation As String, _ ...
    (microsoft.public.de.outlook)
  • Re: KONTAKTE - KARTE ZUR ADRESSE ANZEIGEN
    ... Karten und Routenplanung direkt aus Outlook aufrufen, ... Wenn Sie einen Kontakt in Outlook anlegen, geben Sie neben dem Namen, der ... ByVal Inspector As Inspector) Dim cb As CommandBar Dim mnu As ... ByVal lpOperation As String, _ ...
    (microsoft.public.de.outlook)
  • Re: HTML Item properties vs. Regular item properties
    ... Why would Outlook record different times for the HTTP ... and the default folder? ... Dim app As Outlook.Application ... "Dmitry Streblechenko" wrote: ...
    (microsoft.public.outlook.program_vba)
  • Re: VBA shutdown error Outlook
    ... In Outlook VBA there is an intrinsic Application object. ... Dim oExpl As Outlook Explorer ... > Public myFlag As Boolean ... > Exit Sub ...
    (microsoft.public.office.developer.outlook.vba)
  • RE: How to copy the format in word document to Outlook Mail
    ... This is where I'm afraid you'll have to do your homework Sangeeta. ... Eric Legault (Outlook MVP, MCDBA, MCTS: ... Dim objOutlook As Outlook.Application ... Dim objWordDoc As Word.Document ...
    (microsoft.public.outlook.program_vba)