Hyperlien dans un mail avec MAPI

**neiluj26** · 05/11/2009, 17h59

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**aalex_38** · 05/11/2009, 18h14

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

Peut être peux-tu rajouter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.BodyFormat = olFormatPlain

**neiluj26** · 06/11/2009, 09h18

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.

**aalex_38** · 06/11/2009, 16h21

Si je fais ça, le lien fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**neiluj26** · 17/11/2009, 11h00

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

)

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.

**aalex_38** · 17/11/2009, 12h27

Une solution issue de ce sujet.

Le code (testé) :

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
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

**neiluj26** · 17/11/2009, 14h15

Oups, désolé, je suis allé trop vite. Tu as dû recevoir un mail de ma part.

**aalex_38** · 17/11/2009, 14h22

lol

Apparemment ça marche

Hyperlien dans un mail avec MAPI

Macros et VBA Excel

Discussions similaires

Partager

Partager