Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

envoi automatique d'email

9 réponses
Avatar
antoine
Bonjour à tous, je suis nouveau sur ce forum, et j'aurai besoin d'un conseil
pour envoyer des emails sans passer par une messagerie.

Le code suivant:
Function EnvoiMail(Sujet As String, Provenance As String,
Destination As String, texte As String)
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = Destination
.FROM = Provenance
.Subject = Sujet
.TextBody = texte
' .AddAttachment (PieceJointe)
.send
End With
Set Cdo_Message = Nothing
End Function

Me donne l'erreur suivante:
La valeur de configuration "SendUsing" est non valide.
J'ai lu qu'il fallait spécifier le smtp, mais je ne sais pas comment faire,
ni si cela est la bonne solution.
Merci d'avance

9 réponses

Avatar
Bertrand
Lien intéressant http://www.faqoe.com/rep/cs.php3

Apparemment, il faut tout de même un serveur virtuel smtp en fonctionnement
sur la machine.
Autrement, comme indiqué sur le lien, tu peux donner une adresse pour ce
lien smtp.

bertrand

"antoine" a écrit dans le message de news:
42079a19$0$507$
Bonjour à tous, je suis nouveau sur ce forum, et j'aurai besoin d'un
conseil
pour envoyer des emails sans passer par une messagerie.

Le code suivant:
Function EnvoiMail(Sujet As String, Provenance As String,
Destination As String, texte As String)
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = Destination
.FROM = Provenance
.Subject = Sujet
.TextBody = texte
' .AddAttachment (PieceJointe)
.send
End With
Set Cdo_Message = Nothing
End Function

Me donne l'erreur suivante:
La valeur de configuration "SendUsing" est non valide.
J'ai lu qu'il fallait spécifier le smtp, mais je ne sais pas comment
faire,
ni si cela est la bonne solution.
Merci d'avance




Avatar
Raymond [mvp]
Bonsoir.

tu trouveras des exemples d'envoi de mails sur les pages:
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
http://www.logicielappui.com/tips/ rubrique :
Envois de courriel API (2004/06/04)
Voici un utilitaire complet pour l'envois de courriel par Access, il
fonctionne de façon autonome avec l'API Winsock, donc il n'est dépendant
d'aucune
messagerie, plus communément appeler « Silent mail », ont peut demander une
confirmation de lecture, une priorité du message et aussi la gestion des
fichiers attachés.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"antoine" a écrit dans le message de news:
42079a19$0$507$
Bonjour à tous, je suis nouveau sur ce forum, et j'aurai besoin d'un
conseil
pour envoyer des emails sans passer par une messagerie.

Le code suivant:
Function EnvoiMail(Sujet As String, Provenance As String,
Destination As String, texte As String)
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = Destination
.FROM = Provenance
.Subject = Sujet
.TextBody = texte
' .AddAttachment (PieceJointe)
.send
End With
Set Cdo_Message = Nothing
End Function

Me donne l'erreur suivante:
La valeur de configuration "SendUsing" est non valide.
J'ai lu qu'il fallait spécifier le smtp, mais je ne sais pas comment
faire,
ni si cela est la bonne solution.
Merci d'avance




Avatar
antoine
Bonjour, je n'arrive pas à configurer correctement les paramètres smtp
(courrier sortant et numero de port), dans le programme d'envoi de courriel
par access, pouvez vous m'aider s'il vous plait?


"Raymond [mvp]" a écrit dans le message de
news: #
Bonsoir.

tu trouveras des exemples d'envoi de mails sur les pages:
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
http://www.logicielappui.com/tips/ rubrique :
Envois de courriel API (2004/06/04)
Voici un utilitaire complet pour l'envois de courriel par Access, il
fonctionne de façon autonome avec l'API Winsock, donc il n'est dépendant
d'aucune
messagerie, plus communément appeler « Silent mail », ont peut demander
une

confirmation de lecture, une priorité du message et aussi la gestion des
fichiers attachés.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"antoine" a écrit dans le message de news:
42079a19$0$507$
Bonjour à tous, je suis nouveau sur ce forum, et j'aurai besoin d'un
conseil
pour envoyer des emails sans passer par une messagerie.

Le code suivant:
Function EnvoiMail(Sujet As String, Provenance As String,
Destination As String, texte As String)
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = Destination
.FROM = Provenance
.Subject = Sujet
.TextBody = texte
' .AddAttachment (PieceJointe)
.send
End With
Set Cdo_Message = Nothing
End Function

Me donne l'erreur suivante:
La valeur de configuration "SendUsing" est non valide.
J'ai lu qu'il fallait spécifier le smtp, mais je ne sais pas comment
faire,
ni si cela est la bonne solution.
Merci d'avance









Avatar
antoine
Pour l'instant, dans courrier sortant j'ai smtp.free.fr, et 25 pour le port.
Mais les mails ne semblent pas parvenir à destination.

"antoine" a écrit dans le message de news:
4208c7eb$0$525$
Bonjour, je n'arrive pas à configurer correctement les paramètres smtp
(courrier sortant et numero de port), dans le programme d'envoi de
courriel

par access, pouvez vous m'aider s'il vous plait?


"Raymond [mvp]" a écrit dans le message
de

news: #
Bonsoir.

tu trouveras des exemples d'envoi de mails sur les pages:
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
http://www.logicielappui.com/tips/ rubrique :
Envois de courriel API (2004/06/04)
Voici un utilitaire complet pour l'envois de courriel par Access, il
fonctionne de façon autonome avec l'API Winsock, donc il n'est dépendant
d'aucune
messagerie, plus communément appeler « Silent mail », ont peut demander
une

