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