le prog fonctionne chez moi mais pas chez l'autre personne qui est en XL
2003.
il plante sur .send et donne le message: "la valeur de configuration
"SendUsing" est non valide
Qq un a une idée du pourquoi il plante et comment y faire pour que cela
marche ?
Merci
....code.....
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
ActiveSheet.Shapes("TexteClient").Select
Txt = Selection.Characters.Text
ActiveSheet.Shapes("averti256").Select
Txt2 = Selection.Characters.Text
strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p
strbody = strbody & Chr(13) & Txt2
With iMsg
Set .Configuration = iConf
.To = Destinataire ' "p.mac@skynet.be" ' fausse adresse
.cc = ""
.BCC = Invisible ' pour une trace de l'envoi
.From = """les divins dessous"" <les@versateladsl.be>" ' bidon !!!
.Subject = ObjetMail
.TextBody = strbody
'.addAttachment Debut & Scan
'.addAttachment Debut & Tarif
.Send ' ICI PLANTAGE et MESSAGE !!!
'Scan = "scan_": Texte = "texte_": Tarif = "tarif_"
End With
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
Pierre Fauconnier
Salut Patrick,
Je t'ai un peu oublié. Ta demande est toujours d'application?
Cela étant, pour ton problème, es-tu certain que tes attachements sont présents sur l'ordi qui plante?
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"...Patrick" a écrit dans le message de news: eo8TxN$
Bonsoir,
le prog fonctionne chez moi mais pas chez l'autre personne qui est en XL 2003. il plante sur .send et donne le message: "la valeur de configuration "SendUsing" est non valide Qq un a une idée du pourquoi il plante et comment y faire pour que cela marche ?
Merci
....code.....
Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") ActiveSheet.Shapes("TexteClient").Select Txt = Selection.Characters.Text ActiveSheet.Shapes("averti256").Select Txt2 = Selection.Characters.Text strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p strbody = strbody & Chr(13) & Txt2
With iMsg Set .Configuration = iConf .To = Destinataire ' "" ' fausse adresse .cc = "" .BCC = Invisible ' pour une trace de l'envoi .From = """les divins dessous"" " ' bidon !!! .Subject = ObjetMail .TextBody = strbody '.addAttachment Debut & Scan '.addAttachment Debut & Tarif .Send ' ICI PLANTAGE et MESSAGE !!! 'Scan = "scan_": Texte = "texte_": Tarif = "tarif_" End With
.... suite
Salut Patrick,
Je t'ai un peu oublié. Ta demande est toujours d'application?
Cela étant, pour ton problème, es-tu certain que tes attachements sont
présents sur l'ordi qui plante?
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de news:
eo8TxN$jGHA.4716@TK2MSFTNGP03.phx.gbl...
Bonsoir,
le prog fonctionne chez moi mais pas chez l'autre personne qui est en XL
2003.
il plante sur .send et donne le message: "la valeur de configuration
"SendUsing" est non valide
Qq un a une idée du pourquoi il plante et comment y faire pour que cela
marche ?
Merci
....code.....
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
ActiveSheet.Shapes("TexteClient").Select
Txt = Selection.Characters.Text
ActiveSheet.Shapes("averti256").Select
Txt2 = Selection.Characters.Text
strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p
strbody = strbody & Chr(13) & Txt2
With iMsg
Set .Configuration = iConf
.To = Destinataire ' "p.mac@skynet.be" ' fausse adresse
.cc = ""
.BCC = Invisible ' pour une trace de l'envoi
.From = """les divins dessous"" <les@versateladsl.be>" ' bidon !!!
.Subject = ObjetMail
.TextBody = strbody
'.addAttachment Debut & Scan
'.addAttachment Debut & Tarif
.Send ' ICI PLANTAGE et MESSAGE !!!
'Scan = "scan_": Texte = "texte_": Tarif = "tarif_"
End With
Je t'ai un peu oublié. Ta demande est toujours d'application?
Cela étant, pour ton problème, es-tu certain que tes attachements sont présents sur l'ordi qui plante?
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"...Patrick" a écrit dans le message de news: eo8TxN$
Bonsoir,
le prog fonctionne chez moi mais pas chez l'autre personne qui est en XL 2003. il plante sur .send et donne le message: "la valeur de configuration "SendUsing" est non valide Qq un a une idée du pourquoi il plante et comment y faire pour que cela marche ?
Merci
....code.....
Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") ActiveSheet.Shapes("TexteClient").Select Txt = Selection.Characters.Text ActiveSheet.Shapes("averti256").Select Txt2 = Selection.Characters.Text strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p strbody = strbody & Chr(13) & Txt2
With iMsg Set .Configuration = iConf .To = Destinataire ' "" ' fausse adresse .cc = "" .BCC = Invisible ' pour une trace de l'envoi .From = """les divins dessous"" " ' bidon !!! .Subject = ObjetMail .TextBody = strbody '.addAttachment Debut & Scan '.addAttachment Debut & Tarif .Send ' ICI PLANTAGE et MESSAGE !!! 'Scan = "scan_": Texte = "texte_": Tarif = "tarif_" End With
.... suite
...Patrick
Merci de me répondre cher compatriote ... oui la demande est toujours valable ( pour notre courrier en privé bien sur) , regarde quand tu as le temps. quant à ceci,il n'y a pas d'attachements, juste du texte venant d'un objet rectangle de la feuille excel. Je peux t'envoyer si tu veux y voir clair... Merci Pierre Pat
"Pierre Fauconnier" a écrit dans le message de news: %23BCo6Y$
Salut Patrick,
Je t'ai un peu oublié. Ta demande est toujours d'application?
Cela étant, pour ton problème, es-tu certain que tes attachements sont présents sur l'ordi qui plante?
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"...Patrick" a écrit dans le message de news: eo8TxN$
Bonsoir,
le prog fonctionne chez moi mais pas chez l'autre personne qui est en XL 2003. il plante sur .send et donne le message: "la valeur de configuration "SendUsing" est non valide Qq un a une idée du pourquoi il plante et comment y faire pour que cela marche ?
Merci
....code.....
Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") ActiveSheet.Shapes("TexteClient").Select Txt = Selection.Characters.Text ActiveSheet.Shapes("averti256").Select Txt2 = Selection.Characters.Text strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p strbody = strbody & Chr(13) & Txt2
With iMsg Set .Configuration = iConf .To = Destinataire ' "" ' fausse adresse .cc = "" .BCC = Invisible ' pour une trace de l'envoi .From = """les divins dessous"" " ' bidon !!! .Subject = ObjetMail .TextBody = strbody '.addAttachment Debut & Scan '.addAttachment Debut & Tarif .Send ' ICI PLANTAGE et MESSAGE !!! 'Scan = "scan_": Texte = "texte_": Tarif = "tarif_" End With
.... suite
Merci de me répondre cher compatriote ...
oui la demande est toujours valable ( pour notre courrier en privé bien sur)
, regarde quand tu as le temps.
quant à ceci,il n'y a pas d'attachements, juste du texte venant d'un objet
rectangle de la feuille excel.
Je peux t'envoyer si tu veux y voir clair...
Merci Pierre
Pat
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %23BCo6Y$jGHA.2200@TK2MSFTNGP05.phx.gbl...
Salut Patrick,
Je t'ai un peu oublié. Ta demande est toujours d'application?
Cela étant, pour ton problème, es-tu certain que tes attachements sont
présents sur l'ordi qui plante?
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: eo8TxN$jGHA.4716@TK2MSFTNGP03.phx.gbl...
Bonsoir,
le prog fonctionne chez moi mais pas chez l'autre personne qui est en XL
2003.
il plante sur .send et donne le message: "la valeur de configuration
"SendUsing" est non valide
Qq un a une idée du pourquoi il plante et comment y faire pour que cela
marche ?
Merci
....code.....
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
ActiveSheet.Shapes("TexteClient").Select
Txt = Selection.Characters.Text
ActiveSheet.Shapes("averti256").Select
Txt2 = Selection.Characters.Text
strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p
strbody = strbody & Chr(13) & Txt2
With iMsg
Set .Configuration = iConf
.To = Destinataire ' "p.mac@skynet.be" ' fausse adresse
.cc = ""
.BCC = Invisible ' pour une trace de l'envoi
.From = """les divins dessous"" <les@versateladsl.be>" ' bidon !!!
.Subject = ObjetMail
.TextBody = strbody
'.addAttachment Debut & Scan
'.addAttachment Debut & Tarif
.Send ' ICI PLANTAGE et MESSAGE !!!
'Scan = "scan_": Texte = "texte_": Tarif = "tarif_"
End With
Merci de me répondre cher compatriote ... oui la demande est toujours valable ( pour notre courrier en privé bien sur) , regarde quand tu as le temps. quant à ceci,il n'y a pas d'attachements, juste du texte venant d'un objet rectangle de la feuille excel. Je peux t'envoyer si tu veux y voir clair... Merci Pierre Pat
"Pierre Fauconnier" a écrit dans le message de news: %23BCo6Y$
Salut Patrick,
Je t'ai un peu oublié. Ta demande est toujours d'application?
Cela étant, pour ton problème, es-tu certain que tes attachements sont présents sur l'ordi qui plante?
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"...Patrick" a écrit dans le message de news: eo8TxN$
Bonsoir,
le prog fonctionne chez moi mais pas chez l'autre personne qui est en XL 2003. il plante sur .send et donne le message: "la valeur de configuration "SendUsing" est non valide Qq un a une idée du pourquoi il plante et comment y faire pour que cela marche ?
Merci
....code.....
Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") ActiveSheet.Shapes("TexteClient").Select Txt = Selection.Characters.Text ActiveSheet.Shapes("averti256").Select Txt2 = Selection.Characters.Text strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p strbody = strbody & Chr(13) & Txt2
With iMsg Set .Configuration = iConf .To = Destinataire ' "" ' fausse adresse .cc = "" .BCC = Invisible ' pour une trace de l'envoi .From = """les divins dessous"" " ' bidon !!! .Subject = ObjetMail .TextBody = strbody '.addAttachment Debut & Scan '.addAttachment Debut & Tarif .Send ' ICI PLANTAGE et MESSAGE !!! 'Scan = "scan_": Texte = "texte_": Tarif = "tarif_" End With
.... suite
Pierre Fauconnier
Ok. Envoie. Je regarderai en rentrant tout à l'heure
Bonne soirée
Pierre "...Patrick" a écrit dans le message de news:
Merci de me répondre cher compatriote ... oui la demande est toujours valable ( pour notre courrier en privé bien sur) , regarde quand tu as le temps. quant à ceci,il n'y a pas d'attachements, juste du texte venant d'un objet rectangle de la feuille excel. Je peux t'envoyer si tu veux y voir clair... Merci Pierre Pat
"Pierre Fauconnier" a écrit dans le message de news: %23BCo6Y$
Salut Patrick,
Je t'ai un peu oublié. Ta demande est toujours d'application?
Cela étant, pour ton problème, es-tu certain que tes attachements sont présents sur l'ordi qui plante?
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"...Patrick" a écrit dans le message de news: eo8TxN$
Bonsoir,
le prog fonctionne chez moi mais pas chez l'autre personne qui est en XL 2003. il plante sur .send et donne le message: "la valeur de configuration "SendUsing" est non valide Qq un a une idée du pourquoi il plante et comment y faire pour que cela marche ?
Merci
....code.....
Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") ActiveSheet.Shapes("TexteClient").Select Txt = Selection.Characters.Text ActiveSheet.Shapes("averti256").Select Txt2 = Selection.Characters.Text strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p strbody = strbody & Chr(13) & Txt2
With iMsg Set .Configuration = iConf .To = Destinataire ' "" ' fausse adresse .cc = "" .BCC = Invisible ' pour une trace de l'envoi .From = """les divins dessous"" " ' bidon !!! .Subject = ObjetMail .TextBody = strbody '.addAttachment Debut & Scan '.addAttachment Debut & Tarif .Send ' ICI PLANTAGE et MESSAGE !!! 'Scan = "scan_": Texte = "texte_": Tarif = "tarif_" End With
.... suite
Ok. Envoie. Je regarderai en rentrant tout à l'heure
Bonne soirée
Pierre
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de news:
uewbQjIkGHA.4044@TK2MSFTNGP03.phx.gbl...
Merci de me répondre cher compatriote ...
oui la demande est toujours valable ( pour notre courrier en privé bien
sur) , regarde quand tu as le temps.
quant à ceci,il n'y a pas d'attachements, juste du texte venant d'un objet
rectangle de la feuille excel.
Je peux t'envoyer si tu veux y voir clair...
Merci Pierre
Pat
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %23BCo6Y$jGHA.2200@TK2MSFTNGP05.phx.gbl...
Salut Patrick,
Je t'ai un peu oublié. Ta demande est toujours d'application?
Cela étant, pour ton problème, es-tu certain que tes attachements sont
présents sur l'ordi qui plante?
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: eo8TxN$jGHA.4716@TK2MSFTNGP03.phx.gbl...
Bonsoir,
le prog fonctionne chez moi mais pas chez l'autre personne qui est en XL
2003.
il plante sur .send et donne le message: "la valeur de configuration
"SendUsing" est non valide
Qq un a une idée du pourquoi il plante et comment y faire pour que cela
marche ?
Merci
....code.....
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
ActiveSheet.Shapes("TexteClient").Select
Txt = Selection.Characters.Text
ActiveSheet.Shapes("averti256").Select
Txt2 = Selection.Characters.Text
strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p
strbody = strbody & Chr(13) & Txt2
With iMsg
Set .Configuration = iConf
.To = Destinataire ' "p.mac@skynet.be" ' fausse adresse
.cc = ""
.BCC = Invisible ' pour une trace de l'envoi
.From = """les divins dessous"" <les@versateladsl.be>" ' bidon !!!
.Subject = ObjetMail
.TextBody = strbody
'.addAttachment Debut & Scan
'.addAttachment Debut & Tarif
.Send ' ICI PLANTAGE et MESSAGE !!!
'Scan = "scan_": Texte = "texte_": Tarif = "tarif_"
End With
Ok. Envoie. Je regarderai en rentrant tout à l'heure
Bonne soirée
Pierre "...Patrick" a écrit dans le message de news:
Merci de me répondre cher compatriote ... oui la demande est toujours valable ( pour notre courrier en privé bien sur) , regarde quand tu as le temps. quant à ceci,il n'y a pas d'attachements, juste du texte venant d'un objet rectangle de la feuille excel. Je peux t'envoyer si tu veux y voir clair... Merci Pierre Pat
"Pierre Fauconnier" a écrit dans le message de news: %23BCo6Y$
Salut Patrick,
Je t'ai un peu oublié. Ta demande est toujours d'application?
Cela étant, pour ton problème, es-tu certain que tes attachements sont présents sur l'ordi qui plante?
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"...Patrick" a écrit dans le message de news: eo8TxN$
Bonsoir,
le prog fonctionne chez moi mais pas chez l'autre personne qui est en XL 2003. il plante sur .send et donne le message: "la valeur de configuration "SendUsing" est non valide Qq un a une idée du pourquoi il plante et comment y faire pour que cela marche ?
Merci
....code.....
Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") ActiveSheet.Shapes("TexteClient").Select Txt = Selection.Characters.Text ActiveSheet.Shapes("averti256").Select Txt2 = Selection.Characters.Text strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p strbody = strbody & Chr(13) & Txt2
With iMsg Set .Configuration = iConf .To = Destinataire ' "" ' fausse adresse .cc = "" .BCC = Invisible ' pour une trace de l'envoi .From = """les divins dessous"" " ' bidon !!! .Subject = ObjetMail .TextBody = strbody '.addAttachment Debut & Scan '.addAttachment Debut & Tarif .Send ' ICI PLANTAGE et MESSAGE !!! 'Scan = "scan_": Texte = "texte_": Tarif = "tarif_" End With
