Bonjour franch 55,
Merci, pour ces améliorations, j'ai encore un petit souci, avec le code ci-dessous, il génère 2 mails, concernant le 1er pas de soucis (il y a bien les destinataire entre A5 àA10 et les destinataires en copie de B5 à B10 de l'onglet mails), par contre pour le 2nd mail, il me mets en destinataire principale de la liste B de l'onglet mails, et non de la colonne E (de E5 à E10).
Avez-vous une solution ? aussi si vous pouvez ajouter le paver de signature comme dans votre dernière réponse ?
En vous remerciant, cordialement.
Sub Envoi_Email()
Dim OutApp As Object
Dim OutMail As Object
Dim Destinataire1 As String ' <-- Ajout de la déclaration
Dim Destinataire2 As String
Dim Capture As Range
Destinataire1 = ""
For i = 2 To 10
Destinataire1 = Destinataire1 & Sheets("mails").Range("A" & i).Value & ";"
Next i
Destinataire1 = Left(Destinataire1, Len(Destinataire1) - 1)
'Définition des destinataires de la deuxième liste (en copie)
Destinataire2 = ""
For i = 2 To 10
Destinataire2 = Destinataire2 & Sheets("mails").Range("B" & i).Value & ";"
Next i
Destinataire2 = Left(Destinataire2, Len(Destinataire2) - 1)
'Création du texte de l'email
Dim Texte As String
Texte = "Bonjour," & vbCrLf & vbCrLf & "Vous trouverez ci-dessous l'état récapitulatif des agents déclarés grévistes ce jour. "
'Copie de la capture d'écran
Set Capture = Sheets("Bilan grévistes").Range("A1:B61")
Capture.CopyPicture Appearance:=xlScreen, Format:=xlPicture
'Création du brouillon de premier email
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Destinataire1 ' Ajout des destinataires principaux
.CC = Destinataire2 ' Ajout des destinataires en copie
.Subject = "Bilan des grévistes"
.Body = Texte
.Display
Set wdDoc = .GetInspector.WordEditor
wdDoc.Content.InsertParagraphAfter
wdDoc.Content.InsertParagraphAfter
wdDoc.Paragraphs(3).Range.Paste
wdDoc.Range(0, wdDoc.Characters.Count).InsertAfter vbCrLf & "Cordialement,"
End With
Set OutMail = Nothing
Set OutMail = OutApp.CreateItem(0)
'Création du brouillon de deuxième email
With OutMail
.To = Destinataire2 ' Ajout des destinataires en copie
.Subject = "Bilan des grévistes"
.Body = Texte
.Display
Set wdDoc = .GetInspector.WordEditor
wdDoc.Range(0, wdDoc.Characters.Count).InsertAfter " "
wdDoc.Range(0, wdDoc.Characters.Count).InsertParagraphAfter
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.Paste
wdDoc.Range(0, wdDoc.Characters.Count).InsertAfter vbCrLf & "Cordialement,"
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub