1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| stDocName = "EDITION_BADGE_TOUS"
' Création du corps du message
strMessage = "Bonjour"
strMessage = strMessage & vbCrLf & vbCrLf & "Vous trouverez ci joint votre badge pour la participation à la foire "
strMessage = strMessage & vbCrLf & vbCrLf & "Ce badge est à présenter le jour de la manifestation. "
StCriteria = "tb_part_emp.année = " & Me.annee & " and tb_part_emp.edition ='" & Me.mois & "' and tb_client.Numéro = " & Me.recherche_client_2
DoCmd.OpenReport stDocName, acViewPreview, , StCriteria
On Error GoTo err
DoCmd.SendObject acSendReport, stDocName, _
acFormatPDF, "mail@mail.net", , , Me.titre & " du " & Me.date_debut, _
strMessage, False
DoCmd.Close acReport, stDocName |
Partager