Lien hypertext dans mail [Résolu]

Signaler
Messages postés
27
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
7 avril 2006
-
Messages postés
27
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
7 avril 2006
-
Bonjour,

Voilà, j'ai un script qui enregistre un fichier Word et ensuite envoie un mail. Dans le mail je fais figurer le chemin d'accès au fichier. J'aimerais envoyer ce chemin sous forme d'hypertexte, de sorte que le destinataire n'est plus qu'à cliquer dessus pour accéder au fichier.

Voilà mon script nom est une variable, le nom du fichier récupéré 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.

4 réponses

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
19
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
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
19
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ée
michel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
27
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
7 avril 2006

Il n'accepte pas la première ligne. Il me dit "Type défini par l'utilisateur non défini".
Messages postés
27
Date d'inscription
mardi 4 janvier 2005
Statut
Membre
Dernière intervention
7 avril 2006

Procédure VBA mais je n'avais pas activé la bibliothèque Outlook