VBA Account Flag Status

[Guy]

I'm looking for an example of VBA code that manipulates the flag status on an Account.

 

[Luther]

Here's an example in VBS. Making it work in VBA should be straight
forward.
Note that in the BCM v3 beta this property has changed.

' SetStatus.vbs
' Create BCM v2 Account and set "Business Status" property to "Current"

set oOL = CreateObject("Outlook.Application")
set oNS = oOL.GetNamespace("MAPI")
set oBCMFolder = oNS.Folders("Business Contact Manager")
set oBCMAccountsFolder = oBCMFolder.Folders("Accounts")
set oItems = oBCMAccountsFolder.Items
set oAccount = oItems.Add("IPM.Contact.BCM.Account")
oAccount.FullName = "foobar"
set oProperties = oAccount.ItemProperties
oProperties("Business Status").Value = "Current"
oAccount.Save()

 

[Guy]

Thank you so much, Luther.

I'm actually looking to manipulate the follow up flag and I can't seem to
find the syntax to do so or it isn't an exposed object. The flag status in
the object browser does not provide any help so I can't find any examples of
code.

Outlook doesn't have a built in function to highlight multiple contacts (in
my case accounts) and change the flag status for them. I'm trying to build a
routine that will provide this functionality.