J'espère que je suis sur la bonne catégorie destinée au VBA.
J'ai un projet à réaliser et dans ce dernier, je coince au niveau de l'envoie de mail accompagnés de pièces jointes.
Voici mon code :
Private Sub Commande219_Click()
'Déclaration des variable
Dim rst As DAO.Recordset
Dim StrSQL As String
Dim strMessageType As String
Dim strTitre As String
Dim strMsg As String
Dim strJst As Object
' Titre du message
strTitre = "{Objet} -- Résolu" _
' Message type à expédier
' Les signes {} seront remplacés plus loin par
' les infos Client
strMessageType = "Bonjour, _
& vbCrLf & vbCrLf _
& "En date du {Date}, Nous avons reçu du client {Nom_Client} la réclamation en objet." & vbCrLf & vbCrLf _
& "Nous vous écrivons pour vous informer que cela a été pris en compte et désormais clôt." & vbCrLf _
& vbCrLf & "Nous vous souhaitons une bonne réception" _
& vbCrLf & vbCrLf & "~~ Service de Réclamations -xxx ~~"
' Ouverture de la requête
' (seuls les gestionnaire ayant un email sont concernés ici)
StrSQL = " SELECT * FROM [Reclamations] WHERE (((Reclamations.Etat)='Clôturée')) " _
Set rst = CurrentDb.OpenRecordset(StrSQL, dbOpenSnapshot)
' Parcourir la liste des clients
While Not rst.EOF
' Construire un message personnalisé
' (on remplace chaque {} du message par les champs
' équivalents de la requête
strMsg = Replace(strMessageType, "{Nom_Client}", rst("Nom_Client"))
strMsg = Replace(strMsg, "{Date}", rst("Date"))
strTitre = Replace(strTitre, "{Objet}", rst("Objet"))
strJst = Replace(strJst, "{Justificatif}", rst("Justificatif"))
'strMessageType.Attachments.Add Reclamations("Justificatif")
' Expédier le mail
SendMail rst("E-mail_gest"), strTitre, strMsg, True
' Client suivant
rst.MoveNext
Wend
' On libère les ressources
rst.Close
Set rst = Nothing
CurrentDb.Execute ("UPDATE Reclamations SET Reclamations.Etat = 'Archivée' WHERE (((Reclamations.Etat) = 'Clôturée')) ")
' Un petit message de confirmation
MsgBox "Un e-mail a été envoyé chez le gestionnaire!", vbInformation, " xxx -- xxxxxxxxxxxxxxxxxx
End Sub
Que quelqu'un me secours, c'est pour un projet déterminant pour ma carrière.
Merci d'avance
Envoyer un mail à plusieurs destinataires avec PJ
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.