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
|
Private Sub Commande13_Click()
Dim vApplicationOutlook As Object
Dim vmessage As Object, message As Variant
message = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 3.2//EN"">"
message = message & "<HTML><HEAD><TITLE></TITLE></HEAD>" 'entete
message = message & "<BODY>" 'corps du message
message = message & "<P><FONT FACE=""Calibri"">Bonjour,</FONT></P><BR><BR>"
message = message & "<Table border=""2"">"
For ligne = 1 To 6 'lignes du tableau Excel
message = message & "<tr>"
For colonne = 1 To 5 'colonnes du tableau Excel
message = message & "<td width=""100"">"
message = message & Sheets("Feuil1").Cells(ligne, colonne)
message = message & "</td>"
Next colonne
message = message & "</tr>"
Next ligne
message = message & "</table>"
message = message & "<br><br><P><FONT FACE=""Calibri"">Merci</FONT></P><BR>"
message = message & "</BODY></HTML>"
PDFExportName = "Y:\AC\MIDDLE OFFICE\centra du jour\centra " & Format(DATE, "yyyymmdd") & ".pdf"
DoCmd.OutputTo acOutputReport, "1centra GLOBAL TEST", acFormatPDF, PDFExportName
DoCmd.OpenReport "1centra GLOBAL TEST", acViewPreview
Set vApplicationOutlook = CreateObject("outlook.application")
Set vmessage = vApplicationOutlook.createitem(0)
With vmessage
.To = "middleoffice@ac.com"
.Subject = "centra du jour"
.HTMLbody = message
.Attachments.Add "Y:\AC\MIDDLE OFFICE\centra du jour\centra " & Format(DATE, "yyyymmdd") & ".pdf"
.send
End With
End Sub |
Partager