J'utilise régulièrement la fonction suivante afin d'envoyer automatiquement
un mail sans passer par un logiciel de messagerie :
'**********************************
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
'***********************************
Ca fonctionne bien, mais par sur tous les postes, j'ai régulièrement le
message "La valeur de configuration <SendUsing> est non valide"
Quelqu'un aurait-il une petite idée pour m'aider ?
Merci d'avance.
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 [mvp]
Bonjour.
lire les pages: http://minilien.com/?eC9mzFDtBl http://search.microsoft.com/search/results.aspx?qu=SendUsing+&View=msdn&st=b&c=4&s=1&swc=4 http://groups.google.com/groups?hl=fr&lr=&ie=UTF-8&q=SendUsing+&btnG=Rechercher&meta=group%3Dmicrosoft.public.fr.access
compare avec les fonctions proposées pat Pierre (3stone) sur son site: http://users.skynet.be/accesshome/outlook.htm#SendMailCDO -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Fred" a écrit dans le message de news: 41c9204d$0$30605$
Du forum, bonjour,
J'utilise régulièrement la fonction suivante afin d'envoyer automatiquement un mail sans passer par un logiciel de messagerie :
'********************************** 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 '***********************************
Ca fonctionne bien, mais par sur tous les postes, j'ai régulièrement le message "La valeur de configuration <SendUsing> est non valide" Quelqu'un aurait-il une petite idée pour m'aider ? Merci d'avance.
Fred
Bonjour.
lire les pages:
http://minilien.com/?eC9mzFDtBl
http://search.microsoft.com/search/results.aspx?qu=SendUsing+&View=msdn&st=b&c=4&s=1&swc=4
http://groups.google.com/groups?hl=fr&lr=&ie=UTF-8&q=SendUsing+&btnG=Rechercher&meta=group%3Dmicrosoft.public.fr.access
compare avec les fonctions proposées pat Pierre (3stone) sur son site:
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Fred" <fred@memorys.fr> a écrit dans le message de news:
41c9204d$0$30605$636a15ce@news.free.fr...
Du forum, bonjour,
J'utilise régulièrement la fonction suivante afin d'envoyer
automatiquement
un mail sans passer par un logiciel de messagerie :
'**********************************
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
'***********************************
Ca fonctionne bien, mais par sur tous les postes, j'ai régulièrement le
message "La valeur de configuration <SendUsing> est non valide"
Quelqu'un aurait-il une petite idée pour m'aider ?
Merci d'avance.
lire les pages: http://minilien.com/?eC9mzFDtBl http://search.microsoft.com/search/results.aspx?qu=SendUsing+&View=msdn&st=b&c=4&s=1&swc=4 http://groups.google.com/groups?hl=fr&lr=&ie=UTF-8&q=SendUsing+&btnG=Rechercher&meta=group%3Dmicrosoft.public.fr.access
compare avec les fonctions proposées pat Pierre (3stone) sur son site: http://users.skynet.be/accesshome/outlook.htm#SendMailCDO -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Fred" a écrit dans le message de news: 41c9204d$0$30605$
Du forum, bonjour,
J'utilise régulièrement la fonction suivante afin d'envoyer automatiquement un mail sans passer par un logiciel de messagerie :
'********************************** 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 '***********************************
Ca fonctionne bien, mais par sur tous les postes, j'ai régulièrement le message "La valeur de configuration <SendUsing> est non valide" Quelqu'un aurait-il une petite idée pour m'aider ? Merci d'avance.
Fred
casa
Bonjour,
Comme j'ai bcq galéré avec l'envoi de mail ces temps derniers, tu n'as pas précisé l'OS des PC et le type de serveur messagerie (SMTP ou autres) qui te posent problème. Casa
Bonjour.
lire les pages: http://minilien.com/?eC9mzFDtBl http://search.microsoft.com/search/results.aspx?qu=SendUsing+&View=msdn&st=b&c=4&s=1&swc=4 http://groups.google.com/groups?hl=fr&lr=&ie=UTF-8&q=SendUsing+&btnG=Rechercher&meta=group%3Dmicrosoft.public.fr.access
compare avec les fonctions proposées pat Pierre (3stone) sur son site: http://users.skynet.be/accesshome/outlook.htm#SendMailCDO -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Fred" a écrit dans le message de news: 41c9204d$0$30605$
Du forum, bonjour,
J'utilise régulièrement la fonction suivante afin d'envoyer automatiquement un mail sans passer par un logiciel de messagerie :
'********************************** 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 '***********************************
Ca fonctionne bien, mais par sur tous les postes, j'ai régulièrement le message "La valeur de configuration <SendUsing> est non valide" Quelqu'un aurait-il une petite idée pour m'aider ? Merci d'avance.
Fred
Bonjour,
Comme j'ai bcq galéré avec l'envoi de mail ces temps derniers, tu n'as pas
précisé l'OS des PC et le type de serveur messagerie (SMTP ou autres) qui te
posent problème.
Casa
Bonjour.
lire les pages:
http://minilien.com/?eC9mzFDtBl
http://search.microsoft.com/search/results.aspx?qu=SendUsing+&View=msdn&st=b&c=4&s=1&swc=4
http://groups.google.com/groups?hl=fr&lr=&ie=UTF-8&q=SendUsing+&btnG=Rechercher&meta=group%3Dmicrosoft.public.fr.access
compare avec les fonctions proposées pat Pierre (3stone) sur son site:
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Fred" <fred@memorys.fr> a écrit dans le message de news:
41c9204d$0$30605$636a15ce@news.free.fr...
Du forum, bonjour,
J'utilise régulièrement la fonction suivante afin d'envoyer
automatiquement
un mail sans passer par un logiciel de messagerie :
'**********************************
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
'***********************************
Ca fonctionne bien, mais par sur tous les postes, j'ai régulièrement le
message "La valeur de configuration <SendUsing> est non valide"
Quelqu'un aurait-il une petite idée pour m'aider ?
Merci d'avance.
Comme j'ai bcq galéré avec l'envoi de mail ces temps derniers, tu n'as pas précisé l'OS des PC et le type de serveur messagerie (SMTP ou autres) qui te posent problème. Casa
Bonjour.
lire les pages: http://minilien.com/?eC9mzFDtBl http://search.microsoft.com/search/results.aspx?qu=SendUsing+&View=msdn&st=b&c=4&s=1&swc=4 http://groups.google.com/groups?hl=fr&lr=&ie=UTF-8&q=SendUsing+&btnG=Rechercher&meta=group%3Dmicrosoft.public.fr.access
compare avec les fonctions proposées pat Pierre (3stone) sur son site: http://users.skynet.be/accesshome/outlook.htm#SendMailCDO -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Fred" a écrit dans le message de news: 41c9204d$0$30605$
Du forum, bonjour,
J'utilise régulièrement la fonction suivante afin d'envoyer automatiquement un mail sans passer par un logiciel de messagerie :
'********************************** 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 '***********************************
Ca fonctionne bien, mais par sur tous les postes, j'ai régulièrement le message "La valeur de configuration <SendUsing> est non valide" Quelqu'un aurait-il une petite idée pour m'aider ? Merci d'avance.
Fred
Fred
Merci Raymond, toujours réponse à tout !
Fred "Raymond [mvp]" a écrit dans le message de news: ON$EO$$
compare avec les fonctions proposées pat Pierre (3stone) sur son site: http://users.skynet.be/accesshome/outlook.htm#SendMailCDO -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Fred" a écrit dans le message de news: 41c9204d$0$30605$
Du forum, bonjour,
J'utilise régulièrement la fonction suivante afin d'envoyer automatiquement un mail sans passer par un logiciel de messagerie :
'********************************** 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 '***********************************
Ca fonctionne bien, mais par sur tous les postes, j'ai régulièrement le message "La valeur de configuration <SendUsing> est non valide" Quelqu'un aurait-il une petite idée pour m'aider ? Merci d'avance.
Fred
Merci Raymond, toujours réponse à tout !
Fred
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de
news: ON$EO$$5EHA.3756@TK2MSFTNGP14.phx.gbl...
compare avec les fonctions proposées pat Pierre (3stone) sur son site:
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Fred" <fred@memorys.fr> a écrit dans le message de news:
41c9204d$0$30605$636a15ce@news.free.fr...
Du forum, bonjour,
J'utilise régulièrement la fonction suivante afin d'envoyer
automatiquement
un mail sans passer par un logiciel de messagerie :
'**********************************
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
'***********************************
Ca fonctionne bien, mais par sur tous les postes, j'ai régulièrement le
message "La valeur de configuration <SendUsing> est non valide"
Quelqu'un aurait-il une petite idée pour m'aider ?
Merci d'avance.
compare avec les fonctions proposées pat Pierre (3stone) sur son site: http://users.skynet.be/accesshome/outlook.htm#SendMailCDO -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Fred" a écrit dans le message de news: 41c9204d$0$30605$
Du forum, bonjour,
J'utilise régulièrement la fonction suivante afin d'envoyer automatiquement un mail sans passer par un logiciel de messagerie :
'********************************** 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 '***********************************
Ca fonctionne bien, mais par sur tous les postes, j'ai régulièrement le message "La valeur de configuration <SendUsing> est non valide" Quelqu'un aurait-il une petite idée pour m'aider ? Merci d'avance.
