Eric m'a donné une solution pour un envoie d'emails:
Sub yy()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("req_email")
While Not rst.EOF
' adapter le nom du champ d'email
SendMailCDO "toto@libre.fr", rst!email, "Essai", "Bonnes fêtes"
rst.MoveNext
Wend
Set rst = Nothing
End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document
2 Que signifie "essai","bonnes fêtes"
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
Isabelle ex Isa :-)
On 19 déc, 09:24, "Docteur Jekyll" wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("req_email") While Not rst.EOF ' adapter le nom du champ d'email SendMailCDO "", rst!email, "Essai", "Bonnes fêtes" rst.MoveNext Wend Set rst = Nothing End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document 2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais essai correspond au nom de l'objet du message Bonnes fêtes au texte du message
Que les pros me confirment
On 19 déc, 09:24, "Docteur Jekyll" <arlequin7...@hotmail.com> wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("req_email")
While Not rst.EOF
' adapter le nom du champ d'email
SendMailCDO "t...@libre.fr", rst!email, "Essai", "Bonnes fêtes"
rst.MoveNext
Wend
Set rst = Nothing
End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document
2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais
essai correspond au nom de l'objet du message
Bonnes fêtes au texte du message
Eric m'a donné une solution pour un envoie d'emails:
Sub yy() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("req_email") While Not rst.EOF ' adapter le nom du champ d'email SendMailCDO "", rst!email, "Essai", "Bonnes fêtes" rst.MoveNext Wend Set rst = Nothing End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document 2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais essai correspond au nom de l'objet du message Bonnes fêtes au texte du message
Que les pros me confirment
Eric
re Bonjour Isa & Arlequin,
Pour Isa, c'est Ok mais je ne suis pas pro :-(
Pour Arlequin :
Tu rajoutes la ligne : .AddAttachment ("c:cheminfichier.ext") juste avant la ligne .Send
où c:cheminfichier.ext doit être remplacé par le chemin exact et le nom du fichier + son extension que tu veux joindre.
On 19 déc, 09:24, "Docteur Jekyll" wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("req_email") While Not rst.EOF ' adapter le nom du champ d'email SendMailCDO "", rst!email, "Essai", "Bonnes fêtes" rst.MoveNext Wend Set rst = Nothing End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document 2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais essai correspond au nom de l'objet du message Bonnes fêtes au texte du message
Que les pros me confirment
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re Bonjour Isa & Arlequin,
Pour Isa, c'est Ok mais je ne suis pas pro :-(
Pour Arlequin :
Tu rajoutes la ligne :
.AddAttachment ("c:cheminfichier.ext")
juste avant la ligne
.Send
où c:cheminfichier.ext doit être remplacé par le chemin exact et le nom
du fichier + son extension que tu veux joindre.
On 19 déc, 09:24, "Docteur Jekyll" <arlequin7...@hotmail.com> wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("req_email")
While Not rst.EOF
' adapter le nom du champ d'email
SendMailCDO "t...@libre.fr", rst!email, "Essai", "Bonnes fêtes"
rst.MoveNext
Wend
Set rst = Nothing
End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document
2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais
essai correspond au nom de l'objet du message
Bonnes fêtes au texte du message
Que les pros me confirment
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Tu rajoutes la ligne : .AddAttachment ("c:cheminfichier.ext") juste avant la ligne .Send
où c:cheminfichier.ext doit être remplacé par le chemin exact et le nom du fichier + son extension que tu veux joindre.
On 19 déc, 09:24, "Docteur Jekyll" wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("req_email") While Not rst.EOF ' adapter le nom du champ d'email SendMailCDO "", rst!email, "Essai", "Bonnes fêtes" rst.MoveNext Wend Set rst = Nothing End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document 2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais essai correspond au nom de l'objet du message Bonnes fêtes au texte du message
Que les pros me confirment
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Docteur Jekyll
Merci à vous deux... Je ne pourrai l'essayer que vendredi.. donc je vous tiendrai au courant.
Amitiés.
"Eric" a écrit dans le message de news:
re Bonjour Isa & Arlequin,
Pour Isa, c'est Ok mais je ne suis pas pro :-(
Pour Arlequin :
Tu rajoutes la ligne : .AddAttachment ("c:cheminfichier.ext") juste avant la ligne .Send
où c:cheminfichier.ext doit être remplacé par le chemin exact et le nom du fichier + son extension que tu veux joindre.
On 19 déc, 09:24, "Docteur Jekyll" wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("req_email") While Not rst.EOF ' adapter le nom du champ d'email SendMailCDO "", rst!email, "Essai", "Bonnes fêtes" rst.MoveNext Wend Set rst = Nothing End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document 2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais essai correspond au nom de l'objet du message Bonnes fêtes au texte du message
Que les pros me confirment
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci à vous deux... Je ne pourrai l'essayer que vendredi.. donc je vous
tiendrai au courant.
Amitiés.
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
epfFcvhQIHA.4276@TK2MSFTNGP06.phx.gbl...
re Bonjour Isa & Arlequin,
Pour Isa, c'est Ok mais je ne suis pas pro :-(
Pour Arlequin :
Tu rajoutes la ligne :
.AddAttachment ("c:cheminfichier.ext")
juste avant la ligne
.Send
où c:cheminfichier.ext doit être remplacé par le chemin exact et le nom
du fichier + son extension que tu veux joindre.
On 19 déc, 09:24, "Docteur Jekyll" <arlequin7...@hotmail.com> wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("req_email")
While Not rst.EOF
' adapter le nom du champ d'email
SendMailCDO "t...@libre.fr", rst!email, "Essai", "Bonnes fêtes"
rst.MoveNext
Wend
Set rst = Nothing
End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document
2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais
essai correspond au nom de l'objet du message
Bonnes fêtes au texte du message
Que les pros me confirment
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci à vous deux... Je ne pourrai l'essayer que vendredi.. donc je vous tiendrai au courant.
Amitiés.
"Eric" a écrit dans le message de news:
re Bonjour Isa & Arlequin,
Pour Isa, c'est Ok mais je ne suis pas pro :-(
Pour Arlequin :
Tu rajoutes la ligne : .AddAttachment ("c:cheminfichier.ext") juste avant la ligne .Send
où c:cheminfichier.ext doit être remplacé par le chemin exact et le nom du fichier + son extension que tu veux joindre.
On 19 déc, 09:24, "Docteur Jekyll" wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("req_email") While Not rst.EOF ' adapter le nom du champ d'email SendMailCDO "", rst!email, "Essai", "Bonnes fêtes" rst.MoveNext Wend Set rst = Nothing End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document 2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais essai correspond au nom de l'objet du message Bonnes fêtes au texte du message
Que les pros me confirment
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Docteur Jekyll
Salut à tous.
Hélas, la base de données n'était pas prête et je n'ai pas pu tester votre aide. Je vous tiendrai au courant, promis.
Bonnes fêtes
jean claude "Docteur Jekyll" a écrit dans le message de news: 4768e482$0$19197$
Merci à vous deux... Je ne pourrai l'essayer que vendredi.. donc je vous tiendrai au courant.
Amitiés.
"Eric" a écrit dans le message de news:
re Bonjour Isa & Arlequin,
Pour Isa, c'est Ok mais je ne suis pas pro :-(
Pour Arlequin :
Tu rajoutes la ligne : .AddAttachment ("c:cheminfichier.ext") juste avant la ligne .Send
où c:cheminfichier.ext doit être remplacé par le chemin exact et le nom du fichier + son extension que tu veux joindre.
On 19 déc, 09:24, "Docteur Jekyll" wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("req_email") While Not rst.EOF ' adapter le nom du champ d'email SendMailCDO "", rst!email, "Essai", "Bonnes fêtes" rst.MoveNext Wend Set rst = Nothing End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document 2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais essai correspond au nom de l'objet du message Bonnes fêtes au texte du message
Que les pros me confirment
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Salut à tous.
Hélas, la base de données n'était pas prête et je n'ai pas pu tester votre
aide.
Je vous tiendrai au courant, promis.
Bonnes fêtes
jean claude
"Docteur Jekyll" <arlequin7520@hotmail.com> a écrit dans le message de news:
4768e482$0$19197$426a74cc@news.free.fr...
Merci à vous deux... Je ne pourrai l'essayer que vendredi.. donc je vous
tiendrai au courant.
Amitiés.
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
epfFcvhQIHA.4276@TK2MSFTNGP06.phx.gbl...
re Bonjour Isa & Arlequin,
Pour Isa, c'est Ok mais je ne suis pas pro :-(
Pour Arlequin :
Tu rajoutes la ligne :
.AddAttachment ("c:cheminfichier.ext")
juste avant la ligne
.Send
où c:cheminfichier.ext doit être remplacé par le chemin exact et le nom
du fichier + son extension que tu veux joindre.
On 19 déc, 09:24, "Docteur Jekyll" <arlequin7...@hotmail.com> wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("req_email")
While Not rst.EOF
' adapter le nom du champ d'email
SendMailCDO "t...@libre.fr", rst!email, "Essai", "Bonnes
fêtes"
rst.MoveNext
Wend
Set rst = Nothing
End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document
2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais
essai correspond au nom de l'objet du message
Bonnes fêtes au texte du message
Que les pros me confirment
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Hélas, la base de données n'était pas prête et je n'ai pas pu tester votre aide. Je vous tiendrai au courant, promis.
Bonnes fêtes
jean claude "Docteur Jekyll" a écrit dans le message de news: 4768e482$0$19197$
Merci à vous deux... Je ne pourrai l'essayer que vendredi.. donc je vous tiendrai au courant.
Amitiés.
"Eric" a écrit dans le message de news:
re Bonjour Isa & Arlequin,
Pour Isa, c'est Ok mais je ne suis pas pro :-(
Pour Arlequin :
Tu rajoutes la ligne : .AddAttachment ("c:cheminfichier.ext") juste avant la ligne .Send
où c:cheminfichier.ext doit être remplacé par le chemin exact et le nom du fichier + son extension que tu veux joindre.
On 19 déc, 09:24, "Docteur Jekyll" wrote:
Bonjour à tous.
Eric m'a donné une solution pour un envoie d'emails:
Sub yy() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("req_email") While Not rst.EOF ' adapter le nom du champ d'email SendMailCDO "", rst!email, "Essai", "Bonnes fêtes" rst.MoveNext Wend Set rst = Nothing End Sub
Les questions sont les suivantes:
1 Comment joindre à tous le même document 2 Que signifie "essai","bonnes fêtes"
Merci à tous pour votre aide.
Bonjour Docteur Jekill
pour la 2 je dirais essai correspond au nom de l'objet du message Bonnes fêtes au texte du message
Que les pros me confirment
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr