Bonjour,
Je cherche à envoyer un mail via un bouton :
su dans la balise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.To = ..........
je met un email tout se passe à merveille... mais le truc, c'est que j'aimerai utiliser un mail noté dans une zone de liste j'ai donc formaté mon code de la sorte, mais cela ne marche pas... quelqu'un a une idée ?

ps: j'ai aussi testé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.To = Str(Listeloginetmail.Value)
mais cela ne fonctinne pas non plus !

Voici ce que j'utilise sur le bouton

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
Private Sub BoutonMailProjectManager_Click()
 
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
 
    If Me.CBProjetManager = "Yes" Then
 
        With MailOutLook
                .To = Me.Listeloginetmail.Value
                .Subject = "R.A.P. N°" + Str(id.Value) + " - Status : " + Me.Status.Value
                .Body = " Ussuer comment : " & Me.commentaire3.Value & "    ( Clic here for open the document : \\archives\" & Me.id.Value & ".xlsm )"
                .Send
        End With
        MsgBox "Your message is good sended at :" & Me.Listeloginetmail
 
    Else
    If Me.StatusPrjectManager = "" Then
    MsgBox "Please complete - Completed request ! "
 
    End If
End If
 
End Sub