Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: erreur dans module CreeMenu

06/02/13 13:53
Bonjour Denis,

Il s'agissait de cocher la bibliothèque Microsoft Office 14.0 Object Library et de la montée dans l'arborescence et le tour est joué.

Quand j'exécute la procédure SMTPLance, le courriel est bien envoyé mais le fichier joint n'y est pas?
Est-ce que le fichier joint est stocké dans la table BoiteMail? ou fait-il référence pour aller chercher le fichier joint? J'ai de la difficulté à comprendre... Merci pour votre aide si précieuse.

Voici mon code :

Public Function CreerFichesPDF()

' ---
' CREATION DE FICHES PDF
' ---
'
Dim strFichier As String
Dim strFichierPDF As String
Dim strEtat As String
Dim strFiltre As String
Dim rst As DAO.Recordset

Dim sDossier As String, sFichier As String
Dim tblPJ(1, 0) As String
Dim sDestinataire As String

' Nom de l'état à imprimer
strEtat = "raphor1072"



'*****************************
'***CRÉATION DES FICHIERS PDF
'*****************************

' Nom de base du fichier PDF à créer
strFichier = "C:\gp\dev\" & "\FTPDF\{0} - {1} {2}.pdf"

' Ouvrir la liste des personnes
Set rst = CurrentDb.OpenRecordset("TmpRaphor107", dbOpenSnapshot)

' Parcourir toute la liste
While Not rst.EOF
' Le nom du fichier varie en fonction de la personne
strFichierPDF = StringFormat(strFichier, _
Format(rst("id_formateur"), "000"), _
rst("Nom_formateur"), _
rst("Prenom_formateur"))

sFichier = "{0} - {1} {2}.pdf"
sDestinataire = rst("courriel")
' Construire le filtre
strFiltre = "[id_formateur] = " & rst("id_formateur")

' Imprimer l'état en le filtrant sur la personne concernée
PrintAsPDF strFichierPDF, strEtat, strFiltre


' Tableau contenant la pièce jointe
tblPJ(0, 0) = sFichier: tblPJ(1, 0) = strFichier
' Création du message (sans envoi pour le moment).
Call CreeMail(sDestinataire, "Votre feuille de temps", "Bonjour, Voici votre feuille de temps", "mon.adresse@monserveur.qc.ca", , , , tblPJ())


' Personne suivante
rst.MoveNext

Wend
'Envoyer les messages créés.
Call SMTPLance("smtp2.monserveur.qc.ca")



' Terminé !
rst.Close
Set rst = Nothing
MsgBox "Opération terminée !", vbInformation
End Function
SujetAuteurEnvoyé le

erreur dans module CreeMenu

Vicky L\'heureux06/02/13 04:52

Re: erreur dans module CreeMenu

DenisS06/02/13 07:27

Re: erreur dans module CreeMenu

Vicky L\'heureux06/02/13 13:53

Re: erreur dans module CreeMenu

DenisS06/02/13 14:18

Re: erreur dans module CreeMenu

Vicky L\'heureux06/02/13 15:09

Re: erreur dans module CreeMenu

DenisS06/02/13 15:53

Re: erreur dans module CreeMenu

DenisS06/02/13 18:26

Re: erreur dans module CreeMenu

Vicky L\'heureux07/02/13 03:01

Re: erreur dans module CreeMenu

DenisS07/02/13 07:10

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter