Discussion :

[BRUNO71]

Bonjour,

Je recherche une piste pour afficher les emails de mes contacts répertoriés dans Outlook.
Je m’explique :

Lorsque je crée un message dans Outlook, dès que je rentre le début d’une adresse dans la zone de texte des destinataires et bien mes contacts défilent automatiquement.
A ce jour j’envoie des e-mails depuis ma zone de texte.

Est-il possible et comment faire la même chose depuis mon formulaire, ça serait la cerise sur le gâteau !

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
 
 
 Private Sub txtTo_KeyPress(sender As Object, e As EventArgs) Handles txtTo.KeyPress
        Dim objOLe As outlook.Application
        Dim obNamespace As Namespace
        Dim objAddrList As AddressList
        Dim objAddrEntries As AddressEntries
        Dim objAdrEntry As AddressEntry
        Dim i As Integer
 
        ' initialisation de la liste
        ' txtTo.Text = ""
 
        objOLe = CreateObject("Outlook.Application")
 
        obNamespace = objOLe.GetNamespace("MAPI")
        objAddrList = obNamespace.AddressLists("Contacts")
        objAddrEntries = objAddrList.AddressEntries
 
        objAdrEntry = objAddrEntries.GetFirst
 
        For i = To objAddrEntries.Count
            With txtTo.Text
                .AddItem objAdrEntry.Name
                 .AddItem   objAdrEntry.Name, 0
               .AddItem objAdrEntry.Address, 1
 
            End With
            objAdrEntry = objAddrEntries.GetNext
 
        Next i
 
    End Sub

J'ai travaillé sur ce code destiné à ACCESS mais sans succès pour moi... avec txtTo_KeyPress
D'autant plus qu'il utilise une liste déroulante et que moi je souhaiterais en directe dans ma zone de texte....

Merci,

[Phil Rob]

Bonjour Bruno,

La solution se trouve (presque) dans le code que je t'ai posté lundi (envoi de mail avec MailMessage).
Je suppose que tu peux transposer ceci dans ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
                 ' Dans mon code précédent, il y a :     
                   Destinataire = "scxstr@gmail.com"
                   Mail.To.Add(New MailAddress(Destinataire)) ' Désignation de destinataire
                    ' ......................
 
                 ' Cela peut être remplacé par :  
                   For Each Destinataire As String In MaListBoxDesDestinataires.Items
                       Mail.To.Add(New MailAddress(Destinataire)) ' Désignation de destinataire
                    ' ......................

Bon travail ...