envoi e-mail suite...

[C@thy]

Bonjour le forum,

petit rayon de soleil sur Paris ce matin, ça fait du bien!

Autre rayon de soleil de la journée : XLD

Suite à ma discussiojn sur ce fil :

https://www.excel-downloads.com/threads/vba-erreur-1004.128064/

on avait réussi avec pierre jean (coucou pierrejean) a envoyer des mails,
et voici que maintenant je bloque sur mes paramètres...
(adresse, objet et corps du message).

Quelqu'un pourrait-il m'aider sur ce point?

Un grand merci à vous.

Bises

C@thy

 

[pierrejean]

Re : envoi e-mail suite...

bonjour C@thy

dans mes archives j'ai retrouvé ceci
Vois si tu peux en tirer quelque chose sinon n'hesite pas a revenir en precisant ce que tu souhaites

 

[C@thy]

Re : envoi e-mail suite...

Coucou pierrejean,

oui, nous avons les mêmes archives...

eh bien c'est toujours mon problème de lien hypertexte
mais pourquoi donc veulent-ils absolument un lien hypertexte?
La vie serait plus simple si on pouvait leur imposer ce qu'on veut!!! ;-)

donc ce qu'il faut c'est voir pourquoi ma macro fabexpedie_Old ou fabexpedie ne fonctionne pas... et la corriger

Merciiiiiiiiiiii

Bises

C@thy

 

[pierrejean]

Re : envoi e-mail suite...

Re

Vois ceci:
j'ai travaillé sur fabexpédie() et EnvoiMail(....
Tu noteras que comme de coutume j'ai rapatrié les macros dans un module
Tu feras le menage dans Thisworkbook

 

[C@thy]

Re : envoi e-mail suite...

OK, merci PJ, je suis dessus, on s'approche de la solution.
Le cahier des charges a changé entre temps :

plus besoin de lien hypertexte (ouf!!!) mais par contre il faut insérer une image.

Tu sais comment on fait???

Bises

C@thy

 

[pierrejean]

Re : envoi e-mail suite...

RE

Inserer une image dans le corps du message ?

 

[C@thy]

Re : envoi e-mail suite...

yaisse

j'ai trouvé un lien : Ce lien n'existe plus

mais je n'arrive pas à avoir les infos précises du code VBA

 

[YANN-56]

Re : envoi e-mail suite...

Bonjour C@thy, Pierrejean et à ceux qui passeront par là.

Je n'utilise pas Outlook qui m'énerve à charger
des fichiers que je ne vais pas ouvrir!!!

J'ai fais un truc (Pas fini) Via la méthode "CDO"
Pour moi, c'est simple et efficace....

Si cela vous intéresse:

1) Mettre votre Propre Adresse Mail dans la ligne "AUTEUR" des propriétés du classeur.
2) Dans les Références VBA cocher "Microsoft CDO for windows 2000 library"

A noter qu'il faut attendre quelques secondes avant de fermer l'USF.
J'ai, pour simplifier, supprimé la visualisation des envois dans un WebBrowser.

Quant à la rédaction du corps du message, de sa mise en page
et du choix des "Fonts"; c'est encore en travaux

Voir Classeur joint.

Bonne fin de journée à vous

Yann

 

[C@thy]

Re : envoi e-mail suite...

Merci YANN-56

J'ai testé, mais mon cahier des charges est précis : je ne peux pas insérer un USF

C@thy

 

[YANN-56]

Re : envoi e-mail suite...

Re C@thy,

Je ne pige pas pourquoi un cahier des charges interdirait l'utilisation d'un USF !!!

De mon coté j'évite d'écrire sur une feuille (Lenteur)
Hormis, éventuellement celles qui servent de base de données.

1) Tu as testé: Cela a-t-il fonctionné chez toi?

2) Si oui, il est possible de ne se servir que d'un bouton sur la feuille,
ou pire d'activer l'action par un Double Click sur l'adresse.
Et ceci sans USF... (Je trouve quand même étrange cette interdiction)

Si tu vois un intérêt à la méthode "CDO" on peut poursuivre.

Amicalement

Yann

 

[pierrejean]

Re : envoi e-mail suite...

Re
As-tu fait un essai en manuel dans outlook par insertion ?
Si oui quel type d'image as-tu reussi a inserer (bmp,gif,jpg ...)

 

[YANN-56]

Re : envoi e-mail suite...

Bonsoir Pierrejean,

Je me permets juste de m'incérer un instant dans ton échange avec C@thy
pour savoir si tu as testé mon truc et s'il fonctionne chez toi.
Au besoin; s"il est intelligemment adaptable à la recherche de C@thy

A lire tes commentaires, et bonne fin de journée

Avec mes compliments pour les aides que tu apportes ici.

Yann

 

[pierrejean]

Re : envoi e-mail suite...

Re

A YANN-56

Oui j'ai testé et obtenu un resultat
A priori je devrais pouvoir l'adapter pour c@thy sous reserve qu'elle puisse connaitre l'adresse de son smtp
Mais nous verrons cela demain car certaines taches domestiques m'attendent

 

[YANN-56]

Re : envoi e-mail suite...

A Pierrejean,

En premier lieu: Bonne cuisine et Bon appétit

L'adresse smtp est systématiquement extirpée de
la propiété "AUTEUR" du classeur lors de l'ouverture du Classeur.
Dans celle-ci où elle a mis son Adresse. Après l'arobase, il y a son "Smtp"

Private Sub Workbook_Open()
'Copie de votre Adresse Mail dans la Propriété "Auteur" de votre Classeur

Dim AROBASE As Variant
AROBASE = "@" 'Pour récupérer sur la droite du TextBox1; le nom de votre serveur.

SERVEUR = "Smtp." & Right(ActiveWorkbook.Author, _
                 (Len(ActiveWorkbook.Author) _
                - InStrRev(ActiveWorkbook.Author, AROBASE, -1)))
End sub

Au lieu de copie de votre Adresse Mail, j'aurais du dire: "Extraction de votre Smtp" et préciser que "SERVEUR" est en variable "Public" de type "String"

Bonne fin de soirée à tous, et quant à vous, toi et C@thy;
à quand vous le voudrez

Yann

 

[pierrejean]

Re : envoi e-mail suite...

Re

Voici l'adaptation du code de YANN-56 (Merci a toi 🙂)
Le smtp est dans la macro fabexpedie et non plus récuperé dans l'auteur