Bonjour à tous,
Je voudrais pouvoir envoyer un mail en cliquant sur un bouton integré dans un formulaire. Etant novice sur vba, J'ai cherché sur internet pour touver le code qui convenait. Voila ce que j'ai trouvé:
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
| Private Sub Commande24_Click()
Dim rst As DAO.Recordset
Dim strSQL As String
Dim strMessageType As String
Dim strTitre As String
Dim strMsg As String
strTitre = "Relance ODM"
strMessageType = "Bonjour," _
& vbCrLf & vbCrLf _
& "Le, vous avez loué dans notre vidéoclub " _
& "Sauf erreur de notre part," _
& " vous ne nous avez pas ramené cette vidéo à ce jour." _
& vbCrLf & "Merci de... blah blah :-)" _
& vbCrLf & vbCrLf & "-- L'équipe 7ème Art Vidéoclub."
' Ouverture de la requête
strSQL = "SELECT * FROM [Table1]" _
& " WHERE [Contacts] IS NOT NULL"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
While Not rst.EOF
' Expédier le mail
SendMail rst("Contacts"), False
' Client suivant
rst.MoveNext
Wend
rst.Close
Set rst = Nothing
MsgBox "Opération terminée !", vbInformation, "VidéoClub"
End Sub |
le body du mail est celui de l'exemple du net, j'ai juste voulu faire un test. Lorsque j'essaye d'éxecuter le code, il apparait un méssage d'erreur :
Erreur de compilation : Sub ou Function non définie
ET il me surligne la ligne :
SendMail rst("Contacts"), False
le probleme vient du SendMail apparemment, mais je ne comprend pas pourquoi?
Partager