confirmation de lecture, une priorité du message et aussi la gestion des
fichiers attachés.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"antoine" a écrit dans le message de news:
42079a19$0$507$
Bonjour à tous, je suis nouveau sur ce forum, et j'aurai besoin d'un
conseil
pour envoyer des emails sans passer par une messagerie.

Le code suivant:
Function EnvoiMail(Sujet As String, Provenance As String,
Destination As String, texte As String)
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = Destination
.FROM = Provenance
.Subject = Sujet
.TextBody = texte
' .AddAttachment (PieceJointe)
.send
End With
Set Cdo_Message = Nothing
End Function

Me donne l'erreur suivante:
La valeur de configuration "SendUsing" est non valide.
J'ai lu qu'il fallait spécifier le smtp, mais je ne sais pas comment
faire,
ni si cela est la bonne solution.
Merci d'avance













Avatar
Raymond [mvp]
Dans les procédures données par Pierre tu as tout ce qu'il faut:
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
rubrique:
Si le serveur smtp par défaut n'est pas reconnu (clients mail non
Microsoft),
on pourra employer les fonctions ci-dessous
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"antoine" a écrit dans le message de news:
4208c9a3$0$512$
Pour l'instant, dans courrier sortant j'ai smtp.free.fr, et 25 pour le
port.
Mais les mails ne semblent pas parvenir à destination.

"antoine" a écrit dans le message de news:
4208c7eb$0$525$
Bonjour, je n'arrive pas à configurer correctement les paramètres smtp
(courrier sortant et numero de port), dans le programme d'envoi de
courriel

par access, pouvez vous m'aider s'il vous plait?






Avatar
antoine
Oui, mais dans le logiciel que tu m'as donné en lien
http://www.logicielappui.com/tips/, il faut remplir des champs, et d'apres
ce que dit le lien ci dessous, il faut mettre smtp.free.fr dans la case
courrier sortant (SMTP) du logiciel, et 25 dans la case port (SMTP). Et il
se trouve qu'en utilisant ces paramètres, les mails n'arrivent pas.

"Raymond [mvp]" a écrit dans le message de
news:
Dans les procédures données par Pierre tu as tout ce qu'il faut:
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
rubrique:
Si le serveur smtp par défaut n'est pas reconnu (clients mail non
Microsoft),
on pourra employer les fonctions ci-dessous
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"antoine" a écrit dans le message de news:
4208c9a3$0$512$
Pour l'instant, dans courrier sortant j'ai smtp.free.fr, et 25 pour le
port.
Mais les mails ne semblent pas parvenir à destination.

"antoine" a écrit dans le message de news:
4208c7eb$0$525$
Bonjour, je n'arrive pas à configurer correctement les paramètres smtp
(courrier sortant et numero de port), dans le programme d'envoi de
courriel

par access, pouvez vous m'aider s'il vous plait?











Avatar
Raymond [mvp]
Prend contact directement avec Robert Simard qui a créé la procédure. il te
répondra rapidement.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"antoine" a écrit dans le message de news:
4208e8c3$0$510$
Oui, mais dans le logiciel que tu m'as donné en lien
http://www.logicielappui.com/tips/, il faut remplir des champs, et d'apres
ce que dit le lien ci dessous, il faut mettre smtp.free.fr dans la case
courrier sortant (SMTP) du logiciel, et 25 dans la case port (SMTP). Et il
se trouve qu'en utilisant ces paramètres, les mails n'arrivent pas.



Avatar
antoine
C'est fait, merci pour ta patience Raymond

@+

"Raymond [mvp]" a écrit dans le message de
news:
Prend contact directement avec Robert Simard qui a créé la procédure. il
te

répondra rapidement.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"antoine" a écrit dans le message de news:
4208e8c3$0$510$
Oui, mais dans le logiciel que tu m'as donné en lien
http://www.logicielappui.com/tips/, il faut remplir des champs, et
d'apres


ce que dit le lien ci dessous, il faut mettre smtp.free.fr dans la case
courrier sortant (SMTP) du logiciel, et 25 dans la case port (SMTP). Et
il


se trouve qu'en utilisant ces paramètres, les mails n'arrivent pas.







Avatar
pirot
bonsoir,
je n'ai pas trop l'habitude de poser des questions, je vais essayer
d'être clair:
il s'agit de faire une gestion de classement par équipes de 4 archers.
chaque archer marque au plus 300 points, donc chaque équipe au plus 4 x
300 soit 1200 points.

dans une table, j'ai la liste des joueurs et les poins de chacun.

Mon état fait le classement par équipes, par points décroissants des
équipes.
Dans chaque équipe on affiche les joueurs, par ordre décroissant de points.
Aucun souci si les équipes ne sont pas à égalité de points.

Mais s'il y a égalité pour 2 équipes, je ne sais pas comment faire pour
le départage, à savoir que l'équipe qui gagne est celle qui a la
meilleur archer, en cas d'égalité des meilleurs, le meilleur des seconds
archers, puis le meilleur des 3èmes puis le meilleur des 4èmes.
exemple de ma table:
club nom score
a na 252
a ne 259
a ni 258
a no 253
b pa 258
b pe 255
b pi 250
b po 259
les 2 équipes ont 1022 points
Ici c'est l'équipe b qui doit être affichée en 1er car on va départager
les 3 èmes archers. ( ne et po 259, pa et ni 259, mais pe bat no )

je ne vois pas articuler requête / état pour avoir un bon état. Que faire ?

(avec excel, j'avais crée un score 1022,259258253252 pour l'équipe a
et 1022,259258255250 pour l'équipe b
mais je ne sais pas comment faire avec access)

si vous avez une idée, elle est la bienvenue !
@+
pirot