VBA in MS Outlook

[metalguy90]

Hello everyone,

I am trying to do a count in Outlook.
how do i create a macro in Outlook that will tell me how to many contacts are in the folder.

also, how do i tell the program how to save a contact as a vcard?

i am new to VBA for outlook. I have a pretty good understanding since i do a lot of programming in Excel, but i havent done much in Outlook, so i dont know all the methods and such.

all help is greatly appreciated! thanks!

 

[DaLiMan]

Hi Metalguy,

If you like to know the number of contact in outlook, why not right-click the contacts folder and choose properties.
There you can choose "show total number of items"
if you select this and click OK Outlook will show the number just like you have with your Inbox when you have unread mail.( (3) or something)

can't help with the rest, sorry.

Greeting,
DaLiMan

 

[dk]

Hi,

how do i create a macro in Outlook that will tell me how to many contacts are in the folder.

You can use this line of code:

MsgBox Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items.Count

also, how do i tell the program how to save a contact as a vcard?

There's all sorts of things you can do. This example will save of your contacts as an individual vCard file in C:\temp.

Sub SaveAllAsVCard()

    Dim MyContact   As ContactItem
    Dim ContactsFolder As MAPIFolder

    Set ContactsFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)


    For Each MyContact In ContactsFolder.Items
        MyContact.SaveAs "C:\temp\" & MyContact.FullName & ".vcf", olVCard
    Next MyContact

End Sub

This example saves the contact with the name 'John Smith'

Sub SaveAsVCard()

    Dim MyContact   As ContactItem
    Dim ContactsFolder As MAPIFolder

    Set ContactsFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
    
    Set MyContact = ContactsFolder.Items("John Smith")
    
    MyContact.SaveAs "C:\temp\John Smith.vcf", olVCard
    
End Sub

i am new to VBA for outlook. I have a pretty good understanding since i do a lot of programming in Excel, but i havent done much in Outlook, so i dont know all the methods and such.

The Object Browser is your friend

HTH
Dan