lien hypertext dans mailRésolu

Question

Bonjour,

Voil&#224;, j'ai un script qui enregistre un fichier Word et ensuite envoie un mail. Dans le mail je fais figurer le chemin d'acc&#232;s au fichier. J'aimerais envoyer ce chemin sous forme d'hypertexte, de sorte que le destinataire n'est plus qu'&#224; cliquer dessus pour acc&#233;der au fichier.

Voil&#224; mon script nom est une variable, le nom du fichier r&#233;cup&#233;r&#233; plus haut dans mon script.

Dim hyperlien As String


hyperlien = "O:\XXX" & nom & ".doc"



Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)

MonMessage.To = ([mailto:xxx@yyy.ch xxx@yyy.ch])
MonMessage.Subject = nom 
MonMessage.BodyFormat = MailFormat.Html
MonMessage.body = hyperlien
MonMessage.send
Set MonOutlook = Nothing

Si quelqu'un a une solution, je suis preneur.

michelxld · Accepted Answer

bonsoir

j'espere que cet exemple pourra t'aider

Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem


Set OlItem = OlApp.CreateItem(olMailItem)


With OlItem
.To = "[mailto:destinataire@mail.fr destinataire@mail.fr]"
.Subject = "Le titre du message"
.HTMLBody = "C:\monRepertoire\fichier.doc"
.Save
.send
End With

bonne soiree
michel

titsuisse · Answer

Il n'accepte pas la premi&#232;re ligne. Il me dit "Type d&#233;fini par l'utilisateur non d&#233;fini".

michelxld · Answer

bonjour

Active la reference Outlook
comment faisais tu dans la macro de ton premier message ?
c'est une procedure VB ou en VBA ?

bonne journ&#233;e
michel

titsuisse · Answer

Proc&#233;dure VBA mais je n'avais pas activ&#233; la biblioth&#232;que Outlook

Lien hypertext dans mail

4 réponses

Discussions similaires