Outlook 2003 Contact List >> File As: Need to mass change format.

Joe,

You should be able to modify the code I post here to suit your need:

http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/Q_23358371.html#21453213

Patrick

Hi Patrick ...

Soooo ... all I would need to change is this:

.FileAs = .LastName & ", " & .FirstName

to

.FileAs = .FirstName & " " & .LastName

?

Also, do I need to specify the name of the specific contact list?  I guess actually, change all of the (about 4) is fine.

Is the code otherwise bullet proof ... as I'm not familiar with interfacing with Outlook ?

thx.mx

You have the FileAs change correct.  The code as written goes against the default Contacts folder.  If you need
to get to a different folder, then you need to navigate to it through Outlook's Folder object model.

See attached image.

'Cell Phone' is the one to change ... *but* ... changing all three is ok too, in fact preferrable.

What do you think?

Patrick ... ok, I see that it's just iterating through the 'contacts' folder (below the CellPhone folder).  So, what is the code to loop through all those folders?  I tried some different things, but I'm just not familiar Outlook object model ... and couldn't really get it to pick up the other two folders shown.

And ... you can't Rename the Contacts folder either.  I was going to rename Contacts, then rename CellPhone to Contacts and fool it like that.

thx.mx

MX,

You can get the folder directly and then enumerate the ContactItems there:

Dim fld As Folder
Set fld = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Folders("Cell Phone")

Patrick

Well, this:

Dim fld As Folder

generates "user type not definded" ... which tells me I need to set a reference to something ?

And then, how will the code you pointed me to need to be modified?

thx.mx

ok ... this does it:

Function FixFileAs()
   
    Dim fld As MAPIFolder            ' need MAPIFolder
    Dim ctact As ContactItem
    Dim it As Object
   
    Set fld = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Folders("CellPhone")
   
    For Each it In fld.Items
        If it.Class = olContact Then
            Set ctact = it
            With ctact
                'Debug.Print ctact
                .FileAs = .FirstName & " " & .LastName
                .Save
            End With
        End If
    Next
   
    Set it = Nothing
    Set ctact = Nothing
    Set fld = Nothing
    MsgBox "Done"
   
End Function

mx

Except ... this:

    Set fld = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Folders("Contacts")

doesn't find the 'default' folder 'Contacts' (see screen shot above).  I changed the other two ok.

Why is that?

I guess I can use the other version to change that folder.

mx

Something like this:

Sub FixFileAs()
   
    Dim ns As NameSpace
    Dim mf As MAPIFolder
    Dim ctact As ContactItem
    Dim it As Object
   
    Set ns = Application.GetNamespace("MAPI")
    Set mf = ns.GetDefaultFolder(olFolderContacts).Folders("CellPhone")
   
    For Each it In mf.Items
        If it.Class = olContact Then
            Set ctact = it
            With ctact
                .FileAs = .LastName & ", " & .FirstName
                .Save
            End With
        End If
    Next
   
    Set it = Nothing
    Set ctact = Nothing
    Set mf = Nothing
    Set ns = Nothing
   
    MsgBox "Done"
   
End Sub

ok ... your last post works also, but still has the same issue with the actual 'default' folder Contacts ... ?

mx

Ok ... that does it all.

Thank you Patrick ...

mx

MX,

You're most welcome.  Now, if those subfolders have subfolders, then I think we are looking at making
ActuallyDoIt a recursive function...  :)

Patrick

No additional sub folders.  And I will eliminate the sce folder also, leaving just two. In fact, I would only have one, but ... that must makes it more complicated to do the cell phone gig ... since the 'master' list (ie ... Contacts only) would have a lot more names that I don't really need or want in the cell phone.

mx

Forgive me for this stupid question, but how in the world do I run the aforementioned codes against outlook or its contacts?