VBA Outlook Contacts

[efire9207]

Operating system::    Windows 2011
Outlook version:     Microsoft 365
Email type or host:    IMAP

---

Need a VBA to bulk move File As to First Name... anyone have something I can use .....

 

[Diane Poremsky]

I have a macro at Bulk Change File As Format for Contacts and a PowerShell at

Use PowerShell to Bulk Change Contacts

How to use PowerShell to bulk change Outlook Contact fields, including the File As and Email display name fields.

www.slipstick.com

If you need to use the File As as the first name field if would be this for a macro -

  With objContact
            
                'Firstname Lastname format
                 strFileAs = .FullName
              
                'Lastname, Firstname format
                ' strFileAs = .LastNameAndFirstName
              
                'Company name only
                ' strFileAs = .CompanyName
              
                'Companyname (Lastname, Firstname)
                ' strFileAs = .CompanyAndFullName
                
               .firstname = .fileas 

                .Save
            End With

and powersahell should be

foreach ($Contact in $Contacts.Items)
{
    {
   $Contact.firstname = $Contact.fileas
   $Contact.Save()

 

[efire9207]

I have a macro at Bulk Change File As Format for Contacts and a PowerShell at

Use PowerShell to Bulk Change Contacts

How to use PowerShell to bulk change Outlook Contact fields, including the File As and Email display name fields.

www.slipstick.com

If you need to use the File As as the first name field if would be this for a macro -

  With objContact
           
                'Firstname Lastname format
                 strFileAs = .FullName
             
                'Lastname, Firstname format
                ' strFileAs = .LastNameAndFirstName
             
                'Company name only
                ' strFileAs = .CompanyName
             
                'Companyname (Lastname, Firstname)
                ' strFileAs = .CompanyAndFullName
               
               .firstname = .fileas

                .Save
            End With

and powersahell should be

foreach ($Contact in $Contacts.Items)
{
    {
   $Contact.firstname = $Contact.fileas
   $Contact.Save()

I copied and pasted into VBA in Outlook, then when I run it I get this error 'Compile Error, Invalid Outside Procedure". the Contact Folder name is 'Contacts (This Computer Only) is that the problem?

 

[Diane Poremsky]

I copied and pasted into VBA in Outlook, then when I run it I get this error 'Compile Error, Invalid Outside Procedure". the Contact Folder name is 'Contacts (This Computer Only) is that the problem?

No, not necessarily. More likely there is an error in the code.

Was the folder selected or is it in the default data file?

This code (from powershell, but is similar in VBA) - uses the default contacts folder by default - but could be changed to the selected folder.

# Default Contacts folder
$Contacts = $namespace.GetDefaultFolder(10)

# Uses current folder
#$Contacts = ($olApp.ActiveExplorer()).CurrentFolder

This should work on the selected contacts folder

$olApp = new-object -comobject outlook.application
$namespace = $olApp.GetNamespace("MAPI")

# Uses current folder
$Contacts = ($olApp.ActiveExplorer()).CurrentFolder

foreach ($Contact in $Contacts.Items) {    
{   
$Contact.firstname = $Contact.fileas
   $Contact.Save()
    }
}

$olApp.Quit | Out-Null
[GC]::Collect()

 

[efire9207]

I copied and pasted into VBA in Outlook, then when I run it I get this error 'Compile Error, Invalid Outside Procedure". the Contact Folder name is 'Contacts (This Computer Only) is that the problem?

So I ran the Macro, but it didn't seem to work completely.... I am wondering if I need to first run a macro to delete the First Name field first

 

[Diane Poremsky]

No, it should replace the first name field - unless the only entry in the file as is the first name field, then it will appear as nothing changed.

Check the ones you think are not correct - click on the full name button to see where the entries are.

 

[efire9207]

No, it should replace the first name field - unless the only entry in the file as is the first name field, then it will appear as nothing changed.

Check the ones you think are not correct - click on the full name button to see where the entries are.

When I check the First Name and File As are in a different order, so they didn't change... I tried adding the line of code you sent for Current Folder, not sure if I added it correctly to the Macro...
'Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)'
Set objContactsFolder = objOL.App.ActiveExplorer().CurrentFolder