Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Paramétrage SendMail

Paramétrage SendMail

20 réponses
Avatar
ThierryP
Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
michdenis
Bonjour ThierryP,

Tu vas trouver ton bonheur là :

http://www.rondebruin.nl/cdo.htm#Tips

En théorie, CDO est indépendant du service du service de messagerie que tu utilises.
Mais tu peux lui donner ton SMTP (small mail transfert protocol) que tu as définis dans ta connection au serveur.

Porte une attention particulière au ligne de code désactivé des exemples données.


Salutations!



"ThierryP" a écrit dans le message de news:
Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp
Avatar
ThierryP
Cà ! pour être heureux, je suis heureux !!

Merci mille fois pour ce lien !

@+ thierryp

Bonjour ThierryP,

Tu vas trouver ton bonheur là :

http://www.rondebruin.nl/cdo.htm#Tips

En théorie, CDO est indépendant du service du service de messagerie que tu utilises.
Mais tu peux lui donner ton SMTP (small mail transfert protocol) que tu as définis dans ta connection au serveur.

Porte une attention particulière au ligne de code désactivé des exemples données.


Salutations!



"ThierryP" a écrit dans le message de news:
Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp




Avatar
ThierryP
Re-bonjour michdenis !!

en fait je suis heureux mais pas tout à fait...Mon smtp demande un
utilisateur et un mot de passe, et là ça devient dur. J'ai fait un tour sur
http://www.paulsadowski.com/WSH/cdo.htm

et j'ai trouvé des infos complémentaires car mon smtp requiert un nom de
user et un mot de passe; j'ai essayé de tout bien faire comme ils disent
mais ça me dit : La valeur de configuration "SendUsing" est non valide,
ce qui m'attriste fort. Voilà le script que j'ai recopié :

Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.fr.oleane.com"

'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= cdoBasic

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"******"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"******"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

En fait, je ne vois pas bien ce que fait l'adresse http.... dans ce code
mais je ne vois pas bien non plus par quoi éventuellement le remplacer ??

Si un quidam hautement qualifié pouvait essayer de me dépatouiller, je
lui en serais hautement reconnaissant !! :-)))

Merci d'avance

thierryp


Bonjour ThierryP,

Tu vas trouver ton bonheur là :

http://www.rondebruin.nl/cdo.htm#Tips

En théorie, CDO est indépendant du service du service de messagerie que tu utilises.
Mais tu peux lui donner ton SMTP (small mail transfert protocol) que tu as définis dans ta connection au serveur.

Porte une attention particulière au ligne de code désactivé des exemples données.


Salutations!



"ThierryP" a écrit dans le message de news:
Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp




Avatar
michdenis
Bonjour ThierryP,

Pour utiliser CDO, tu dois déjà être connecté à internet.

Sur le site que je t 'ai donné + celui de Frédéric Sigonneau, il y a quelques procédures pour déterminer si l'ordi est en ligne ...
sur le site de Frédéric Sigonneau, il y a peut être une façon de lancer sa connection..

http://frederic.sigonneau.free.fr/


Salutations!


"ThierryP" a écrit dans le message de news:
Re-bonjour michdenis !!

en fait je suis heureux mais pas tout à fait...Mon smtp demande un
utilisateur et un mot de passe, et là ça devient dur. J'ai fait un tour sur
http://www.paulsadowski.com/WSH/cdo.htm

et j'ai trouvé des infos complémentaires car mon smtp requiert un nom de
user et un mot de passe; j'ai essayé de tout bien faire comme ils disent
mais ça me dit : La valeur de configuration "SendUsing" est non valide,
ce qui m'attriste fort. Voilà le script que j'ai recopié :

Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.fr.oleane.com"

'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= cdoBasic

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") "******"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") "******"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

En fait, je ne vois pas bien ce que fait l'adresse http.... dans ce code
mais je ne vois pas bien non plus par quoi éventuellement le remplacer ??

Si un quidam hautement qualifié pouvait essayer de me dépatouiller, je
lui en serais hautement reconnaissant !! :-)))

Merci d'avance

thierryp


Bonjour ThierryP,

Tu vas trouver ton bonheur là :

http://www.rondebruin.nl/cdo.htm#Tips

En théorie, CDO est indépendant du service du service de messagerie que tu utilises.
Mais tu peux lui donner ton SMTP (small mail transfert protocol) que tu as définis dans ta connection au serveur.

Porte une attention particulière au ligne de code désactivé des exemples données.


Salutations!



