Traité l'enregistrement null
Bonjour,
Trouver ce code sur internet pour envoyer des emails
Apres un selection , j'essaie ce code
Mais access traitement des nulls.
Hors j'ai toujours la ligne pour un nouveau enregistrement qui vide.
Comment le traiter dans ce code
Je vous remercie de votre aide
Voici le code
Private Sub Commande7_Click()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim Message As String
Set bd = CurrentDb
Set rs = bd.OpenRecordset("UtilisateursClique", dbOpenSnapshot)
With rs
.MoveFirst
Do While Not .EOF
Message = Message + !AdresseMail + ";"
.MoveNext
Loop
If MsgBox("Voulez vous confirmer l'envoie du mail de jfcb92 ?", vbInformation + vbYesNo, " ") = vbYes Then
DoCmd.SendObject acSendTable, "UtilisateursClique", acFormatHTML, Message, , , "Ceci est un Mail", "jfcb92 vient de vous envoyer un mail", False
.Close
MsgBox " ", vbInformation, "Votre mail a été envoyé avec succès"
Else
End If
End With
End Sub
Trouver ce code sur internet pour envoyer des emails
Apres un selection , j'essaie ce code
Mais access traitement des nulls.
Hors j'ai toujours la ligne pour un nouveau enregistrement qui vide.
Comment le traiter dans ce code
Je vous remercie de votre aide
Voici le code
Private Sub Commande7_Click()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim Message As String
Set bd = CurrentDb
Set rs = bd.OpenRecordset("UtilisateursClique", dbOpenSnapshot)
With rs
.MoveFirst
Do While Not .EOF
Message = Message + !AdresseMail + ";"
.MoveNext
Loop
If MsgBox("Voulez vous confirmer l'envoie du mail de jfcb92 ?", vbInformation + vbYesNo, " ") = vbYes Then
DoCmd.SendObject acSendTable, "UtilisateursClique", acFormatHTML, Message, , , "Ceci est un Mail", "jfcb92 vient de vous envoyer un mail", False
.Close
MsgBox " ", vbInformation, "Votre mail a été envoyé avec succès"
Else
End If
End With
End Sub
2 réponses
-
Bonjour castours,
Veuillez, s'il vous plaît, mettre ce code en résolu, merci pour le forum,
Heliotte. -
voici le code
Private Sub Commande7_Click()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim Message As String
Set bd = CurrentDb
Set rs = bd.OpenRecordset("UtilisateursClique", dbOpenSnapshot)
With rs
.MoveFirst
Do While Not .EOF
Message = Message + !AdresseMail + ";"
.MoveNext
Loop
If MsgBox("Voulez vous confirmer l'envoie du mail de jfcb92 ?", vbInformation + vbYesNo, " ") = vbYes Then
DoCmd.SendObject acSendTable, "UtilisateursClique", acFormatHTML, Message, , , "Ceci est un Mail", "jfcb92 vient de vous envoyer un mail", False
.Close
MsgBox " ", vbInformation, "Votre mail a été envoyé avec succès"
Else
End If
End With
End Sub
