Discussion :

[aurelie91220]

Bonjour à tous,

j'ai fait une macro sur un feuille excel qui me permet en cliquant sur un bouton d'envoyer automatiquement un mail. voici ma formule:

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
Sub envoimailsanspièce()
Dim ol As Object, monItem As Object
 
Set ol = CreateObject("outlook.application")
 
Set monItem = ol.CreateItem(olMailItem)
 
 
 
monItem.To = "blabla@blabla.fr"
 
monItem.Subject = "ici objet du mail"
 
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "blablabla." & Chr(13) & Chr(13) & "Cordialement."
 
Set mondoc = monItem.Attachments
 
 
 
monItem.Send
 
Set ol = Nothing
 
MsgBox "la demande a bien été transmise "
 
End Sub

A cela je souhaite intégrer dans le corps du mail un lien hypertexte vers un tableau, ainsi le destinataire du mail n'aurait qu'a cliquer sur "cliquer ici" pour ouvrir ce doc.

Je n'arrive pas a trouver la solution, est-ce que quelqu'un peut m'aider? Je suis novice au langage VBA, j'ai du mal....

Merci par avance.

[carden752]

Bonjour,

Soit il faut utiliser HtmlBody au lieu de body
soit éditer l'objet WordEditor (Outlook 2010 et +) et y insérer un champ Hyperlink.