Hyperlien dans un mail avec MAPI

Version imprimable

Bonsoir le forum,

J'utilise ce petit bout de code pour envoyer un message une fois que j'ai mis à jour par macro un tableau.

Les variables Chemin et Nomsauv contiennent respectivement le répertoire où se trouve mon fichier, et son nom.

La macro se déroule bien, mais tout ce que reçoit mon destinataire est un message qui dit "-1".

Je sèche. :(
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 EmailMsg = "Bonjour," & vbCrLf & vbCrLf & "Le tableau a été mis à jour ici: <" & Chemin & Nomsauv & ">" EmailSubject = "Mise à jour du tableau" Dim ObjOut As Object, ObjSession As Object Set ObjOut = CreateObject("Outlook.Application") Set ObjSession = ObjOut.GetNamespace("MAPI") Set ObjMessage = ObjOut.CreateItem(0) objSession.Logon With ObjMessage .To = "toto@lala.com" .Subject = EmailSubject .Body = EmailMsg .Send End With

05/11/2009, 18h14
aalex_38

Je viens de tester et le code fonctionne parfaitement chez moi !

Peut être peux-tu rajouter :

Code:

.BodyFormat = olFormatPlain
06/11/2009, 09h18
neiluj26

Bonjour,

Merci pour la réponse (et désolé de cette réponse tardive). Le message part bien, mais maintenant, mon lien n'est pas actif. J'aurais voulu que les utilisateurs puissent cliquer dessus... C'est pour cela que j'avais mis les <> avant et après le chemin.

Si je fais ça, le lien fonctionne :

Code:

1
2
 addresse = "http://www.developpez.net/forums/d832872/logiciels/microsoft-office/excel/macros-vba-excel/hyperlien-mail-mapi/"
EmailMsg = "Bonjour, " & addresse & "."

17/11/2009, 11h00
neiluj26

Rebonjour (et désolé du retard, les vacances sont passées par là :D)

Cette solution fonctionne aussi pour moi. Le problème est que mon lien n'est pas un lien http:, mais un endroit sur un réseau (du genre D:\....). Mon adresse ne se transforme toujours pas en lien dans le corps du mail... et mes utilisateurs ne sont pas du genre à se casser la tête pour copier/coller le lien contenu du message dans leur explorer.

Une solution issue de ce sujet.

Le code (testé) :

Code:

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
Dim strHTML As String
addresse = "\\xxx\yyy\zz\"
 
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>Découvrez Microsoft Office sur le site Developpez<BR><BR>"
strHTML = strHTML & "<A href=" & addresse & " >Cliquez ici.</A>"
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Environ("UserName") & "<BR>"
strHTML = strHTML & "<A href=mailto:emetteur@mail.fr>Mon adresse mail</A>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
 
EmailMsg = "Bonjour, " & addresse & "."
EmailSubject = "Mise à jour du tableau"
 
Dim ObjOut As Object, ObjSession As Object
Set ObjOut = CreateObject("Outlook.Application")
Set ObjSession = ObjOut.GetNamespace("MAPI")
Set ObjMessage = ObjOut.CreateItem(0)
ObjSession.Logon
 
With ObjMessage
    ' .BodyFormat = olFormatHTML
    .To = "xx@yyy.com"
    .Subject = EmailSubject
    .Body = EmailMsg
    .HTMLBody = strHTML
    .Send
End With

17/11/2009, 14h15
neiluj26

Oups, désolé, je suis allé trop vite. Tu as dû recevoir un mail de ma part.:oops:
17/11/2009, 14h22
aalex_38

lol :lol:

Apparemment ça marche 8-)