Ajouter une pièce jointe à un mail sur Access

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.

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.

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

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)

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

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

ç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

Bonjour,

en mettant :

' nom du fichier pdf temporaire 
nomfichier = %temp% &"\BILAN\" & Format(Form_F_MENU_RT_LD_PRIMAIRE.BILANLD, "Long Date") & ".pdf"  
 

No ??

suggestion:

nomfichier = "c:\data\temp\BILAN_" & Format(Now(), "yyyymmdd_hhnnss") & ".pdf"

c:\data\temp doit être un dossier existant et accessible.