1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
| Option Compare Database
Public Sub SendMail(ByVal strEmail As String, _
ByVal strObj As String, _
ByVal strMsg As String, _
ByVal blnEdit As Boolean)
On Error Resume Next
DoCmd.SendObject acSendNoObject, , , strEmail, , , strObj, strMsg, blnEdit
End Sub
Private Sub Commande12_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Dim rst As DAO.Recordset
Dim strSQL As String
Dim strMessageType As String
Dim strTitre As String
Dim strMsg As String
Dim titreMsg As String
' Titre du message
strTitre = "{Tel}"
' Message type à expédier
' Les signes {...} seront remplacés plus loin par
' les infos Client
strMessageType = Nz([Message unique], " ")
' Ouverture de la requête
' (seuls les clients ayant un email sont concernés ici)
strSQL = "SELECT * FROM [Envoi d'un sms avec message unique]" _
& " WHERE [Email] IS NOT NULL"
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
titreMsg = Replace(strTitre, "{Tel}", rst("Tel"))
strMsg = Replace(strMessageType, "{Tel}", rst("Tel"))
' Expédier le mail
SendMail rst("Email"), titreMsg, strMsg, False
' Client suivant
rst.MoveNext
Wend
' On libère les ressources
rst.Close
Set rst = Nothing
' Un petit message de confirmation
MsgBox "Les messages ont bien été envoyé", vbInformation, "Envoi de SMS"
End Sub |
Partager