[Access] Enregistrement dans table liée Outlook !

Enregistrement dans table liée Outlook ! [Access] - SQL/NoSQL - Programmation

Marsh Posté le 19-06-2007 à 10:26:21    

:hello:  
 
Dans mon projet sous access j'ai lié une table de contact partagé qui est à la base dans outlook.
Quand je l'ouvre il y à pas mal de champ dedant et j'ai remarqué que pour que le contact que je veux créer à partir d'un formulaire et enregistrer dans cette table il faut que je remplisse le Champ "Fichier Sous" afin de voir ce champ affiché en en-tête gras sur le contact dans outlook.  
Mais le problème c'est que quand il me crée un contact comme cela à partir de access, dans outlook je le vois bien dans la liste de contact mais c'est un objet Discussion ! et non Contact comme normalement.
 
Quel champ dois-je remplir pour que outlook le considère bien comme un contact et l'affiche en tant que tel svp ?
 
merci :)

Reply

Marsh Posté le 19-06-2007 à 10:26:21   

Reply

Marsh Posté le 19-06-2007 à 14:20:07    

l'enregisterment marche :
 

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.    Set myNewContact = myContactFolder.Items.Add(olContactItem)
  12.    With myNewContact
  13.         .FirstName = Me.sf_contact!CON_PRENOM
  14.         .LastName = Me.sf_contact!CON_NOM
  15.         If Not IsNull(Me.sf_contact!CON_MAIL) Then
  16.             .Email1Address = Me.sf_contact!CON_MAIL
  17.         End If
  18.         .CustomerID = Me.sf_contact!CON_ID
  19.         .BusinessTelephoneNumber = Me.sf_contact!CON_TEL
  20.        
  21.         If Not IsNull(Me.sf_contact!CON_FAX) Then
  22.             .BusinessFaxNumber = Me.sf_contact!CON_FAX
  23.         End If
  24.         If Not IsNull(Me.sf_contact!CON_PORTABLE) Then
  25.             .MobileTelephoneNumber = Me.sf_contact!CON_PORTABLE
  26.         End If
  27.         .CompanyName = Me.SOC_NOM
  28.         If Not (IsNull(Me.sf_contact!CON_ADRESSE1) Or IsNull(Me.sf_contact!CON_ADRESSE2)) Then
  29.              .MailingAddressStreet = Me.sf_contact!CON_ADRESSE1 & " " & Me.sf_contact!CON_ADRESSE2
  30.         End If
  32.         .FileAs = Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & " )"
  33.        
  34.         If Not IsNull(Me.sf_contact!CON_VILLE) Then
  35.         .MailingAddressCity = Me.sf_contact!CON_VILLE
  36.         End If
  37.        
  38.         .Save
  39.    End With
  40.     MsgBox "Contact Ajouté"
  41.     Set myOlApp = Nothing

3
 
mais je n'est même pas besoin de lier ma table outlook dans access :)
 
Mais now le problème c'est de ajouter le contact que si il n'y est pas déjà ou sinon le mettre à jour ...  :??:

Reply

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

Ca marcheeeee :
Voici mon code si ca peut aider quelqu'un :
Je prend des infos dans un formulaires pour allé chercher le contact à supprimer

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 sFilter As String
  6.     Dim strPrompt As String
  7.    
  8.     sFilter = "[FileAs]= " & Chr(34) & Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & " )" & Chr(34)
  10.    Set myolApp = CreateObject("Outlook.Application" )
  11.    Set myNameSpace = myolApp.GetNamespace("MAPI" )
  12.    Set myFolder = myNameSpace.Folders("Dossiers publics" )
  13.    Set myFolders = myFolder.Folders("Favoris" )
  14.    Set myContactFolder = myFolders.Folders("Contacts logicarch" )
  15.    Set myNewContact = myContactFolder.Items.Find(sFilter)
  17.     If Not TypeName(myNewContact) = "Nothing" Then
  18.         strPrompt = "Est-te vous sûre de vouloir supprimer " & Me.sf_contact!CON_CIVILITE & " " & Me.sf_contact!CON_NOM & " " & Me.sf_contact!CON_PRENOM
  19.         If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
  20.             myNewContact.Delete
  21.             MsgBox ("Contact Supprimé" )
  22.         End If
  23.     Else
  24.         MsgBox "Le contact doit être créé dans la liste de contact Outlook avant de vouloir le supprimer", vbExclamation
  25.     End If

Reply

Sujets relatifs:

Leave a Replay

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