Results 1 to 5 of 5
  1. #1
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Confoederatio Helvetica
    Posts
    602
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Global e-mail address change (2000 SP3)

    I've just been advised that an organisation I work with will be changing their domain name (rest of e-mail address won't change). I have a couple hundred addresses in my outlook address book and don't really want to change them one by one.

    Is there a global search and replace in outlook that I can use for this. The change will be Name@ec.europa.eu instead of: Name@cec.eu.int.

    <img src=/S/thankyou.gif border=0 alt=thankyou width=40 height=15>

  2. #2
    Plutonium Lounger Leif's Avatar
    Join Date
    Dec 2000
    Location
    U.K.
    Posts
    14,010
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Global e-mail address change (2000 SP3)

    Does the thread beginning with <post:=106,384>post 106,384</post:> help?

  3. #3
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Confoederatio Helvetica
    Posts
    602
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Global e-mail address change (2000 SP3)

    Yes and no. I did do a search but obviously didn't use all the correct terms. (i.e. Mass vs global) Thanks for the link though! Just hope not too many want to change to the new .eu domain - this could be a lot of work for everyone!

  4. #4
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Global e-mail address change (2000 SP3)

    Bowlie, did you look at Jefferson's code in the thread leif linked to? It should work very well for 2003, which has improved displayname handling. However, I would do two things before running it:

    1. make a backup of your contacts in case you make an error in Finding and Replacing!
    2. eliminate the 'Msgbox' lines in Jefferson's code, as they will drive you crazy

    Starting from the same comment line, optionally use the following minor modifications:

    ' change this Dim to be generic
    Dim aContact As Object ' contactitem
    Dim strDisplayName As String
    Dim lngChangeCount As Long
    ' this version adds error trapping for non-Contact Items
    For Each aContact In ActiveExplorer.CurrentFolder.Items
    If aContact.Class = olContact Then
    With aContact
    If (InStr(1, .Email1Address, strOldDomain, vbTextCompare) > 0) And _
    (.Email1AddressType = "SMTP") Then
    strDisplayName = .Email1DisplayName
    Debug.Print "Updating " & strDisplayName
    .Email1Address = .Email1DisplayName & " [" & .Email1AddressType _
    & ":" & Replace(.Email1Address, strOldDomain, strNewDomain, , , vbTextCompare) & "]"
    .Email1DisplayName = strDisplayName
    lngChangeCount = lngChangeCount + 1
    .Save
    End If
    If (InStr(1, .Email2Address, strOldDomain, vbTextCompare) > 0) And _
    (.Email2AddressType = "SMTP") Then
    strDisplayName = .Email2DisplayName
    Debug.Print "Updating " & strDisplayName
    .Email2Address = .Email2DisplayName & " [" & _
    .Email2AddressType & ":" & Replace(.Email2Address, strOldDomain, _
    strNewDomain, , , vbTextCompare) & "]"
    .Email2DisplayName = strDisplayName
    lngChangeCount = lngChangeCount + 1
    .Save
    End If
    If (InStr(1, .Email3Address, strOldDomain, vbTextCompare) > 0) And _
    (.Email3AddressType = "SMTP") Then
    strDisplayName = .Email3DisplayName
    Debug.Print "Updating " & strDisplayName
    .Email3Address = .Email3DisplayName & " [" & _
    .Email3AddressType & ":" & Replace(.Email3Address, strOldDomain, _
    strNewDomain, , , vbTextCompare) & "]"
    .Email3DisplayName = strDisplayName
    lngChangeCount = lngChangeCount + 1
    .Save
    End If
    End With
    End If
    Next
    MsgBox "Done! - " & lngChangeCount & " items changed"
    End Sub
    -John ... I float in liquid gardens
    UTC -7ąDS

  5. #5
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Confoederatio Helvetica
    Posts
    602
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Global e-mail address change (2000 SP3)

    Hi John,

    I did have a look at the Macro - but decided to go with Plan B - we have an intern for the summer and she has the pleasure of updating all of the department's lists. She's got the Macro and is working with our IT people to get this done. I've told her about the lounge as well.

    Thanks again (and thanks Jefferson)!

    btw - still skiing are we? I've been on my bike for a while now ... <img src=/S/evilgrin.gif border=0 alt=evilgrin width=15 height=15>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •