outlook programming

Question

Comment ajouter des champs personnalisés Outlook dans l'accès ms? Exemple:

Set objOutlook = CreateObject("Outlook.Application") 
Set item = objOutlook.CreateItem(2) 
Set nms = objOutlook.GetNamespace("MAPI") 
Set fldContacts = nms.GetDefaultFolder(10) 
Set itms = fldContacts.Items 
Set item = itms.Add 
    item.FirstName = Me.FirstName 
    ... 
    item.Email1Address = Me.Email 
    item.Fields("ClientId") = "Client1" 
    item.Display 

item.Fields ("ClientId") = "Client1" -> Cette ligne ne fonctionne pas, aucune idée comment faire fonctionner cette chose? Merci!!

Answer 1

Je n'ai pas accès à Outlook pour tester maintenant, mais il semble que ce devrait être

item.Fields("ClientId").Text = "Client1" 

ou

item.Fields("ClientId").Value = "Client1" 

En d'autres termes, il semble que votre code tente pour transformer un contrôle en chaîne ("Client1"), lorsque vous souhaitez définir le texte (ou la valeur) du contrôle sur la chaîne "Client1".

Answer 2

Lorsque vous créez le nouvel élément, vous devez spécifier qu'il est un contact:

Set itm = itms.Add("IPM.Contact") 

Answer 3

Aucun élément Outlook expose les champs(). Utilisez soit l'élément. PropertyAccessor.SetProperty ou Article. UserProperties.Add