Discussion :

[bybelos33]

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

[illight]

Je comprend pas cette phrase :

J'envoi un lien hypertexte par mail à partir d'excel en utilisant la routine ci-dessous

ça veux dire quoi ?

[bybelos33]

En fait avec la routine que j'ai exposé, j'envoi un mail.
Le fait que ce mail contient un lien hypertexte n'a pas de sujet avec mon problème.

Je répète donc mon souci.
J'ai fait une routine d'envoi de mail, ma messagerie étant sous LOTUS NOTE. Cette routine fonctionne 80% du temps et 20% du temps elle ouvre bien lotus note mais ne compose pas le mail.
Il est important que ce soit Excel qui compose le message car celui-ci est formaté.

Peut être que le pb vient du fait que je n'utilise pas la routine propre à Lotus NOTE ???