Sub MAIL()
'------------------------------------------------------------------------------
' ESSAI1 Macro
'------------------------------------------------------------------------------
Application.ScreenUpdating = False ' accélérateur Macro
'--------------------------------------------------------------
' Déclaration des variables
'--------------------------------------------------------------
Dim Chemin
Dim DerniereLigne
Dim i As Integer
Dim NomFichier
Dim DerniereLigneMessage
Chemin = Application.ActiveWorkbook.Path 'C:\Users\Phuy031\Desktop\ELECTIONS NEW"
With Sheets("MAIRIES")
DerniereLigne = .Cells(Rows.Count, 3).End(xlUp).Row
For i = 2 To DerniereLigne
xMailTo = .Range("I" & i).Value
xMailCc = .Range("J" & i).Value
If .Cells(i, 1).Value = True Then
'Sheets("MESSAGE").Activate
With Sheets("MESSAGE")
NomFichier = .Range("B5").Value
xSujet = .Range("B2").Value
DerniereLigneMessage = .Cells(Rows.Count, 4).End(xlUp).Row
'.Range("D2:D" & DerniereLigneMessage).Select ' la plage de cellules à envoyer
.Select
ActiveWorkbook.EnvelopeVisible = True
With .MailEnvelope
.Introduction = "bonjour, ( " & Sheets("MAIRIES").Range("K" & i).Value & " )"
.Item.Subject = xSujet
.Item.To = xMailTo
.Item.CC = xMailCc
'.Item.Attachments.Add ActiveWorkbook.Path & "\" & NomFichier & ".PDF"
.Item.Send
End With
End With
End If
'-----------------------------------------------------------------------------------------------------------
Next i
End With
Range("B3").Select
MsgBox "Message(s) transmis", , "Je vous informe..."
'
End Sub