OVH Cloud OVH Cloud

Envoyer un message CDO

10 réponses
Avatar
Céline
bonjour =E0 toute l'=E9quipe

je gal=E8re aujourd'hui devant le probl=E8me suivant

Pour =E9viter de passer par outlook, j'essaie d'envoyer un message
depuis mn vba en utilisant le code suivant :

Sub Send_A_Mail(Optional adresse_mail As String)

With CreateObject("CDO.Message")
=2Efrom =3D "Monadresse@monserveur.fr"
=2ETo =3D "moncoll=E8gue@monserveur.fr"
=2ESubject =3D "Alerte modification BEM"
=2ETextbody =3D "fais gaffe"
=2ESend
End With

End Sub

Or, lorsque j'execute ce code j'obtiens un message d'erreur de type :
Erreur d'=E9xecution '-2147220960 (80040220)'
La valeur de configuration de SendUsing est non valide

Le plantage se fait sur .Send

Ai-je vraiment la cervelle dans le pat=E9 ce matin (genre oubli=E9 qqch)
ou il y a une bidouille =E0 faire ?

Merci beaucoup de vos conseils....
bonne journ=E9e
C=E9line

10 réponses

Avatar
jps
bonjour céline
mon Maître m'avait fait mettre ceci dans la proc, avant le .Send, par ex

With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With

sur une seule ligne, oeuf corse
HTH
jps

"Céline" a écrit dans le message de news:

bonjour à toute l'équipe

je galère aujourd'hui devant le problème suivant

Pour éviter de passer par outlook, j'essaie d'envoyer un message
depuis mn vba en utilisant le code suivant :

Sub Send_A_Mail(Optional adresse_mail As String)

With CreateObject("CDO.Message")
.from = ""
.To = "moncollè"
.Subject = "Alerte modification BEM"
.Textbody = "fais gaffe"
.Send
End With

End Sub

Or, lorsque j'execute ce code j'obtiens un message d'erreur de type :
Erreur d'éxecution '-2147220960 (80040220)'
La valeur de configuration de SendUsing est non valide

Le plantage se fait sur .Send

Ai-je vraiment la cervelle dans le paté ce matin (genre oublié qqch)
ou il y a une bidouille à faire ?

Merci beaucoup de vos conseils....
bonne journée
Céline
Avatar
Céline
Bonjour jps
Merci de ton conseil ! !
Mais serait-ce à cause de l'origine de l'oeuf, il se trouve que mon
serveur aurait décidé de ne pas être disponible.
Je m'esplik :
j'ai bien introduit le code que tu m'as envoyé à ma procédure, juste
avant le .send
et l'erreur passe de 80040220 à 80040211 (Merci Excel pour ces
détails)
Je cite :
Le message n'a pas pu être envoyé vers le serveur smtp. Le code
d'erreur de transport éait 0x80070057. La réponse du serveur était
not available.

CQFD
N'ayant pas acheté le dictionnaire de traduction francais-serveur (mon
dico francais - corse n'a pas le mot 0x80070057) je m'en remets une
fois de plus à toi pour ces problèmes de communication...
:s
Merci beaucoup
Céline


bonjour céline
mon Maître m'avait fait mettre ceci dans la proc, avant le .Send, par ex

With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) =
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverp ort")
= 25
.Update
End With

sur une seule ligne, oeuf corse
HTH
jps

"Céline" a écrit dans le message de news:

bonjour à toute l'équipe

je galère aujourd'hui devant le problème suivant

Pour éviter de passer par outlook, j'essaie d'envoyer un message
depuis mn vba en utilisant le code suivant :

Sub Send_A_Mail(Optional adresse_mail As String)

With CreateObject("CDO.Message")
.from = ""
.To = "moncollè"
.Subject = "Alerte modification BEM"
.Textbody = "fais gaffe"
.Send
End With

End Sub

Or, lorsque j'execute ce code j'obtiens un message d'erreur de type :
Erreur d'éxecution '-2147220960 (80040220)'
La valeur de configuration de SendUsing est non valide

Le plantage se fait sur .Send

Ai-je vraiment la cervelle dans le paté ce matin (genre oublié qqch)
ou il y a une bidouille à faire ?

Merci beaucoup de vos conseils....
bonne journée
Céline


Avatar
michel
Bonjour Céline
Un exemple de code qui marche chez moi
Je lit le sujet l'objet et la piece jointe dans une feuille excel ainsi que
les destinataires coche dans une autre mais tu peux adapter

