envoi mail comprenant images et liens hypertexte

**ninon** · 03/12/2019, 16h56

Bonjour amis développeurs sur ACCESS

Grâce à l'excellent tutoriel de Claude Leloup, je me lance dans la composition de lettres d'info, envoyées par mail depuis ACCESS.

La newsletter, lettre.doc, est créée sous WORD par un membre de l'association : elle comporte des paragraphes, certains mots en gras ou soulignés, il peut y avoir des images, et surtout, il y a des liens hypertextes.

J'arrive, dans un module vba, à ouvrir WORD, tester l'existence du fichier lettre.doc, l'ouvrir si elle est fermée, et récupérer le texte pour en faire le message de mon mail, qui est envoyé et réceptionné.

LE PROBLÈME : pas de saut de paragraphe, police non prise en compte, ni les liens URL, etc...

Une solution consiste à copier non pas le texte word, mais une conversion en HTML.

Je peux le faire, en convertissant le document via un site externe, mais c'est une manipulation que mon utilisateur ne fera pas.

Existe-t-il un moyen de le faire faire par vba : j'ai eu un espoir avec HTMLformat, mais cela ne marcherait que pour EXCEL ?

Merci de l'intérêt que vous porterez à cette discussion

**hyperion13** · 03/12/2019, 19h00

Salut
Quelques liens ici, là ou là.

**ninon** · 03/12/2019, 19h37

Les 3 liens sont intéressants, pour quelques améliorations ou pour la suite des opérations, mais je suis toujours bloquée par la question du format du corps de mon message, créé par un utilisateur qui ne connait que WORD.

J'avais oublié de préciser, j’utilise outlook en vba pour l’envoi de mes messages.
Voici le code que j’ai créé (sans les déclarations de variables qui existent par ailleurs)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
       ObjetMail = "test envoi mail"
       MessageMail = "Ceci est un test de mail envoyé à partir base ACCESS"
       docJoint = CurrentProject.path & "\ajoindre.pdf"
       MessageMail = "<HTML><BODY><div><img src='" & CurrentProject.path & "\monLogo.png'><div/><p>&nbsp;</p>"
       MessageMail = MessageMail & monText & "</BODY></HTML>"
 
       'Assigner l'objet Outlook
       Set objOutlook = New Outlook.Application
       Set MonMessage = objOutlook.CreateItem(0) 'ouvrir une structure de message
 
       With MonMessage
 
           .To = "personne1@orange.fr";"personne2@orange.fr";"personne3@orange.fr";"personne4@orange.fr";"personne5@orange.fr"
           .Subject = ObjetMail
 
           'Set body format to HTML
           .BodyFormat = olFormatHTML
           .HTMLBody = MessageMail
           .Display
           .Attachments.Add docJoint
 
       End With
 
       MonMessage.Send
 
	   'Fermer Outlook
	   objOutlook.Quit
	   Set objOutlook = Nothing

J’ai auparavant récupéré monTexte dans un document word, et c’est juste l’apparence de ce fichier word intégré dans le corps même du message, qui me préoccupe.

L’idée de remplacer vbCrLf par "<br>" est intéressante, par exemple, mais cela ne règle pas tous les problèmes : liens vers URL externes, polices de toutes sorte …

Je ne peux pas non plus enregistrer le HTML dans ma routine, je ne serai pas là pour les prochaines newsletters, et la personne chargée de les concevoir ne pourra pas le faire de son côté.

La solution que j'ai trouvée, pour l'instant, passe par une conversion du document .docx en document .html, et cela fonctionne : monTexte est alors pourvu des balises HTML appropriées.

Mais puis-je automatiser davantage le processus et me passer de cette étape qui va encombrer mon utilisateur ?

**Zekraoui_Jakani** · 05/12/2019, 08h25

Avant envoi par mail, vous pouvez ouvrir le document Word pour l'enregistrer sous format HTML, via ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim NomVotreFichier as String
.ActiveDocument.SaveAs Filename:=NomVotreFichier, FileFormat:= _
8, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

Il faut être sûr que la référence "Microsoft Word X.x Object Library" est activée.

**ninon** · 05/12/2019, 09h20

Voilà un coup de pouce bien intéressant, je vais tester !

envoi mail comprenant images et liens hypertexte

VBA Access

Discussions similaires

Partager

Partager