Discussion :

[guitch59470]

Bonjour,

En piece jointe se trouve un fichier, dans lequel se trouve un userform ou je selectione des personnes et sur la partie de droite sont transféré leur adresse email. Je souhaiterai que les adresses mail sur la partie droite soit transféré dans outlook dans un nouveau mail en CCI. Merci pour votre aide.

[SilkyRoad]

Bonsoir

Tu peux utiliser :

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
Private Sub CommandButton2_Click()
    Dim outApp As Outlook.Application
    Dim Dest As Outlook.Recipient
    Dim Msg As Outlook.MailItem
    Dim i As Integer
 
    Set outApp = CreateObject("Outlook.Application")
    Set Msg = outApp.CreateItem(olMailItem)
 
    Msg.Subject = "Le sujet"
    Msg.Body = "Bonjour, " & vbLf & "Vous trouverez ci joint ... "
 
    For i = 0 To ListBox2.ListCount - 1
        Set Dest = Msg.Recipients.Add(ListBox2.List(i))
    Next i
 
    If Not Dest Is Nothing Then Msg.Send
    MsgBox "Terminé"
 
    outApp.Quit
    Set outApp = Nothing
End Sub

bonne soirée
michel