Création contact outlook

Création contact outlook - VB/VBA/VBS - Programmation

Marsh Posté le 19-07-2007 à 11:31:52    

Bonjour à tous  
Sous access dans un formulaire j'ai un bouton qui permet de créer un contact outlook.
Tout marchait bien jusque maintenant j'ai aucune idée pourquoi maintenant ca ne marche plus !!!
 
voici mon code :
 

Code :
  1. If Not IsNull(Me.sf_contact!CON_ID) Then
  3.    Dim myolApp As New Outlook.Application
  4.    Dim myNameSpace As NameSpace
  5.    Dim myFolder, myFolders, myContactFolder As MAPIFolder
  6.    Dim myNewContact As Outlook.ContactItem
  7.    Dim sFilter As String
  8.    Dim strPrompt As String
  9.    sFilter = "[FileAs]= " & Chr(34) & Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & " )" & Chr(34)
  10.    
  11.    Set myolApp = CreateObject("Outlook.Application" )
  12.    Set myNameSpace = myolApp.GetNamespace("MAPI" )
  13.    Set myFolder = myNameSpace.Folders("Dossiers publics" )
  14.    Set myFolders = myFolder.Folders("Favoris" )
  15.    Set myContactFolder = myFolders.Folders("Contacts logicarch" )
  16.  
  17.    Set myNewContact = myContactFolder.Items.Find(sFilter)
  18.    If Not TypeName(myNewContact) = "Nothing" Then
  19.         strPrompt = "Le contact est déjà present, voulez-vous mettre à jour le contact " & Me.sf_contact!CON_NOM & " " & Me.sf_contact!CON_PRENOM & " ?"
  20.         If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
  21.             myNewContact.Delete
  22.             Set myNewContact = myContactFolder.Items.Add(olContactItem)
  23.             With myNewContact
  24.                 .FirstName = Me.sf_contact!CON_PRENOM
  25.                 .LastName = Me.sf_contact!CON_NOM
  26.                 If Not IsNull(Me.sf_contact!CON_MAIL) Then
  27.                     .Email1Address = Me.sf_contact!CON_MAIL
  28.                 End If


Je n'est pas tout mis car ca plante au début :
 
Il me dit erreur d'exécution '429':
Un composant ActiveX ne peut pas créer d'objet
 
Help !

Reply

Marsh Posté le 19-07-2007 à 11:31:52   

Reply

Marsh Posté le 19-07-2007 à 12:04:00    

:cry:  
 
C'est quoi cette histoire d'ActiveX ?!  :(

Reply

Marsh Posté le 19-07-2007 à 12:24:07    

Bon et bien réinstallation de office et ca remarche ...
 
Merci crosoft :D

Reply

Sujets relatifs:

Leave a Replay

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