Bonjour à tous,
Je suis nouveau sur le site et viens de commencer à coder en VBA il y a peu.
Je m'addresse à vous car je n'ai pas pu trouver de solutions à mon problème sur le net, étant donné que mon problème est très spècifique.
Voilà le but de ma macro sous Excel est de faire remplir par l'utilisateur sur Excel une adresse mail cible, un sujet, et surtout dans le corps du message: un Hyperlien ( Hyperlink en anglais )
Ce lien est ajouté de la façon classique : clique droit sur la cellule, Hyperlink ...> etc.
Ensuite, par le biais d'un bouton relié à ma macro, un mail est envoyé à l'adresse mail cible, et dans le corps du texte figure le fameux hyperlink
présenté de la façcon suivante : " Veuillez trouver le fichier ici " avec " ici " possédant le lien vers le répertoire précisé dans le feuillet Excel initial.
Le code d'envoi par mail fonctionne, de même que ma macro mais le problème est qu'elle ne fonctionne que si l'addresse précisée dans le lien ne possède pas d'espaces. J'ai lu sur des forum que la solution consiste à bien mettre les < > pour que le message prennent en compte une adresse mais rien ni fait, j'ai essayé et ça ne fonctionne pas.
Voici sans plus attendre mon code afin que vous puissiez aborder le problème :
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 Sub Macro_test() Dim ol As New Outlook.Application Dim olmail As MailItem DimStrbody As String Dim Lien As String Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) Lien = Range("D7") Strbody = " Bonjour, veuillez trouver le répertoire dans le " & "<a href=" & Lien & "> lien suivant. </a> " & " Merci " With olmail .To = Range("D5") .CC = "" .Subject= Range("D6") .HTMLBody = Strbody .Display End With End Sub
Voilà ce code fonctionne mais pas avec des addresses de répertoire contenants un espace. Après avoir essayé beaucoup de choses différentes je ne parviens tourjours pas à le faire fonctionner quelque soit l'adresse, sachant que modifier toutes les addresses n'est pas une option.
Merci beaucoup pour votre aide
Partager