"ThierryP" a écrit dans le message de news:
Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp




Avatar
ThierryP
Bonjour Michdenis,

merci de continuer de t'intéresser à mon problème !!
En fait, au boulot je suis connecté via proxy et adsl en permanence;
d'ailleurs, les essais via .sendmail sont concluants; je serais
d'ailleurs resté avec sendmail, si je pouvais lui dire comment mettre
quelque chose dans le corps du message...Alors peut-être si tu as une
piste là-dessus

merci d'avance

thierryp

Bonjour ThierryP,

Pour utiliser CDO, tu dois déjà être connecté à internet.

Sur le site que je t 'ai donné + celui de Frédéric Sigonneau, il y a quelques procédures pour déterminer si l'ordi est en ligne ...
sur le site de Frédéric Sigonneau, il y a peut être une façon de lancer sa connection..

http://frederic.sigonneau.free.fr/


Salutations!


"ThierryP" a écrit dans le message de news:
Re-bonjour michdenis !!

en fait je suis heureux mais pas tout à fait...Mon smtp demande un
utilisateur et un mot de passe, et là ça devient dur. J'ai fait un tour sur
http://www.paulsadowski.com/WSH/cdo.htm

et j'ai trouvé des infos complémentaires car mon smtp requiert un nom de
user et un mot de passe; j'ai essayé de tout bien faire comme ils disent
mais ça me dit : La valeur de configuration "SendUsing" est non valide,
ce qui m'attriste fort. Voilà le script que j'ai recopié :

Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") > cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.fr.oleane.com"

'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= cdoBasic

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") > "******"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") > "******"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

En fait, je ne vois pas bien ce que fait l'adresse http.... dans ce code
mais je ne vois pas bien non plus par quoi éventuellement le remplacer ??

Si un quidam hautement qualifié pouvait essayer de me dépatouiller, je
lui en serais hautement reconnaissant !! :-)))

Merci d'avance

thierryp



Bonjour ThierryP,

Tu vas trouver ton bonheur là :

http://www.rondebruin.nl/cdo.htm#Tips

En théorie, CDO est indépendant du service du service de messagerie que tu utilises.
Mais tu peux lui donner ton SMTP (small mail transfert protocol) que tu as définis dans ta connection au serveur.

Porte une attention particulière au ligne de code désactivé des exemples données.


Salutations!



"ThierryP" a écrit dans le message de news:
Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp









Avatar
ThierryP
au fait, je suis déjà allé sur le site de frederic, et j'ai testé sa
proc, mais 1) elle impose outlook express et c'est ce que je veux éviter
(perso j'utilise thunderbird,...comme beaucoup !) et 2) elle fonctionne
mais la fonction sendkeys ne fonctionne pas vraiment (ouvre la fenêtre,
mais ne joint pas le fichier et ne l'envoie pas automatiquement).

@+ thierryp

Bonjour ThierryP,

Pour utiliser CDO, tu dois déjà être connecté à internet.

Sur le site que je t 'ai donné + celui de Frédéric Sigonneau, il y a quelques procédures pour déterminer si l'ordi est en ligne ...
sur le site de Frédéric Sigonneau, il y a peut être une façon de lancer sa connection..

http://frederic.sigonneau.free.fr/


Salutations!


"ThierryP" a écrit dans le message de news:
Re-bonjour michdenis !!

en fait je suis heureux mais pas tout à fait...Mon smtp demande un
utilisateur et un mot de passe, et là ça devient dur. J'ai fait un tour sur
http://www.paulsadowski.com/WSH/cdo.htm

et j'ai trouvé des infos complémentaires car mon smtp requiert un nom de
user et un mot de passe; j'ai essayé de tout bien faire comme ils disent
mais ça me dit : La valeur de configuration "SendUsing" est non valide,
ce qui m'attriste fort. Voilà le script que j'ai recopié :

Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") > cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.fr.oleane.com"

'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= cdoBasic

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") > "******"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") > "******"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

En fait, je ne vois pas bien ce que fait l'adresse http.... dans ce code
mais je ne vois pas bien non plus par quoi éventuellement le remplacer ??

Si un quidam hautement qualifié pouvait essayer de me dépatouiller, je
lui en serais hautement reconnaissant !! :-)))

Merci d'avance

thierryp



Bonjour ThierryP,

Tu vas trouver ton bonheur là :

http://www.rondebruin.nl/cdo.htm#Tips

