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

nano33320

XLDnaute Junior
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...
1706969276808.png

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

Merci de votre aide
Nano
 
Dernière édition:

fanch55

XLDnaute Barbatruc
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é ... )
 

Pièces jointes

  • nano.xlsm
    28.1 KB · Affichages: 4

nano33320

XLDnaute Junior
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

XLDnaute Junior
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...
😣
 

Pièces jointes

  • Courriel.xlsm
    130.3 KB · Affichages: 4

nano33320

XLDnaute Junior
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...
😎
 

nano33320

XLDnaute Junior
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

XLDnaute Barbatruc
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
VB:
    DebMail = "<Font face=NewTimeRoman color=#004a95 size=3>" & _
              "Eysines, le " & Format(Date, "dd/mm/yyyy") & "<br>" & _
              "Bonjour,<br><br>"

Que voulez-vous exactement ?
 

nano33320

XLDnaute Junior
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
 

Discussions similaires

Statistiques des forums

Discussions
313 309
Messages
2 097 031
Membres
106 812
dernier inscrit
Excellou74