Discussion :

[JIPE59552]

Bonjour,
dans mon classeur deux feuilles une pour envoi plage vers outlook et l'autre une liste contact ci joint code celui-ci fonctionne.
Le code sélectionne la plage au il y a des cellules écrites
mais je voudrais dans .Item.To il va chercher la liste des destinataires dans la feuille liste contact en A2 du type ( az@er.fr;aze@ter.com;pou@fr.net) et .Item.Cc en C2 mais uniquement lorsque en B et D il y à une croix
Lorsque la plage et envoyé j'ai l'interface d'Excel comment pour avoir outlook
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
25
26
27
28
 
Sub Envoimail()
    ' envoi d'une plage de cellules via Outlook
    ' Outlook doit être démarré.
 
 
   Set appOutlook = CreateObject("Outlook.Application")
    Dim Plage As Range
    On Error Resume Next
    derLig = Cells(Rows.Count, 2).End(xlUp).Row
    Set Plage = Range("A1:E" & derLig)
    If Err.Number <> 0 Then
        Err.Clear
        MsgBox "Aucune plage sélectionnée"
        Exit Sub
    End If
    On Error GoTo 0
    Plage.Select
    ' Affiche le message dans le classeur
    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
       '"Item" représente un objet Outlook "MailItem".
       .Item.To
       .Item.Cc
       .Item.Subject
       .Item.Display
    End With
End Sub

---

Fichiers joints dans les discussions

---