En théorie, CDO est indépendant du service du service de messagerie que tu utilises.
Mais tu peux lui donner ton SMTP (small mail transfert protocol) que tu as définis dans ta connection au serveur.

Porte une attention particulière au ligne de code désactivé des exemples données.


Salutations!



"ThierryP" a écrit dans le message de news:
Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp









Avatar
jps
ouais, thierry, le sendkeys, quand ça va trop vite, il se mélange un peu les
pinceuax ; il faudrait temporiser le toutim si tu sais faire..
jps

"ThierryP" a écrit dans le message de
news:u$
au fait, je suis déjà allé sur le site de frederic, et j'ai testé sa
proc, mais 1) elle impose outlook express et c'est ce que je veux éviter
(perso j'utilise thunderbird,...comme beaucoup !) et 2) elle fonctionne
mais la fonction sendkeys ne fonctionne pas vraiment (ouvre la fenêtre,
mais ne joint pas le fichier et ne l'envoie pas automatiquement).

@+ thierryp

Bonjour ThierryP,

Pour utiliser CDO, tu dois déjà être connecté à internet.

Sur le site que je t 'ai donné + celui de Frédéric Sigonneau, il y a
quelques procédures pour déterminer si l'ordi est en ligne ...


sur le site de Frédéric Sigonneau, il y a peut être une façon de lancer
sa connection..



http://frederic.sigonneau.free.fr/


Salutations!


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


Re-bonjour michdenis !!

en fait je suis heureux mais pas tout à fait...Mon smtp demande un
utilisateur et un mot de passe, et là ça devient dur. J'ai fait un tour
sur


http://www.paulsadowski.com/WSH/cdo.htm

et j'ai trouvé des infos complémentaires car mon smtp requiert un nom de
user et un mot de passe; j'ai essayé de tout bien faire comme ils disent
mais ça me dit : La valeur de configuration "SendUsing" est non valide,
ce qui m'attriste fort. Voilà le script que j'ai recopié :

Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") > > cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.fr.oleane.com"


'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")


= cdoBasic

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") > > "******"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") > > "******"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") 25
.Update
End With

En fait, je ne vois pas bien ce que fait l'adresse http.... dans ce code
mais je ne vois pas bien non plus par quoi éventuellement le remplacer
??



Si un quidam hautement qualifié pouvait essayer de me dépatouiller, je
lui en serais hautement reconnaissant !! :-)))

Merci d'avance

thierryp



Bonjour ThierryP,

Tu vas trouver ton bonheur là :

http://www.rondebruin.nl/cdo.htm#Tips

En théorie, CDO est indépendant du service du service de messagerie que
tu utilises.



Mais tu peux lui donner ton SMTP (small mail transfert protocol) que tu
as définis dans ta connection au serveur.




Porte une attention particulière au ligne de code désactivé des exemples
données.





Salutations!



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



Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp











Avatar
ThierryP
merci jps

tant qu'à faire de m'agiter les quelques neurones qui me restent, je
vais essayer de creuser CDO, qui est plus comple(xe)t !! que sendmail
mais ça va être chaud !!
a propos de mélanger......pinceaux :-))))))))))))
thierryp

ouais, thierry, le sendkeys, quand ça va trop vite, il se mélange un peu les
pinceuax ; il faudrait temporiser le toutim si tu sais faire..
jps

"ThierryP" a écrit dans le message de
news:u$

au fait, je suis déjà allé sur le site de frederic, et j'ai testé sa
proc, mais 1) elle impose outlook express et c'est ce que je veux éviter
(perso j'utilise thunderbird,...comme beaucoup !) et 2) elle fonctionne
mais la fonction sendkeys ne fonctionne pas vraiment (ouvre la fenêtre,
mais ne joint pas le fichier et ne l'envoie pas automatiquement).

@+ thierryp


Bonjour ThierryP,

Pour utiliser CDO, tu dois déjà être connecté à internet.

Sur le site que je t 'ai donné + celui de Frédéric Sigonneau, il y a



quelques procédures pour déterminer si l'ordi est en ligne ...

sur le site de Frédéric Sigonneau, il y a peut être une façon de lancer



sa connection..

http://frederic.sigonneau.free.fr/


Salutations!


"ThierryP" a écrit dans le message



de news:

Re-bonjour michdenis !!

en fait je suis heureux mais pas tout à fait...Mon smtp demande un
utilisateur et un mot de passe, et là ça devient dur. J'ai fait un tour



sur

http://www.paulsadowski.com/WSH/cdo.htm

et j'ai trouvé des infos complémentaires car mon smtp requiert un nom de
user et un mot de passe; j'ai essayé de tout bien faire comme ils disent
mais ça me dit : La valeur de configuration "SendUsing" est non valide,
ce qui m'attriste fort. Voilà le script que j'ai recopié :

Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") >>>cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.fr.oleane.com"





'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")

= cdoBasic

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") >>>"******"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") >>>"******"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") >
25



.Update
End With

En fait, je ne vois pas bien ce que fait l'adresse http.... dans ce code
mais je ne vois pas bien non plus par quoi éventuellement le remplacer



??

Si un quidam hautement qualifié pouvait essayer de me dépatouiller, je
lui en serais hautement reconnaissant !! :-)))

