VBA - Envoi d'un etat par mail

Le
Geoffroy PINSON
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #6363901
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
Le #6363841
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

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Dom
Le #6363681
Salut Pierre,

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)

http://www.3stone.be/access/articles.php?lng=fr&pg

Génial, cela fonctionne pile-poil !

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"
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

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)



3stone
Le #6363661
Salut,

"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 ;-)

PS: "Inventer" du code est une affabulation !!!

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Geoffroy PINSON
Le #6363551
Merci Fabien,

C'est au poil ! Je ne connaissais pas le querydefs. Super
Merci

Geo

"Fabien" 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

@+



Publicité
Poster une réponse
Anonyme