F
FARAZ QURESHI
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(olFolderContacts)
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?
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(olFolderContacts)
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?