A praiseworty MVP "Ken Slovak" sure did present me with an special idea in
respect of changing the layout of a contact card with the following code:

Public Sub ConvertToDesiredBusinessCard()
Dim obj As Object
Dim oFolder As Outlook.MAPIFolder
Dim oContact As Outlook.ContactItem
Dim oModel As Outlook.ContactItem
Dim colItems As Outlook.Items
Dim i As Long
Dim lCount As Long
Dim sXML As String

Set oFolder = Application.Session.GetDefaultFolder(olFolderConta cts)
Set colItems = oFolder.Items

Set oModel = Application.ActiveExplorer.Selection.Item(1)

sXML = oModel.BusinessCardLayoutXml

lCount = colItems.Count
For i = 1 To lCount
Set obj = colitems.Item(i)
If (obj.Class = olContact) Then
Set oContact = obj
oContact.BusinessCardLayoutXml = sXML
oContact.Save
End If
Next
End Sub

However, any idea:
1. How to view the XML schemas of a default and a special card, so as to
compare the both? &
2. How to set a special background like C:\xyz.jpg for all the EBCs?
--

Best Regards,
FARAZ A. QURESHI