Bonjour,

J'envoi un lien hypertexte par mail à partir d'excel en utilisant la routine ci-dessous et pourtant parfois cela ouvre bien LotusNote mais ne créé pas le mail alors que cela fonctionne 80% du temps.
Il faut fermer la cession et la rouvrir pour que cela fonctionne.

Quelqu'un a t'il une idée ? Merci

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
Sub SendEmail(EmailAddr As String, Texte As String)
 
'-------------------------------------------------définir les données
       Temp = Range("A1")
       I = InStrRev(Temp, "\")
       Temp = Right(Temp, Len(Temp) - I)
       Subj = "Demande d'archivage : " + Left(Temp, Len(Temp) - 4)
       Temp = "file:" + Range("A1")
'--------------------------------------------------Composer le message
       Msg = "Bonjour " & "%0A"
       Msg = Msg & "%0A" & Texte & "%0A"
       Msg = Msg & "%0A" & Temp & "%0A"
       Msg = Msg & "%0A" & " "
'--------------------------------------------------Construire lien hypertexte
       HLink = "mailto:" & EmailAddr & "?"
       HLink = HLink & "subject=" & Subj & "&"
       HLink = HLink & "body=" & Msg
'--------------------------------------------------Transmettre le message
       ActiveWorkbook.FollowHyperlink HLink
 
    End Sub