Bonjour,
Nouvel utilisateur d'access 2000, j'essaye d'envoyer des e-mails à
partir d'access 2000. Ce sujet étant récurrent j'ai trouvé pas mal
d'infos dans les archives.
Cependant pourriez-vous m'apporter quelques précisions :
- Les e-mails sont envoyés à partir de OutLook.
Voici deux exemples de bout de code :
- Le premier marche impec et est basé sur une boucle bidon
- Le deuxième n'envoie que 3 e_mails (basé sur un recordset)
<!-- Ce bout de code marche impec : -->
Dim i As Integer
'i = 0
'Do While (i < 10)
' strSubject = ""
' strSubject = strSubject & "#" & Str(i) & " : Message Test
2003-07-17"
' DoCmd.SendObject acSendNoObject, , , MAILTO_FR, , ,
strSubject, "Test : 2003-07-17", False
' i = i + 1
' Sleep (10000)
'Loop
<!-- Fin de code -->
<!-- Ce bout de code tourne sans erreurs mais n'envoie que 3 e-mails ?
-->
Do Until rst.EOF
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonjour.
Pour ta formation outlook en tant que nouvel utilisateur, tu trouveras une documentation sur l'automation pour envoyer des messages avec outlook par access sur la page: http://access.seneque.free.fr/outlook1.htm
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"NewAccessUser" a écrit dans le message de news:
Bonjour, Nouvel utilisateur d'access 2000, j'essaye d'envoyer des e-mails à partir d'access 2000. Ce sujet étant récurrent j'ai trouvé pas mal d'infos dans les archives. Cependant pourriez-vous m'apporter quelques précisions :
- Les e-mails sont envoyés à partir de OutLook.
Voici deux exemples de bout de code : - Le premier marche impec et est basé sur une boucle bidon - Le deuxième n'envoie que 3 e_mails (basé sur un recordset)
<!-- Ce bout de code marche impec : --> Dim i As Integer 'i = 0 'Do While (i < 10) ' strSubject = "" ' strSubject = strSubject & "#" & Str(i) & " : Message Test 2003-07-17" ' DoCmd.SendObject acSendNoObject, , , MAILTO_FR, , , strSubject, "Test : 2003-07-17", False ' i = i + 1 ' Sleep (10000) 'Loop <!-- Fin de code -->
<!-- Ce bout de code tourne sans erreurs mais n'envoie que 3 e-mails ? --> Do Until rst.EOF
' Liberation des objets rstYahoo.Close Set rstYahoo = Nothing
<!-- Fin de code -->
Merci, NewUserAccess
Bonjour.
Pour ta formation outlook en tant que nouvel utilisateur, tu trouveras une
documentation sur l'automation pour envoyer des messages avec outlook par
access sur la page: http://access.seneque.free.fr/outlook1.htm
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"NewAccessUser" <philing31000@voila.fr> a écrit dans le message de
news:7af7fb2a.0307170000.bb0728f@posting.google.com...
Bonjour,
Nouvel utilisateur d'access 2000, j'essaye d'envoyer des e-mails à
partir d'access 2000. Ce sujet étant récurrent j'ai trouvé pas mal
d'infos dans les archives.
Cependant pourriez-vous m'apporter quelques précisions :
- Les e-mails sont envoyés à partir de OutLook.
Voici deux exemples de bout de code :
- Le premier marche impec et est basé sur une boucle bidon
- Le deuxième n'envoie que 3 e_mails (basé sur un recordset)
<!-- Ce bout de code marche impec : -->
Dim i As Integer
'i = 0
'Do While (i < 10)
' strSubject = ""
' strSubject = strSubject & "#" & Str(i) & " : Message Test
2003-07-17"
' DoCmd.SendObject acSendNoObject, , , MAILTO_FR, , ,
strSubject, "Test : 2003-07-17", False
' i = i + 1
' Sleep (10000)
'Loop
<!-- Fin de code -->
<!-- Ce bout de code tourne sans erreurs mais n'envoie que 3 e-mails ?
-->
Do Until rst.EOF
Pour ta formation outlook en tant que nouvel utilisateur, tu trouveras une documentation sur l'automation pour envoyer des messages avec outlook par access sur la page: http://access.seneque.free.fr/outlook1.htm
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"NewAccessUser" a écrit dans le message de news:
Bonjour, Nouvel utilisateur d'access 2000, j'essaye d'envoyer des e-mails à partir d'access 2000. Ce sujet étant récurrent j'ai trouvé pas mal d'infos dans les archives. Cependant pourriez-vous m'apporter quelques précisions :
- Les e-mails sont envoyés à partir de OutLook.
Voici deux exemples de bout de code : - Le premier marche impec et est basé sur une boucle bidon - Le deuxième n'envoie que 3 e_mails (basé sur un recordset)
<!-- Ce bout de code marche impec : --> Dim i As Integer 'i = 0 'Do While (i < 10) ' strSubject = "" ' strSubject = strSubject & "#" & Str(i) & " : Message Test 2003-07-17" ' DoCmd.SendObject acSendNoObject, , , MAILTO_FR, , , strSubject, "Test : 2003-07-17", False ' i = i + 1 ' Sleep (10000) 'Loop <!-- Fin de code -->
<!-- Ce bout de code tourne sans erreurs mais n'envoie que 3 e-mails ? --> Do Until rst.EOF
