Discussion :

[etorria]

Bonjour,

Pour l'envoi d'un fichier Excel via Outlook, je me suis inspiré de ce lien :http://excel.developpez.com/faq/?page=Messagerie
Seulement je n'arrive pas créer un lien afin qu'un utilisateur puisse se rendre à un répertoire précis. En effet aucun lien n'apparaît dans le message !
Par exemple : Z:\mon répertoire\toto.xls

Si vous avez une solution...

Merci

Etorria

[drthodt]

Salut!

Alors:
1. Pourrais-tu nous montrer le code que tu utilises? Cela sera plus facile pour voir ce qui ne va pas.
2. Tu es d'Euskadi?

A+,
M

[etorria]

Arratsaldeon !

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
30
31
32
Sub Envoi()
Const olMailItem = 0
Dim ol As Object, myItem As Object
Dim strHtml As String
 
strHtml = strHtml & "<font size=3mm>" & "Bonjour, </font><BR>"
strHtml = strHtml & "<BR><font size=3mm>" & "Le fichier<B>en question</B> en date du Lundi 8 Septembre 2008, est prêt.</font>"
strHtml = strHtml & "<BR><BR>"
strHtml = strHtml & "<BR><font size=3mm>" & "Vous pouvez le consulter en cliquant sur ce lien :</font>"
strHtml = strHtml & "<BR>"
strHtml = strHtml & "<BR><font size=3mm>" & "<A href='Z:\Répertoire\fichier.xls'</A></font>"
strHtml = strHtml & "<BR><BR><BR><BR>" & "<font color=black>" & "Cordialement</font>" & "<BR>"
strHtml = strHtml & "<BR><BR><font size=3mm>" & "blabla</font>"
strHtml = strHtml & "<BR><font size=3mm>" & "blabla</font>"
strHtml = strHtml & "<BR><font size=3mm>" & "blabla</font>"
strHtml = strHtml & "<BR><font size=2mm>" & "blabla</font>"
 
Set ol = CreateObject("Outlook.application")
Set myItem = ol.CreateItem(olMailItem)
 
With myItem
        .To = ""
        .CC = "email@adresse.com"
        .Subject = "Titre du message"
        .HTMLBody = strHtml
        '.Attachments.Add ("c:\pdf\mon fichier.pdf")
 
myItem.Display
 
End With
 
Set ol = Nothing

A+

Etorria...tout près d'Euskadi !