[VB] champ possible pour un objet Outlook.ContactItem

champ possible pour un objet Outlook.ContactItem [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 19-06-2007 à 13:15:02    

Bonjour à tous
 
Je souhaite rentrer des contacts dans une liste de contact outlook.
Pour l'instan j'utilise ca :  

Code :
  1. Dim myOlApp As New Outlook.Application
  2.    Dim myNameSpace As NameSpace
  3.    Dim myFolder, myFolders, myContactFolder As MAPIFolder
  4.    Dim myNewContact As Outlook.ContactItem
  6.    Set myOlApp = CreateObject("Outlook.Application" )
  7.    Set myNameSpace = myOlApp.GetNamespace("MAPI" )
  8.    Set myFolder = myNameSpace.Folders("Dossiers publics" )
  9.    Set myFolders = myFolder.Folders("Favoris" )
  10.    Set myContactFolder = myFolders.Folders("Contacts logicarch" )
  11.      
  12.    Set myNewContact = myContactFolder.Items.Add(olContactItem)
  13.    With myNewContact
  14.         .FirstName = Me.sf_contact!CON_PRENOM
  15.         .LastName = Me.sf_contact!CON_NOM
  16.         If Not IsNull(Me.sf_contact!CON_MAIL) Then
  17.             .Email1Address = Me.sf_contact!CON_MAIL
  18.         End If
  19.         .Save
  20.    End With
  21.     MsgBox "Contact Ajouté"
  22.     Set myOlApp = Nothing
  23.         End If
  24.     Else
  25.         MsgBox "Sélectionnez un contact", vbExclamation
  26.     End If


 
Ca marche bien mais j'aimerais rentrer d'autre information : le téléphone, la société etc...
 
Où puis-je trouver les champs possible à rentrer avec cette méthode svp ?

Reply

Marsh Posté le 19-06-2007 à 13:15:02   

Reply

Marsh Posté le 19-06-2007 à 13:20:36    

En bas de cette page il y a une liste de propriétés ; ça doit être ce qu'il te faut.
http://msdn2.microsoft.com/en-us/l [...] e.11).aspx


Message édité par tegu le 19-06-2007 à 13:20:58
Reply

Marsh Posté le 19-06-2007 à 15:15:03    

Super :)
 
Je suis passé sur cette page mais j'ai même pas fait gâffe au bordel de lien qu'il y avait en bas ... ;)
 
merci

Reply

Marsh Posté le 19-06-2007 à 15:26:53    

J'ai un peu avancé, mais je n'arrive pas a supprimer ou même séléctionner un contact en VB.
 
J'aimerais avoir un moyen de savoir si le contact est déjà sur Outlook et si oui le modif ou supprimer...

Reply

Marsh Posté le 19-06-2007 à 15:45:41    

J'arrive a supprimer mais en mettant explicitement le nom du champ en texte :
 

Code :
  1. Dim myolApp As New Outlook.Application
  2.    Dim myNameSpace As NameSpace
  3.    Dim myFolder, myFolders, myContactFolder As MAPIFolder
  4.    Dim myNewContact As Outlook.ContactItem
  5.     Dim strPrompt As String
  7.    Set myolApp = CreateObject("Outlook.Application" )
  8.    Set myNameSpace = myolApp.GetNamespace("MAPI" )
  9.    Set myFolder = myNameSpace.Folders("Dossiers publics" )
  10.    Set myFolders = myFolder.Folders("Favoris" )
  11.    Set myContactFolder = myFolders.Folders("Contacts logicarch" )
  12.    Set myNewContact = myContactFolder.Items.Find(("[FileAs] = ""AMPLITUDE(toto, toto)"" and [FirstName] = ""toto""" ))
  14.    
  15.     strPrompt = "Are you sure you want to delete the folder?"
  16.     If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
  17.         myNewContact.Delete
  18.         MsgBox ("Folder deleted" )
  19.     End If


 
Le problème c'est que j'aimerais mettre des variables venant de mon formulaire a la place de AMPLITUDE(toto, toto) et de toto ...
 
J'ai essayé en utilisant une string intermédiaire ca marche pas, en metant directement la chaine que je veux (Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & " )" ) ca marche pas non plus :(

Reply

Marsh Posté le 19-06-2007 à 16:45:25    

Essaie ça, en vérifiant les champs et tout :

(...) .Find(("[FileAs] = """ & Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & " )" & """ and [FirstName] = """ & Me.sf_contact!CON_NOM & """" ))

Reply

Marsh Posté le 19-06-2007 à 17:19:45    

Merci de ton aide :)
 
J'y suis arrivé en utilisant  

Code :
  1. sFilter = "[FileAs]= " & Chr(34) & Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & " )" & Chr(34)


 
après je met le sFilter dans le Find et ca marche !!!
 
Je sais pas à quoi sert ce Chr(34) ni à quoi il correspond mais sans ca marche pas et avec ca marche !!!  :bounce:

Reply

Marsh Posté le 20-06-2007 à 16:20:21    

34 est le code ASCII de "
Donc Chr$(34) renvoie le caractère "
Cela évite de jongler avec les doublements de quotes dans une chaine String, qui devient vite difficile comme tu l'as vu.
Après c'est selon les habitudes.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed