Bonjour,
J'aimerai pouvoir envoyé un état filtré par mail :
DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là !
DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " dupont@moi.fr ", "",
"", "texte du sujet", "texte du message", False, "" --> dans ce mail là !
En gros, il faudrait pouvoir réunir ces 2 fonctions en 1.
L'idée finale est de pouvoir envoyé le même état avec des valeur différente
à une série d'adresses mails se situant dans une table.
Merci pour votre aide
Geo
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
Fabien
Bonjour, J'aimerai pouvoir envoyé un état filtré par mail :
DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là ! DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " ", "", "", "texte du sujet", "texte du message", False, "" --> dans ce mail là !
En gros, il faudrait pouvoir réunir ces 2 fonctions en 1. L'idée finale est de pouvoir envoyé le même état avec des valeur différente à une série d'adresses mails se situant dans une table. Merci pour votre aide Geo
Salut Geo
Si la source de donnée qui alimente ton etat est une requete alors tu la modifie dynamiquement grace a
Dim Rst as Recordsets Set Rst = CurrentDb.openrecordset("TabledesResp") While not rst.eof currentdb.querydefs("LarequeteSource").sql="select * from Table where [RespCom]='" & Rst("RespCom") & "'" DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", Rst("AdresseMailRespCom"), "", "", "texte du sujet", "texte du message", False, "" Docmd.movenext Wend Rst.Close Set Rst=Nothing
@+
Bonjour,
J'aimerai pouvoir envoyé un état filtré par mail :
DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là !
DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " dupont@moi.fr ", "",
"", "texte du sujet", "texte du message", False, "" --> dans ce mail là !
En gros, il faudrait pouvoir réunir ces 2 fonctions en 1.
L'idée finale est de pouvoir envoyé le même état avec des valeur différente
à une série d'adresses mails se situant dans une table.
Merci pour votre aide
Geo
Salut Geo
Si la source de donnée qui alimente ton etat est une requete alors tu la
modifie dynamiquement grace a
Dim Rst as Recordsets
Set Rst = CurrentDb.openrecordset("TabledesResp")
While not rst.eof
currentdb.querydefs("LarequeteSource").sql="select * from Table where
[RespCom]='" & Rst("RespCom") & "'"
DoCmd.SendObject acReport, "Etat1", "HTML(*.html)",
Rst("AdresseMailRespCom"), "", "", "texte du sujet", "texte du
message", False, ""
Docmd.movenext
Wend
Rst.Close
Set Rst=Nothing
Bonjour, J'aimerai pouvoir envoyé un état filtré par mail :
DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là ! DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " ", "", "", "texte du sujet", "texte du message", False, "" --> dans ce mail là !
En gros, il faudrait pouvoir réunir ces 2 fonctions en 1. L'idée finale est de pouvoir envoyé le même état avec des valeur différente à une série d'adresses mails se situant dans une table. Merci pour votre aide Geo
Salut Geo
Si la source de donnée qui alimente ton etat est une requete alors tu la modifie dynamiquement grace a
Dim Rst as Recordsets Set Rst = CurrentDb.openrecordset("TabledesResp") While not rst.eof currentdb.querydefs("LarequeteSource").sql="select * from Table where [RespCom]='" & Rst("RespCom") & "'" DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", Rst("AdresseMailRespCom"), "", "", "texte du sujet", "texte du message", False, "" Docmd.movenext Wend Rst.Close Set Rst=Nothing
@+
3stone
Salut,
"Geoffroy PINSON" | J'aimerai pouvoir envoyé un état filtré par mail : | | DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là ! | DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " ", "", | "", "texte du sujet", "texte du message", False, "" --> dans ce mail là ! | | En gros, il faudrait pouvoir réunir ces 2 fonctions en 1. | L'idée finale est de pouvoir envoyé le même état avec des valeur différente | à une série d'adresses mails se situant dans une table.
Tu peux aussi inclure l'état html dans le mail... http://www.3stone.be/access/articles.php?lng=fr&pg" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pg
"Geoffroy PINSON"
| J'aimerai pouvoir envoyé un état filtré par mail :
|
| DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là !
| DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " dupont@moi.fr ", "",
| "", "texte du sujet", "texte du message", False, "" --> dans ce mail là !
|
| En gros, il faudrait pouvoir réunir ces 2 fonctions en 1.
| L'idée finale est de pouvoir envoyé le même état avec des valeur différente
| à une série d'adresses mails se situant dans une table.
Tu peux aussi inclure l'état html dans le mail...
http://www.3stone.be/access/articles.php?lng=fr&pg
"Geoffroy PINSON" | J'aimerai pouvoir envoyé un état filtré par mail : | | DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là ! | DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " ", "", | "", "texte du sujet", "texte du message", False, "" --> dans ce mail là ! | | En gros, il faudrait pouvoir réunir ces 2 fonctions en 1. | L'idée finale est de pouvoir envoyé le même état avec des valeur différente | à une série d'adresses mails se situant dans une table.
Tu peux aussi inclure l'état html dans le mail... http://www.3stone.be/access/articles.php?lng=fr&pg" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pg
Ta réponse à Geoffroy et ton lien m'ont donné encore une fois d'aller fouiner sur ton site et d'y découvrir en étant plus attentif une procédure que je désespèrais de trouver un jour...(pour AC 97)
Je te remercie beaucoup ainsi que celles et ceux qui ont contribué à créer ce code.
J'ai une question : puis-je l'utiliser librement y compris dans un cadre professionnel ?
Cordialement,
Dominique.
"3stone" a écrit dans le message de news:
Salut,
"Geoffroy PINSON" | J'aimerai pouvoir envoyé un état filtré par mail : | | DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là ! | DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " ", "", | "", "texte du sujet", "texte du message", False, "" --> dans ce mail là ! | | En gros, il faudrait pouvoir réunir ces 2 fonctions en 1. | L'idée finale est de pouvoir envoyé le même état avec des valeur différente | à une série d'adresses mails se situant dans une table.
Tu peux aussi inclure l'état html dans le mail... http://www.3stone.be/access/articles.php?lng=fr&pg" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pg
Ta réponse à Geoffroy et ton lien m'ont donné encore une fois d'aller
fouiner sur ton site et d'y découvrir en étant plus attentif une procédure
que je désespèrais de trouver un jour...(pour AC 97)
Je te remercie beaucoup ainsi que celles et ceux qui ont contribué à créer
ce code.
J'ai une question : puis-je l'utiliser librement y compris dans un cadre
professionnel ?
Cordialement,
Dominique.
"3stone" <home@sweet_home.be> a écrit dans le message de news:
uQTpwRLbIHA.1208@TK2MSFTNGP05.phx.gbl...
Salut,
"Geoffroy PINSON"
| J'aimerai pouvoir envoyé un état filtré par mail :
|
| DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là !
| DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " dupont@moi.fr ",
"",
| "", "texte du sujet", "texte du message", False, "" --> dans ce mail là
!
|
| En gros, il faudrait pouvoir réunir ces 2 fonctions en 1.
| L'idée finale est de pouvoir envoyé le même état avec des valeur
différente
| à une série d'adresses mails se situant dans une table.
Tu peux aussi inclure l'état html dans le mail...
http://www.3stone.be/access/articles.php?lng=fr&pg
Ta réponse à Geoffroy et ton lien m'ont donné encore une fois d'aller fouiner sur ton site et d'y découvrir en étant plus attentif une procédure que je désespèrais de trouver un jour...(pour AC 97)
Je te remercie beaucoup ainsi que celles et ceux qui ont contribué à créer ce code.
J'ai une question : puis-je l'utiliser librement y compris dans un cadre professionnel ?
Cordialement,
Dominique.
"3stone" a écrit dans le message de news:
Salut,
"Geoffroy PINSON" | J'aimerai pouvoir envoyé un état filtré par mail : | | DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là ! | DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " ", "", | "", "texte du sujet", "texte du message", False, "" --> dans ce mail là ! | | En gros, il faudrait pouvoir réunir ces 2 fonctions en 1. | L'idée finale est de pouvoir envoyé le même état avec des valeur différente | à une série d'adresses mails se situant dans une table.
Tu peux aussi inclure l'état html dans le mail... http://www.3stone.be/access/articles.php?lng=fr&pg" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pg
"Dom" | Ta réponse à Geoffroy et ton lien m'ont donné encore une fois d'aller | fouiner sur ton site et d'y découvrir en étant plus attentif une procédure | que je désespèrais de trouver un jour...(pour AC 97)
Tant mieux si cela sert ;-)
| J'ai une question : puis-je l'utiliser librement y compris dans un cadre | professionnel ?
C'est écrit : "recherches collectives"... Et oui, on peut utiliser tout ce qui s'y trouve, sauf mention spéciale ;-)
"Dom"
| Ta réponse à Geoffroy et ton lien m'ont donné encore une fois d'aller
| fouiner sur ton site et d'y découvrir en étant plus attentif une procédure
| que je désespèrais de trouver un jour...(pour AC 97)
Tant mieux si cela sert ;-)
| J'ai une question : puis-je l'utiliser librement y compris dans un cadre
| professionnel ?
C'est écrit : "recherches collectives"...
Et oui, on peut utiliser tout ce qui s'y trouve, sauf mention spéciale ;-)
"Dom" | Ta réponse à Geoffroy et ton lien m'ont donné encore une fois d'aller | fouiner sur ton site et d'y découvrir en étant plus attentif une procédure | que je désespèrais de trouver un jour...(pour AC 97)
Tant mieux si cela sert ;-)
| J'ai une question : puis-je l'utiliser librement y compris dans un cadre | professionnel ?
C'est écrit : "recherches collectives"... Et oui, on peut utiliser tout ce qui s'y trouve, sauf mention spéciale ;-)
C'est au poil ! Je ne connaissais pas le querydefs. Super Merci
Geo
"Fabien" a écrit dans le message de news: 47b03feb$0$842$
Bonjour, J'aimerai pouvoir envoyé un état filtré par mail :
DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là ! DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " ", "", "", "texte du sujet", "texte du message", False, "" --> dans ce mail là !
En gros, il faudrait pouvoir réunir ces 2 fonctions en 1. L'idée finale est de pouvoir envoyé le même état avec des valeur différente à une série d'adresses mails se situant dans une table. Merci pour votre aide Geo Salut Geo
Si la source de donnée qui alimente ton etat est une requete alors tu la modifie dynamiquement grace a
Dim Rst as Recordsets Set Rst = CurrentDb.openrecordset("TabledesResp") While not rst.eof currentdb.querydefs("LarequeteSource").sql="select * from Table where [RespCom]='" & Rst("RespCom") & "'" DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", Rst("AdresseMailRespCom"), "", "", "texte du sujet", "texte du message", False, "" Docmd.movenext Wend Rst.Close Set Rst=Nothing
@+
Merci Fabien,
C'est au poil ! Je ne connaissais pas le querydefs. Super
Merci
Geo
"Fabien" <UrbaniakFabienxxxxx@Neuf.fr> a écrit dans le message de news:
47b03feb$0$842$ba4acef3@news.orange.fr...
Bonjour,
J'aimerai pouvoir envoyé un état filtré par mail :
DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là !
DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " dupont@moi.fr ",
"", "", "texte du sujet", "texte du message", False, "" --> dans ce mail
là !
En gros, il faudrait pouvoir réunir ces 2 fonctions en 1.
L'idée finale est de pouvoir envoyé le même état avec des valeur
différente à une série d'adresses mails se situant dans une table.
Merci pour votre aide
Geo
Salut Geo
Si la source de donnée qui alimente ton etat est une requete alors tu la
modifie dynamiquement grace a
Dim Rst as Recordsets
Set Rst = CurrentDb.openrecordset("TabledesResp")
While not rst.eof
currentdb.querydefs("LarequeteSource").sql="select * from Table where
[RespCom]='" & Rst("RespCom") & "'"
DoCmd.SendObject acReport, "Etat1", "HTML(*.html)",
Rst("AdresseMailRespCom"), "", "", "texte du sujet", "texte du message",
False, ""
Docmd.movenext
Wend
Rst.Close
Set Rst=Nothing
C'est au poil ! Je ne connaissais pas le querydefs. Super Merci
Geo
"Fabien" a écrit dans le message de news: 47b03feb$0$842$
Bonjour, J'aimerai pouvoir envoyé un état filtré par mail :
DoCmd.OpenReport "Etat1", , , "[RespCom]='Dupont'" --> Cet état là ! DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", " ", "", "", "texte du sujet", "texte du message", False, "" --> dans ce mail là !
En gros, il faudrait pouvoir réunir ces 2 fonctions en 1. L'idée finale est de pouvoir envoyé le même état avec des valeur différente à une série d'adresses mails se situant dans une table. Merci pour votre aide Geo Salut Geo
Si la source de donnée qui alimente ton etat est une requete alors tu la modifie dynamiquement grace a
Dim Rst as Recordsets Set Rst = CurrentDb.openrecordset("TabledesResp") While not rst.eof currentdb.querydefs("LarequeteSource").sql="select * from Table where [RespCom]='" & Rst("RespCom") & "'" DoCmd.SendObject acReport, "Etat1", "HTML(*.html)", Rst("AdresseMailRespCom"), "", "", "texte du sujet", "texte du message", False, "" Docmd.movenext Wend Rst.Close Set Rst=Nothing