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 :
- If Not IsNull(Me.sf_contact!CON_ID) Then
- Dim myolApp As New Outlook.Application
- Dim myNameSpace As NameSpace
- Dim myFolder, myFolders, myContactFolder As MAPIFolder
- Dim myNewContact As Outlook.ContactItem
- Dim sFilter As String
- Dim strPrompt As String
- sFilter = "[FileAs]= " & Chr(34) & Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & " )" & Chr(34)
-
- 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(sFilter)
- If Not TypeName(myNewContact) = "Nothing" Then
- strPrompt = "Le contact est déjà present, voulez-vous mettre à jour le contact " & Me.sf_contact!CON_NOM & " " & Me.sf_contact!CON_PRENOM & " ?"
- If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
- myNewContact.Delete
- 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
|
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 !