Merci d'avance

thierryp




Bonjour ThierryP,

Tu vas trouver ton bonheur là :

http://www.rondebruin.nl/cdo.htm#Tips

En théorie, CDO est indépendant du service du service de messagerie que




tu utilises.

Mais tu peux lui donner ton SMTP (small mail transfert protocol) que tu




as définis dans ta connection au serveur.

Porte une attention particulière au ligne de code désactivé des exemples




données.


Salutations!



"ThierryP" a écrit dans le message




de news:

Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp














Avatar
michdenis
Bonjour Thierry,

Tu veux bien publier la procédure de Frédéric Sigonneau que tu as retenue.


P.S. Je n'ai pas vraiment ton environnement pour tester toutes ces procédures. Mais les procédures CDO du site internet fonctionne
sans aucun problème chez moi. Évidemment, je ne suis pas en réseau avec un proxy ! De mémoire, CDO fonctionne bien avec Windows xp
et Windows pro 2000.


Salutations!




"jps" a écrit dans le message de news: %
ouais, thierry, le sendkeys, quand ça va trop vite, il se mélange un peu les
pinceuax ; il faudrait temporiser le toutim si tu sais faire..
jps

"ThierryP" a écrit dans le message de
news:u$
au fait, je suis déjà allé sur le site de frederic, et j'ai testé sa
proc, mais 1) elle impose outlook express et c'est ce que je veux éviter
(perso j'utilise thunderbird,...comme beaucoup !) et 2) elle fonctionne
mais la fonction sendkeys ne fonctionne pas vraiment (ouvre la fenêtre,
mais ne joint pas le fichier et ne l'envoie pas automatiquement).

@+ thierryp

Bonjour ThierryP,

Pour utiliser CDO, tu dois déjà être connecté à internet.

Sur le site que je t 'ai donné + celui de Frédéric Sigonneau, il y a
quelques procédures pour déterminer si l'ordi est en ligne ...


sur le site de Frédéric Sigonneau, il y a peut être une façon de lancer
sa connection..



http://frederic.sigonneau.free.fr/


Salutations!


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


Re-bonjour michdenis !!

en fait je suis heureux mais pas tout à fait...Mon smtp demande un
utilisateur et un mot de passe, et là ça devient dur. J'ai fait un tour
sur


http://www.paulsadowski.com/WSH/cdo.htm

et j'ai trouvé des infos complémentaires car mon smtp requiert un nom de
user et un mot de passe; j'ai essayé de tout bien faire comme ils disent
mais ça me dit : La valeur de configuration "SendUsing" est non valide,
ce qui m'attriste fort. Voilà le script que j'ai recopié :

Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") > > cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.fr.oleane.com"


'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")


= cdoBasic

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") > > "******"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") > > "******"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") 25
.Update
End With

En fait, je ne vois pas bien ce que fait l'adresse http.... dans ce code
mais je ne vois pas bien non plus par quoi éventuellement le remplacer
??



Si un quidam hautement qualifié pouvait essayer de me dépatouiller, je
lui en serais hautement reconnaissant !! :-)))

Merci d'avance

thierryp



Bonjour ThierryP,

Tu vas trouver ton bonheur là :

http://www.rondebruin.nl/cdo.htm#Tips

En théorie, CDO est indépendant du service du service de messagerie que
tu utilises.



Mais tu peux lui donner ton SMTP (small mail transfert protocol) que tu
as définis dans ta connection au serveur.




Porte une attention particulière au ligne de code désactivé des exemples
données.





Salutations!



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



Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp











Avatar
ThierryP
Rebonjour michdenis

