Bonjour,
J'ai créer un bouton sous access qui permet de creer un fichier pdf a partir d'un etat et de l'envoyer par mail par la suite dont voici le code vba:
Private Sub Commande13_Click()
Dim vApplicationOutlook As Outlook.Application
Dim vmessage As Outlook.mailitem
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"
.body = "Y:\AC\2AM\reportings fréquence.xls"
.Attachments.Add "Y:\AC\MIDDLE OFFICE\centra du jour\centra " & Format(DATE, "yyyymmdd" ) & ".pdf"
.send
End With
End Sub
J'aimerais maintenant copier quelques lignes d'un tableux excel et les coller dans le corps de ce même mail mais je n'y parvient pas. Auriez vous des suggestions de code?
merci par avance