Envoi mail à partir d'Excel (pb de fonctionnement)
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:
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 |