Ci-dessous proc essayée. Voir réponse à jps dans la ficelle concernant
ce qui ne me convient pas...
Concernant cdo, je pense que mon souci vient du fait que mon smtp
nécessite un user et un password mais je n'en suis pas vraiment sûr
(loin d'être un pro !!)
En tous cas merci de continuer de t'intéresser à mon sort !!
thierryp

'modifié par Eric Humeau, mpfe
'pour envoyer aussi un classeur en pièce jointe
Sub MailOXpress2()
Dim dest$, sujet$, texte$

Dim Rep
Application.ScreenUpdating = False

'Rep est le nom de ton fichier à joindre.
Rep = "c:test1.xls"
dest = ""
sujet = "Envoyer un mail depuis Xl"
texte = "Envoyé avec Outlook Express depuis Excel"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & ", 3", vbMaximizedFocus

'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep,
valider puis
'envoyer.
SendKeys "%I" & "p" & Rep & "~" & "%s"
End Sub

Bonjour Thierry,

Tu veux bien publier la procédure de Frédéric Sigonneau que tu as retenue.


P.S. Je n'ai pas vraiment ton environnement pour tester toutes ces procédures. Mais les procédures CDO du site internet fonctionne
sans aucun problème chez moi. Évidemment, je ne suis pas en réseau avec un proxy ! De mémoire, CDO fonctionne bien avec Windows xp
et Windows pro 2000.


Salutations!




"jps" a écrit dans le message de news: %
ouais, thierry, le sendkeys, quand ça va trop vite, il se mélange un peu les
pinceuax ; il faudrait temporiser le toutim si tu sais faire..
jps

"ThierryP" a écrit dans le message de
news:u$

au fait, je suis déjà allé sur le site de frederic, et j'ai testé sa
proc, mais 1) elle impose outlook express et c'est ce que je veux éviter
(perso j'utilise thunderbird,...comme beaucoup !) et 2) elle fonctionne
mais la fonction sendkeys ne fonctionne pas vraiment (ouvre la fenêtre,
mais ne joint pas le fichier et ne l'envoie pas automatiquement).

@+ thierryp


Bonjour ThierryP,

Pour utiliser CDO, tu dois déjà être connecté à internet.

Sur le site que je t 'ai donné + celui de Frédéric Sigonneau, il y a



quelques procédures pour déterminer si l'ordi est en ligne ...

sur le site de Frédéric Sigonneau, il y a peut être une façon de lancer



sa connection..

http://frederic.sigonneau.free.fr/


Salutations!


"ThierryP" a écrit dans le message



de news:

Re-bonjour michdenis !!

en fait je suis heureux mais pas tout à fait...Mon smtp demande un
utilisateur et un mot de passe, et là ça devient dur. J'ai fait un tour



sur

http://www.paulsadowski.com/WSH/cdo.htm

et j'ai trouvé des infos complémentaires car mon smtp requiert un nom de
user et un mot de passe; j'ai essayé de tout bien faire comme ils disent
mais ça me dit : La valeur de configuration "SendUsing" est non valide,
ce qui m'attriste fort. Voilà le script que j'ai recopié :

Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") >>>cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.fr.oleane.com"





'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")

= cdoBasic

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") >>>"******"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") >>>"******"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") >
25



.Update
End With

En fait, je ne vois pas bien ce que fait l'adresse http.... dans ce code
mais je ne vois pas bien non plus par quoi éventuellement le remplacer



??

Si un quidam hautement qualifié pouvait essayer de me dépatouiller, je
lui en serais hautement reconnaissant !! :-)))

Merci d'avance

thierryp




Bonjour ThierryP,

Tu vas trouver ton bonheur là :

http://www.rondebruin.nl/cdo.htm#Tips

En théorie, CDO est indépendant du service du service de messagerie que




tu utilises.

Mais tu peux lui donner ton SMTP (small mail transfert protocol) que tu




as définis dans ta connection au serveur.

Porte une attention particulière au ligne de code désactivé des exemples




données.


Salutations!



"ThierryP" a écrit dans le message




de news:

Bonjour tout le monde

Je souhaite envoyer une page d'un classeur via SendMail. J'ai pu
remettre la main sur une proc de l'excellent Laurent Longre, y a eu une
ficelle début août la-dessus. Mais je voudrais savoir si cette proc
trouve toute seule quel est le client de messagerie par défaut et sinon,
comment lui dire quel est ce client. Ci-dessous, début de la proc de LL:

With CreateObject("CDO.Message") .

Merci d'avance pour vos réponses aussi pertinentes qu'éclairées :-))))

thierryp















1 2