XL 2021 Inclure dans mail une image déjà dans le fichier .xlm

[nano33320]

Bonjour

Développeur néophyte, dans le cadre de l’association sportive amateur à laquelle je contribue, je développe un outil local de gestion des adhérents y.c. la gestion des licences en lien avec la base de la fédération nationale (d'où connexion internet au site de la Fédé mais c'est un autre sujet...).

Avec cet outil, je prévois d’envoyer des mailing à des groupes d'adhérents en fonction de leurs activités.
Dans la signature, j'aimerais intégrer le logo de l'asso.
J'y arrive avec un "image.jpg" situé sur la même arborescence que l'outil.
Pour simplifier l'usage sur plusieurs postes, je souhaiterais intégrer une image déjà présente dans le "fichier.xlm"

le code que j'utilise est dans .HTMLBody :

"<IMG src=""D:\Documents\EPTs.jpg"">"

où "ETPs.jpg" est dans le même dossier que "fichier.xlm"

Ce que je n'arrive pas à faire c'est copier l'image "EPTs.jpg" qui est sur une feuille du classeur pour l'insérer dans le mail.
j'ai déclaré une image :

DIM image As Variant (ou Objet même non résultat)

utilisé ce code

ActiveSheet.Shapes.Range(Array("EPTs.jpg")).Select
Selection.Copy
image = ActiveSheet.Shapes.Range(Array("EPTs.jpg")).Select

avec dans .HTMLBody

"<img src=""cid:EPTs.jpg"">"

et là, j'ai l'emplacement de l'image mais pas l'image...

alors qu'avec le code utilisant l'image externe, j'ai bien le logo dans le mail...

Merci de votre aide
Nano

 

[fanch55]

Bonjour,

Vous ne dites pas quel est le logiciel de messagerie ni comment vous construisez le mail .

A défaut de classeur exemple, celui qui est joint met en œuvre outlook .
Cliquez sur la barre "envoyer" .

Nota, un fichier développé avec excel 2016 et comportant des macros devrait se terminer pas .xlsm et non pas .xlm qui est obsolète depuis excel 2007 ( bien qu'il puisse toujours être ouvert en mode compatibilité avec perte possible de fonctionnalité ... )

 

[nano33320]

Bonsoir Fanch55

et grand merci pour votre aide.
Pour essayer de comprendre, je vais regarder ça à tête reposée

mes piètres compétences Excel vont être sérieusement mises à contribution...
Je vous fais un retour dès que possible

la version Excel utilisée est Excel 2021
la version Outlook est aussi 2021
l'extension est bien xlsm (erreur de frappe)
Bonne soirée et bon WE

 

[nano33320]

Bonjour,

Ben...
Comme je le craignais, je n'ai pas tout compris

Le fichier "nano.xlsm" fonctionne parfaitement

Ci-joint un fichier où les 2 macros d'envoi courriel sont incluses.

• sur la 1ière macro, ma version modifiée pour essayer d'intégrer votre méthode => résultat "échec", j'ai toujours l'espace au lieux de l'image
• sur la 2ième macro, votre version que je n'arrive pas à intégrer dans mon fichier => je n'ai pas compris la subtilité/les éléments du code...

 

[fanch55]

Si vous désirez mettre une signature personnalisé dans Outlook,
pourquoi ne pas la créer directement et l'enregistrer dans Outlook ?

 

[nano33320]

Très bonne question
L'idée est bonne pour un seul poste, mais ce fichier est sur un cloud dédié pour être utilisé par plusieurs personnes habilitée du "bureau" et, dans ce cadre m'obligerait à faire l'installation pour chaque poste/personne habilitée à utiliser l'outil.
Celui-ci est en interface avec l'extranet de la Fédé de sport et entre autre, DMA oblige, seulement quelques personnes sont habilitées à "travailler" sur la base nationale...

Une signature de l'association pour Outlook est faite, mais je ne me vois pas installer chaque poste avec mon bâton de pèlerin...
Pour automatiser la signature à partir de chaque poste...
​

 

[fanch55]

Classeur corrigé

 

[nano33320]

Bonjour fanch55

Merci beaucoup, c'est vraiment top !
Une question complémentaire, si je peux me permettre.
Pour formater la police [Times New Roman] et la couleur du texte [#004A95] de "paragraph" comment puis-je faire ? Hors paramétrage direct dans Outlook, je n'ai pas réussi...

J'avais à peu près compris pour le "HTLMBody" mais avec l'utilisation du "wordeditor" je sèche...
je n'ai rien trouvé de facilement intelligible/exploitable pour moi, ni dans l'aide en ligne ni sur le web, concernant l'usage de "wordeditor" en VBA dans Excel et encore moins sur "Paragraphe"...

Mais déjà votre aide m'a été très précisieuse.

Encore une fois un très grand merci.
Nano

 

[fanch55]

Pour formater la police [Times New Roman] et la couleur du texte [#004A95] de "paragraph" comment puis-je faire ?

Paragraph représente quoi ? la zone de saisie par défaut ?

Le seul endroit où la police et sa couleur sont définis est au début de la variable DebMail

    DebMail = "<Font face=NewTimeRoman color=#004a95 size=3>" & _
              "Eysines, le " & Format(Date, "dd/mm/yyyy") & "<br>" & _
              "Bonjour,<br><br>"

Que voulez-vous exactement ?

 

[nano33320]

Effectivement, dans DebMail les formats sont définis
<Font face=NewTimeRoman color=#004a95 size=3>
et fonctionnent

Mais dans les parties :
Wedi.Content.InsertParagraphAfter ' paragraphe 1
Wedi.Content.InsertAfter "" ' <-- point de saisie en paragraphe 2
Wedi.Content.InsertParagraphAfter ' paragraphe 2

Les formatages définis dans DebMail ont disparu
càd dans la partie "" où je retrouve le pointeur du clavier lors de l'édition du mail.
Je retrouve, au niveau du pointeur, le formatage "de base" d'Outlook qui n'est pas celui défini dans DebMail
j'aimerais garder le même formatage que dans DebMail