1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
Dim accountsFolder As Outlook.Folder = DirectCast(bcmRootFolder.Folders("Comptes"), Outlook.Folder)
Dim strQuery As String = "[FullName] = " & "'" & dr("NOMCLIENT") & " " & dr("PRENOMCLIENT") & "'"
Dim accountItem As Outlook.ContactItem = DirectCast(accountsFolder.Items.Find(strQuery), Outlook.ContactItem)
Dim EntryID As String = accountItem.EntryID
'Affectation a un compte
If newOpportunity.UserProperties("Parent Entity EntryID") Is Nothing Then
Dim userProp As Outlook.UserProperty = newOpportunity.UserProperties.Add("Parent Entity EntryID", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, False, False)
userProp.Value = EntryID
End If |