Ajouter une pièce jointe à un mail sur AccessRésolu/Fermé

Question

Bonjour,

Sur Access 2013/16

Je souhaite, dans un formulaire, à partir d'une liste déroulante, après avoir sélectionné la date charger un état (en PDF) en fonction de la date 
et le joindre à un mail, le hic c'est que je passe par du code DAO pour préparer le mail (en fonction d'une requête ou se trouvent les contacts) et je n'arrive pas à y ajouter ma pièce jointe, (l'état chargé précédemment au format PDF). 

Si quelqu'un pouvait me renseigner, grand merci.
Ci-joint le code du module et le code de lancement de la macro.


Code du Module =>

Option Compare Database

Sub LaTotale()
  ' #######################
   ' # 1. Access via DAO : #
   ' #######################
   
   
   
   ' Initialisation :
   Dim ListeEMail As DAO.Recordset
   Set ListeEMail = CurrentDb.OpenRecordset("R_EMAIL_LD")
   ListeEMail.MoveFirst
   ListeComplete = ""
  
   ' Parcourt de la requête :
   While Not ListeEMail.EOF
     ListeComplete = ListeComplete & ListeEMail("EMail") & ";"
     ListeEMail.MoveNext
   Wend
  
   ' On enlève le dernier point virgule :
   ' ListeComplete nous sera évidemment utile tout à l'heure :
   ListeComplete = Left(ListeComplete, Len(ListeComplete) - 1)
  
   ' Stop DAO :
   ListeEMail.Close
   Set ListeEMail = Nothing
 
   ' #######################################
   ' # 2. Envoi de l'E-Mail avec Outlook : #
   ' #######################################

   
   ' Initialisation :
   
 Dim MonOutlook As Object
   Dim MonMessage As Object
   Set MonOutlook = CreateObject("Outlook.Application")
   Set MonMessage = MonOutlook.createitem(0)
  
   ' Préparation du message :
  MonMessage.To = "xxxxxx@free.fr"
  
 
   ' Récupération de la chaîne d'E-Mails Access :
   MonMessage.To = ListeComplete
   MonMessage.Subject = "Bilan de production Lettre Départ"
   Corps = "Bonsoir,"
   Corps = Corps & Chr(13) & Chr(10)
   Corps = Corps & Chr(13) & Chr(10)
   Corps = Corps & "Ci-joint le Bilan de production Lettre Départ."
   Corps = Corps & Chr(13) & Chr(10)
   Corps = Corps & Chr(13) & Chr(10)
   Corps = Corps & Chr(13) & Chr(10)
   Corps = Corps & "Villeneuve-La-Garenne PIC - 92"
   MonMessage.body = Corps
   MonMessage.display
   
End Sub


Code d'appel de la macro =>

Private Sub LaTotale___Click()
'MsgBox Oui + Non + icône Question
Select Case MsgBox("Vous allez charger le bilan de la journée de production du :" & Chr(13) & Chr(13) & "                  " & Format(Me.LaTotale__, "Long Date") & Chr(13) & Chr(13) & "Merci de patientez jusqu'à la fin du chargement.", vbYesNo + vbQuestion + vbSystemModal, "Apperçu Bilan Lettre Départ")
Case vbYes

Call LaTotale
Case vbNo
        'procédure si click sur Non
End Select
End Sub

yg_be · Answer

bonjour, 
je pense qu'il suffit de faire
MonMessage.Attachments.Add "nom complet du fichier"
il me semble que tu ne donnes aucune information à propos de ce fichier à joindre.

AstraLife · Answer

Bonjour yg_be, merci pour ta réponse, 

effectivement dans le code il n'y a aucune info car justement je ne trouve pas quoi et ou insérer le code pour charger un état dans ce mail.

le code Attachement.add permet de joindre un fichier physiquement avec son chemin mais ne permet pas de joindre un état chargé situé dans la base Access.

En complément, ce que je cherche à faire,

Dans une base Access, à partir d'un formulaire, depuis une liste déroulante je choisie une date pour générer un état en PDF puis je souhaite l'envoyer par mail mais en fonction d'une requête ou sont situés les contacts.

AstraLife · Answer

j'ai essayé ça dans la partie prépa du mail mais ça plante


   ' Préparation du message :
   MonMessage.To = "xxxx@free.fr"
   DoCmd.OpenReport "E42_BILAN_LD_Rech", acViewPreview, acFormatPDF
   MonMessage.acSendReport , "E42_BILAN_LD_Rech", acFormatPDF

yg_be · Answer

je suggère ceci:
'nom du fichier pdf temporaire
nomfichier="%temp%\BILAN"&Format(Form_F_MENU_RT_LD_PRIMAIRE.BILANLD, "Long Date") & ".pdf"

'création du fichier pdf
DoCmd.OutputTo acOutputReport, "42_BILAN_LD_Rech", acFormatPDF, strPathAndFile = nomfichier

'attacher le fichier pdf au message
MonMessage.Attachments.Add nomfichier

