Discussion :

[momoju]

Bonjour à toutes et à tous,

J'ai un formulaire contact avec bouton "ajouter contact dans Outlook" cela fonctionne très bien (grace au forum!!!)
Que dois-je modifier pour pouvoir supprimer un contact dans Access et Outlook ? J'ai pris le meme code en remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not IsNull(Me.Titre) Then
    oContact.Title = Me.Titre
End If

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 If Not IsNull(Me.Titre) Then
    oContact.Title = ""
End If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub cmdCreateOutlookContact_Click()
Me.Dirty = False
 Dim oAPP As Outlook.Application
 Dim oContact As Outlook.ContactItem
 Dim oMAPI 'As Outlook.MAPIFolder
 Set oAPP = CreateObject("Outlook.Application")
 Set oMAPI = oAPP.GetNamespace("MAPI")
 oMAPI.Logon
 Set oContact = oAPP.CreateItem(olContactItem)
 oContact.Display
 
 If Not IsNull(Me.Titre) Then
    oContact.Title = Me.Titre
End If
    oContact.LastName = Me.Nom
If Not IsNull(Me.Prénom) Then
    oContact.FirstName = Me.Prénom
End If
 If Not IsNull(Me.Société) Then
    oContact.CompanyName = Me.Société
 End If
 If Not IsNull(Me.Email1) Then
    oContact.Email1Address = Me.Email1
    End If
 If Not IsNull(Me.Code_postal__bureau_) Then
    oContact.BusinessAddressPostalCode = Me.Code_postal__bureau_
    End If
 If Not IsNull(Me.Ville__bureau_) Then
    oContact.BusinessAddressCity = Me.Ville__bureau_
    End If
 If Not IsNull(Me.Téléphone_bureau_) Then
    oContact.BusinessTelephoneNumber = Me.Téléphone_bureau_
    End If
 If Not IsNull(Me.Télécopie_Bureau_) Then
     oContact.BusinessFaxNumber = Me.Télécopie_Bureau_
     End If
 If Not IsNull(Me.Rue__bureau_) Then
     oContact.BusinessAddressStreet = Me.Rue__bureau_
     End If
 
 If Not IsNull(Me.Job_Title) Then
    oContact.JobTitle = Me.Fonction
    End If
If Not IsNull(Me.Web_Page) Then
    oContact.WebPage = Me.Web_Page
    End If
 
 oContact.Save
End Sub

Merci pour votre aide et bonne soirée

[Philippe PONS]

Salut,


pour chercher et supprimer un contact outlook, tu dois pouvoir t'inspirer du code ici:

https://msdn.microsoft.com/en-us/lib...ice.11%29.aspx

Cordialement,

[momoju]

Merci beaucoup pour le lien.

Je ne suis pas spécialiste en VBA hélas. j'ai copié le code et lorsque je l'exécute toujours la même réponse "Contact not Found" alors qu'il existe.
Autre question je n'ai pas compris ce qu'il fallait modifier pour ne pas avoir à renseigner dans le code, les nom et prénom du contact à supprimer.
Encore merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CmdSupprContactOutlook_Click()
'Finds and displays last contacted info for a contact
 
    Dim olApp As Outlook.Application
    Dim objContact As Outlook.ContactItem
    Dim objContacts As Outlook.MAPIFolder
    Dim objNameSpace As Outlook.NameSpace
    Dim objProperty As Outlook.UserProperty
 
    Set olApp = CreateObject("Outlook.Application")
    Set objNameSpace = olApp.GetNamespace("MAPI")
    Set objContacts = objNameSpace.GetDefaultFolder(olFolderContacts)
    Set objContact = objContacts.Items.Find("[FileAs] = ""ALLOUCHE,Pierre "" and [FirstName] = ""Pierre""")
    If Not TypeName(objContact) = "Nothing" Then
        Set objProperty = objContact.UserProperties.Find("LastDateContacted")
        If TypeName(objProperty) <> "Nothing" Then
            MsgBox "Last Date Contacted: " & objProperty.Value
        End If
    Else
        MsgBox "Contact not found."
    End If
 
 
End Sub

[momoju]

Bonsoir à toutes et à tous,

Il n'y a donc pas de solution à mon problème ? Je supprime mon contact dans la base Access puis je vais sur Outlook et supprime à nouveau le contact. et je fais de même pour modifier un contact. J'avoue que ce n'est pas le top.

J'ai essayé avec le code proposé mais comme je le disais je ne suis pas pro en VBA et ne comprends pas tout le code.

Merci quand même à vous tous qui avez pris le temps de me lire.