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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| Sub Envoi_document()
Call Déclaration_des_variables
Call Envoyer_mail(Cells(ActiveCell.Row, 57), SHEET_MAIL.Range("C6").Value, SHEET_MAIL.Range("C4").Value, "")
End Sub
Sub Déclaration_des_variables()
' DÉCLARATION DES FEUILLES
'-------------------------------------------------
Set EDITION = Sheets("Edition")
Set DOCS_EDITES = Sheets("Documents édités")
Set SHEET_MAIL = Sheets("Paramètres e-mails automatiques")
'-------------------------------------------------
COLONNE = 23
LIGNE_DEBUT = 21
End Sub
Sub Envoyer_mail(DESTINATAIRES As String, MESSAGE As String, Sujet As String, PIECE_JOINTE As String)
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim htmlbody As Variant
Set OutApp = CreateObject("Outlook.application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = DESTINATAIRES
.SentOnBehalfOfName = "bbb@BB.fr"
.htmlbody = htmlbody & MESSAGE
.Subject = Sujet
.Display
'.attachments.Add PIECE_JOINTE
End With
End Sub |
Partager