'supprimer le fichier pdf après envoi du message
kill(nomfichier)

AstraLife · Answer

Bonjour yg_be

j'ai incorporé ton morceau de code,

ça plante à cette ligne : MonMessage.Attachments.Add nomfichier

Erreur d'execution, fichier introuvable, verifiez que le chemin et le nom
sont corrects.

Cela me génère un fichier nommé 0 dans mes documents qui fait la même taille que le PDF que je souhaite mais il n'est pas au format PDF, je l'ai ouvert avec PDF Creator et les bonnes données sont bien dans se fichier nommé 0.


Je n'ai peut être pas mis le morceau de code au bon endroit, 


Je te remet le code modifié

Option Compare Database

Sub LaTotale()
  ' #######################
   ' # 1. Access via DAO : #
   ' #######################
   
   'MsgBox Oui + Non + icône Question
Select Case MsgBox("Vous allez charger le bilan de la journée de production du :" & Chr(13) & Chr(13) & "                  " & Format(Form_F_MENU_RT_LD_PRIMAIRE.BILANLD, "Long Date"), vbYesNo + vbQuestion, "Aperçu Bilan Lettre Départ")
Case vbYes
   
   
   ' Initialisation :
   Dim ListeEMail As DAO.Recordset
   Set ListeEMail = CurrentDb.OpenRecordset("R_EMAIL_LD")
   ListeEMail.MoveFirst
   ListeComplete = ""
  
   ' Parcourt de la requête :
   While Not ListeEMail.EOF
     ListeComplete = ListeComplete & ListeEMail("EMail") & ";"
     ListeEMail.MoveNext
   Wend
  
   ' On enlève le dernier point virgule :
   ' ListeComplete nous sera évidemment utile tout à l'heure :
   ListeComplete = Left(ListeComplete, Len(ListeComplete) - 1)
  
   ' Stop DAO :
   ListeEMail.Close
   Set ListeEMail = Nothing
 
   ' #######################################
   ' # 2. Envoi de l'E-Mail avec Outlook : #
   ' #######################################

   
   ' Initialisation :
   
   Dim MonOutlook As Object
   Dim MonMessage As Object
   Set MonOutlook = CreateObject("Outlook.Application")
   Set MonMessage = MonOutlook.createitem(0)
  
  
   ' Préparation du message :
   MonMessage.To = "xxxx@free.fr"
   'nom du fichier pdf temporaire
   nomfichier = "%temp%\BILAN" & Format(Form_F_MENU_RT_LD_PRIMAIRE.BILANLD, "Long Date") & ".pdf"

   'création du fichier pdf
   DoCmd.OutputTo acOutputReport, "E42_BILAN_LD_Rech", acFormatPDF, strPathAndFile = nomfichier

   'attacher le fichier pdf au message
   MonMessage.Attachments.Add nomfichier

   'supprimer le fichier pdf après envoi du message
   Kill (nomfichier)
  

  
   ' Récupération de la chaîne d'E-Mails Access :
   
   MonMessage.To = ListeComplete
   MonMessage.Subject = "Bilan de production Lettre Départ"
   Corps = "Bonsoir,"
   Corps = Corps & Chr(13) & Chr(10)
   Corps = Corps & Chr(13) & Chr(10)
   Corps = Corps & "Ci-joint le Bilan de production Lettre Départ."
   Corps = Corps & Chr(13) & Chr(10)
   Corps = Corps & Chr(13) & Chr(10)
   Corps = Corps & Chr(13) & Chr(10)
   Corps = Corps & "Villeneuve-La-Garenne PIC - 92"
   MonMessage.body = Corps
   MonMessage.display
   
Case vbNo
        'procédure si click sur Non
End Select

End Sub

AstraLife · Answer

pareil, cela me génère, dans mes documents, un fichier nommé 0 au format inconnu mais que je peut quand même ouvrir avec PDF créator pour visualiser le contenu. 

Ca plante toujours à la ligne ci-dessous :  
MonMessage.Attachments.Add nomfichier

fichier introuvable

AstraLife · Answer

ça coince ici

strPathAndFile = nomfichier

ça me donne dans mes documents un fichier nommé 0 de 450 ko (Taille correcte et données présentes) mais ce fichier n'est pas de type PDF
donc il plante après quand il cherche le PDF avec MonMessage.Attachments.Add nomfichier

Utilisateur anonyme · Answer

Bonjour,

en mettant :
' nom du fichier pdf temporaire nomfichier = %temp% &"\BILAN\" & Format(Form_F_MENU_RT_LD_PRIMAIRE.BILANLD, "Long Date") & ".pdf"   

No ??

yg_be · Answer

suggestion:
nomfichier = "c:\data	emp\BILAN_" & Format(Now(), "yyyymmdd_hhnnss") & ".pdf" 
c:\data	emp doit être un dossier existant et accessible.

Ajouter une pièce jointe à un mail sur Access

9 réponses

Discussions similaires

Newsletters