[VB] champ possible pour un objet Outlook.ContactItem

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB] champ possible pour un objet Outlook.ContactItem

thekingsky

Bonjour à tous

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

Code :

Dim myOlApp As New Outlook.Application
Dim myNameSpace As NameSpace
Dim myFolder, myFolders, myContactFolder As MAPIFolder
Dim myNewContact As Outlook.ContactItem
Set myOlApp = CreateObject("Outlook.Application" )
Set myNameSpace = myOlApp.GetNamespace("MAPI" )
Set myFolder = myNameSpace.Folders("Dossiers publics" )
Set myFolders = myFolder.Folders("Favoris" )
Set myContactFolder = myFolders.Folders("Contacts logicarch" )
Set myNewContact = myContactFolder.Items.Add(olContactItem)
With myNewContact
.FirstName = Me.sf_contact!CON_PRENOM
.LastName = Me.sf_contact!CON_NOM
If Not IsNull(Me.sf_contact!CON_MAIL) Then
.Email1Address = Me.sf_contact!CON_MAIL
End If
.Save
End With
MsgBox "Contact Ajouté"
Set myOlApp = Nothing
End If
Else
MsgBox "Sélectionnez un contact", vbExclamation
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 ?

Publicité

tegu

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

thekingsky

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

thekingsky

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...

thekingsky

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

Code :

Dim myolApp As New Outlook.Application
Dim myNameSpace As NameSpace
Dim myFolder, myFolders, myContactFolder As MAPIFolder
Dim myNewContact As Outlook.ContactItem
Dim strPrompt As String
Set myolApp = CreateObject("Outlook.Application" )
Set myNameSpace = myolApp.GetNamespace("MAPI" )
Set myFolder = myNameSpace.Folders("Dossiers publics" )
Set myFolders = myFolder.Folders("Favoris" )
Set myContactFolder = myFolders.Folders("Contacts logicarch" )
Set myNewContact = myContactFolder.Items.Find(("[FileAs] = ""AMPLITUDE(toto, toto)"" and [FirstName] = ""toto""" ))
strPrompt = "Are you sure you want to delete the folder?"
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
myNewContact.Delete
MsgBox ("Folder deleted" )
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

tegu

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 & """" ))

thekingsky

Merci de ton aide

J'y suis arrivé en utilisant

Code :

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:

tegu

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.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB] champ possible pour un objet Outlook.ContactItem

Sujets relatifs
Implémentation des méthodes dans un fichier séparé, possible?	[Access] Enregistrement dans table liée Outlook !
VBA Access porbleme méthode objet	Sélectionner des entrées en fonction de la première lettre d'un champ
Champ de saisie sans format HTML	Une telle structure est elle possible en CSS?
Ajout CHAMP Before	[VBA] Suppression d'un objet.
Mail avec Outlook Express	Questions de "base" ambigues sur la programmation objet
Plus de sujets relatifs à : [VB] champ possible pour un objet Outlook.ContactItem

Page générée en 0.096 secondes