Results 1 to 12 of 12
  1. #1
    2 Star Lounger
    Join Date
    Jan 2001
    Location
    New Cumberland, Pennsylvania, USA
    Posts
    180
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Address Book (2000 / 2002)

    I've used OL2000 for years, now have 2002 at home.
    Two things nag me, and make me feel stupid for not finding ways around them: 1> I don't seem to be able to tell 2002 to show me my address book/contacts entries sorted by last names - it insists on first-names... 2> When selecting dates from the drop-down calendars (in tasks and calendar) I have to hold the right mouse button down and drag over the date in the calendar, or it the calendar disappears. And even if I do that, it won't change to another month - I'm stuck selecting from the one that dropped down.
    How do I tame 2002 so it does these 2 things like 2000?

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

    Re: Address Book (2000 / 2002)

    On the first quextion, in XP (OL 2002) go to Tools, Options, Preferences tab, Contacts dialog and set your Last, First options for sorting and displaying.

    I don't understand your second question; what views are you using when you have this problem, and what are you trying to do?
    -John ... I float in liquid gardens
    UTC -7ąDS

  3. #3
    2 Star Lounger
    Join Date
    Jan 2001
    Location
    New Cumberland, Pennsylvania, USA
    Posts
    180
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Address Book (2000 / 2002)

    Thanks. I changed that setting, but when I hit "To:" to select who gets an email, it still gives me the names in first-last order. Any other ideas?
    Sorry I wasn't clear on the second item: When I'm setting the due date for a task, for instance, and click the down arrow to drop the calendar to select the date with the mouse, the calendar disappears unless I hold-and-drag the mouse across from the drop-down arrow to the calendar. If I release the mouse over the right date, the calendar clears and the date is inserted. But there's no switching months, and just clicking on the drop-down arrow only brings the calendar down for an instant as the click is made. I like the way this feature behaves in OL2000 better - the calendar stays down when dropped and you can go to any month or date and select it.
    Appreciate you time and patience.

  4. #4
    3 Star Lounger
    Join Date
    Aug 2002
    Location
    Phoenix, Arizona, USA
    Posts
    205
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Address Book (2000 / 2002)

    I read the thread on this problem and the answer you gave Bill does not work for me either. My contacts are still listed by First Name. Any other idea?

  5. #5
    5 Star Lounger
    Join Date
    Oct 2002
    Location
    Wellington, Wellington, New Zealand
    Posts
    621
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Address Book (2000 / 2002)

    Bill

    I think we're dealing with a 'design feature' here. The suggested method talks about 'new' contacts, and any new contact added will indeed display as the setting suggests.
    The issue relates to the fact that Outlook has 'hard-coded' the FileAs fields for each of the contacts that already exist, and does not appear to change it when the option is changed.

    This is probably 'by-design' because the option setting fields are very clear and I can see reasons why this field may need to be retained (not many) - even if help is at odds with it.

    There are several possibilities for work-arounds

    a) select contacts one by one and change the FileAs field (it has a drop-down so it is not too bad)
    [img]/forums/images/smilies/cool.gif[/img] Export contacts to text then Import to force a rebuild of the FileAs field
    c) Create a VBA Macro to do the job - I'd volunteer but I've got a late tax return to do <img src=/S/bummer.gif border=0 alt=bummer width=15 height=15>

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

    Re: Address Book (2000 / 2002)

    Thanks, Andrew. If you have a feel for the Contacts object hierarchy and can throw me the object names for FileAs order I can have a crack at the VBA, but my restriction isn't tax returns, it's that the only XP machine is the Brides', and she is studying for her Masters. Heaven forbid that I mess anything up! For the other posters, see also Slipstick Contact Order Form at your own risk.
    -John ... I float in liquid gardens
    UTC -7ąDS

  7. #7
    5 Star Lounger
    Join Date
    Oct 2002
    Location
    Wellington, Wellington, New Zealand
    Posts
    621
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Address Book (2000 / 2002)

    John

    Its called ".FileAs" <img src=/S/grin.gif border=0 alt=grin width=15 height=15> but I suspect you were after a little more. I've included a routine I wrote to load contacts from a specific file.
    I haven't modified it - but all the clues of object properties should be there.
    I suspect the key is

    Contact.FileAs = Contact.LastName & ", " & Contact..Firstname

    wrapped in a suitable loop with saves.
    Andrew

    Sub Contacts()

    ' Will look for, and load a list of contacts from a specific csv file

    Dim Myolapp As Object
    Dim MyNameSpace As NameSpace
    Dim ContactsFolder As Object
    Dim Contact As ContactItem
    Dim FileContents As String, ContactData As String, ContactField(100) As String
    Dim MyString As String
    Dim I As Long, J As Long, K As Long, L As Long, M As Long, N As Long
    Dim ITarget As Long, IProgress As Long
    Const CSVFile As String = "c:daytodayklein.txt "
    Dim TStart As Single, TStop As Single
    Dim Reply As Integer

    TStart = Timer

    ' Set up the Outlook folder

    Set Myolapp = CreateObject("Outlook.Application")
    Set MyNameSpace = Myolapp.GetNamespace("MAPI")

    ' Now go and fetch the CSV data

    Open CSVFile For Input As #1

    ' Each line is one contact which we'll break into fields
    ' The raw form of the file is such that lines are separated
    ' by <lf> only and the following input statement reads the whole file
    ' in one hit

    Line Input #1, FileContents

    On Error Resume Next
    I = GetSetting(Myolapp, "ContactMacro", "BytesPerSecond", 2000)
    Reply = MsgBox("Deleting and reloading contacts. Estimated time is " & _
    Format(Len(FileContents) / I / 60#, "#,##0.0 Minutes"), vbOKCancel)
    If Reply = vbCancel Then
    Close #1
    Exit Sub
    End If

    ' First delete all existing contacts


    FrmProgressDisplay.Caption = "Deleting Contacts ..."
    N = 0
    Set Myolapp.ActiveExplorer.CurrentFolder = _
    MyNameSpace.GetDefaultFolder(olFolderContacts)
    Set ContactsFolder = Myolapp.ActiveExplorer.CurrentFolder
    M = ContactsFolder.Items.Count
    For N = M To 1 Step -1
    If Int(N / 150) * 150 = N Then
    With FrmProgressDisplay
    .Percentage = Format((M - N) / M, "##0%")
    DoEvents
    .Show (False)
    DoEvents
    End With
    End If
    ContactsFolder.Items(N).Delete
    Next N

    FrmProgressDisplay.Caption = "Loading Contacts ..."

    ' Then break out the lines one by one

    M = 0
    N = 0
    L = InStr(1, FileContents, vbLf, vbTextCompare)
    While L > 1

    ' Display progress every 100 records

    If Int(N / 150) * 150 = N Then
    With FrmProgressDisplay
    .Percentage = Format(L / Len(FileContents), "##0%")
    DoEvents
    .Show (False)
    DoEvents
    End With
    End If
    ContactData = Mid(FileContents, M + 1, L - M - 1)
    M = L
    N = N + 1
    I = 0

    ' and break out the fields from each line

    J = InStr(1, ContactData, ",", vbTextCompare)
    If J <> 0 Then
    K = 1
    While J > 0
    ContactField(K) = Mid(ContactData, I + 1, J - I - 1)
    I = J
    K = K + 1
    J = InStr(I + 1, ContactData, ",", vbTextCompare)
    Wend

    ' and then create a contact and assign each field to the correct contactitem field
    Set Contact = Myolapp.CreateItem(olContactItem)
    With Contact
    .LastName = ContactField(1)
    .FirstName = ContactField(2)
    .Title = ContactField(3)
    .FullName = ContactField(3) & " " & ContactField(4)
    .BusinessAddressStreet = ContactField(5) & vbCr & ContactField(6)
    .BusinessAddressCity = ContactField(7)
    If Len(ContactField(8)) > 3 Then .HomeTelephoneNumber = ContactField(8)
    If Len(ContactField(9)) > 3 Then .BusinessTelephoneNumber = ContactField(9)
    .BusinessAddressState = ContactField(10)
    .BusinessAddressPostalCode = ContactField(11)
    .Body = ContactField(12)
    .Save
    End With
    End If
    L = InStr(M + 1, FileContents, Chr(10), vbTextCompare)
    Wend

    Close #1

    TStop = Timer

    FrmProgressDisplay.Hide

    MsgBox "Contacts Loaded." & vbCrLf & "Total time " _
    & Format((TStop - TStart) / 60, "#,##0.00 Minutes") _
    & vbCrLf & " For " & N & " Contacts."

    ' record the performance in the registry

    I = Len(FileContents) / (TStop - TStart)
    On Error Resume Next
    SaveSetting Myolapp, "ContactMacro", "BytesPerSecond", I
    End Sub

  8. #8
    2 Star Lounger
    Join Date
    Jan 2001
    Location
    New Cumberland, Pennsylvania, USA
    Posts
    180
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Address Book (2000 / 2002)

    I think I understand your answer, but after reading the continuation of this thread, the discussion went way over my head.
    But...
    All of my contacts are "File As" set for last-first. Always have been. If I'm setting a task or appointment, and pick a contact to reference in the field below the body, the list comes up just fine.
    It's when I use "To, Cc, or Bcc" when sending an email that I get the first-last configuration.
    If I understand the second suggestion, exporting my contacts folder to a text file (then presumably deleting the whole list as is?) and importing them back in will fix this? Do I stand to lose anything in the process?
    Would it be smart to make a second contacts folder (with a different name) and import to that one? Would I be able to shift the "To" search to that folder, and if all works, clean out the other one and copy all of the second file into the first?
    Appreciate your time.

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

    Re: Address Book (2000 / 2002)

    Yes, make a backup, more so that you don't overwrite the current Contacts folder in error when you recreate it. And I'm also unable to get Contacts to show in Last, First order in the e-mail addres book.

    Also, I'm unable to reproduce your "teflon" calender drop down in OL 2002 XP SP1.
    -John ... I float in liquid gardens
    UTC -7ąDS

  10. #10
    5 Star Lounger
    Join Date
    Oct 2002
    Location
    Wellington, Wellington, New Zealand
    Posts
    621
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Address Book (2000 / 2002)

    When I do the attached settings (Tools > Options > Preferences >Contact Options)
    and add a new a person such as Bloggs, Jim
    the To: field places the address under B, not J
    Attached Images Attached Images

  11. #11
    5 Star Lounger
    Join Date
    Oct 2002
    Location
    Wellington, Wellington, New Zealand
    Posts
    621
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Address Book (2000 / 2002)

    Bill

    Where I am really baffled is if your settings have always been 'Last, First' you shouldn't be having any trouble with the 'Fileas' field unless these were imports from a previous system or some other issue.

    I'd suggest entering a new contact or two and explicitly look to see what Outlook is doing with the 'FileAs' field that it generates and different conditions. e.g.

    Lastname Firstname
    Lastname, Firstname
    Dr Firstname Lastname

    Until you know that, an export / import is hardly worth it.

    To make a contact folder an Outlook address folder - right-click on the folder and select properties - there is a checkbox.

  12. #12
    2 Star Lounger
    Join Date
    Jan 2001
    Location
    New Cumberland, Pennsylvania, USA
    Posts
    180
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Address Book (2000 / 2002)

    This is the same .pst I've used in OL2000 at work for years. No problem there, just when I copy it over to use on the much newer home machine running XP and OL2002.
    Also, I went right to that check box you described (in OL2000), and the option to use contacts as the address book is greyed out! And this on the machine not giving me the problem...
    I'll try experimenting with a few new contacts in XP (and probably further confuse the issue).

Posting Permissions

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