Sub mailing()
Dim Message As New CDO.Message
With Message
.Subject = Worksheets("message").Range("b2")
.TextBody = Worksheets("message").Shapes("Text Box
1").TextFrame.Characters.Text
.AddAttachment Worksheets("message").Range("b18").Value
End With
Worksheets("annuaire").Activate
For numLigne = 2 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Cells(numLigne, 4) <> "" Then

With Message
If .To = "" Then
.To = Cells(numLigne, 2)
Else
If .CC <> "" Then
.CC = .CC & ";" & Cells(numLigne, 2)
Else
.CC = Cells(numLigne, 2)
End If
End If

End With
End If


Next
Message.Send
Set Message = Nothing

End Sub


Esperant que ca t'aide--
Michel
"Céline" a écrit dans le message de news:

bonjour à toute l'équipe

je galère aujourd'hui devant le problème suivant

Pour éviter de passer par outlook, j'essaie d'envoyer un message
depuis mn vba en utilisant le code suivant :

Sub Send_A_Mail(Optional adresse_mail As String)

With CreateObject("CDO.Message")
.from = ""
.To = "moncollè"
.Subject = "Alerte modification BEM"
.Textbody = "fais gaffe"
.Send
End With

End Sub

Or, lorsque j'execute ce code j'obtiens un message d'erreur de type :
Erreur d'éxecution '-2147220960 (80040220)'
La valeur de configuration de SendUsing est non valide

Le plantage se fait sur .Send

Ai-je vraiment la cervelle dans le paté ce matin (genre oublié qqch)
ou il y a une bidouille à faire ?

Merci beaucoup de vos conseils....
bonne journée
Céline
Avatar
Céline
bonjour michel et merci pour m'avoir transféré ton code
Malheureusement, je pense que le problème restera le même que pour
moi vu que trancendentalement , tu as comme moi
un message avec :
un .To, .from etc etc...
Par contre le New CDO.message n'est pas accepté chez moi :
"type défini par l'utilisateur non défini"

et l'.addattachement ne marche pas chezmoi non plus :
"Le protocole spécifié 'est inconnu"...
Même si je le place après les .configgurations.field.item suggérés
par le maître de jps...

aarrg
Avatar
Céline
aurais-je donc oublié d'activer une librairie ?
ou une bibliothèque ?
Mais je ne connais pas comment ça marche...
De plus, je ne sais pas comment faire fonctionner ça sur un excel qui
ne tournera pas forcément sur mon pc....
:sss
Avatar
michel
Excuse moi j'ai oublie de preciser il faut une reference a Microsoft CDO for
Windows
Dans VBE, va dans Outils/References et coche la librairie correspondante
Je te promets chez moi ca fonctionne

--
--
Michel
"Céline" a écrit dans le message de news:

aurais-je donc oublié d'activer une librairie ?
ou une bibliothèque ?
Mais je ne connais pas comment ça marche...
De plus, je ne sais pas comment faire fonctionner ça sur un excel qui
ne tournera pas forcément sur mon pc....
:sss
Avatar
jps
as-tu jeté un oeil dans ta BAL, céline? surtout si on t'adresse gmail.com
est bonne
jps

"Céline" a écrit dans le message de news:

aurais-je donc oublié d'activer une librairie ?
ou une bibliothèque ?
Mais je ne connais pas comment ça marche...
De plus, je ne sais pas comment faire fonctionner ça sur un excel qui
ne tournera pas forcément sur mon pc....
:sss
Avatar
jps
hum....
"surtout si ton adresse gmail......"
y a rien à faire : je n'arrive pas à me débarrasser d'une timidité que je
traîne depuis que je suis môme ( que personne ne bronche, même pas le
pierreCFI)
jps

"jps" a écrit dans le message de news:

as-tu jeté un oeil dans ta BAL, céline? surtout si on t'adresse gmail.com
est bonne
jps

"Céline" a écrit dans le message de news:

aurais-je donc oublié d'activer une librairie ?
ou une bibliothèque ?
Mais je ne connais pas comment ça marche...
De plus, je ne sais pas comment faire fonctionner ça sur un excel qui
ne tournera pas forcément sur mon pc....
:sss



Avatar
Pierre CFI [mvp]
attends un peu, je réfléchis avant de poster sur le news
donc.... pas compris, un rapport avec le sexe ????

--
Pierre CFI
MVP Microsoft Access

"jps" a écrit dans le message de news: Ops%
hum....
"surtout si ton adresse gmail......"
y a rien à faire : je n'arrive pas à me débarrasser d'une timidité que je traîne depuis que je suis môme ( que personne ne
bronche, même pas le pierreCFI)
jps

"jps" a écrit dans le message de news:
as-tu jeté un oeil dans ta BAL, céline? surtout si on t'adresse gmail.com est bonne
jps

"Céline" a écrit dans le message de news:
aurais-je donc oublié d'activer une librairie ?
ou une bibliothèque ?
Mais je ne connais pas comment ça marche...
De plus, je ne sais pas comment faire fonctionner ça sur un excel qui
ne tournera pas forcément sur mon pc....
:sss






Avatar
Céline
réponse de l'intéressée :

ca va mon adresse gmail est bonne... 8-)

j'avais envoyé mon post avant de voir ton mail jps... (m'atandais pas
à tant de témérité!!!)

Merci beaucoup en tout cas !
(va envoyer des mails à l'infini... et surtout bien dormir cette
nuit...'finbref)

céline