Excel VBA et Outlook...

A

azerty6767

XLDnaute Junior
Bonjour,

A partir d'excel, j'envoie un message Outlook.
Ce message, issu d'une cellule Excel, est du type "\\Mes Documents\Photos 2007"

Je souhaite que ce message ait l'apparence d'un lien hypertexte, une fois qu'il apparaît dans Outlook, pour que le destinataire puisse cliquer directement sur le lien..!


Pourriez-vous m'aider ? Je ne vois pas de solution...!


D'avance merci,


Olivier
 
Trier par date Trier par votes
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Excel VBA et Outlook...

Bonsoir


A tester

(Cocher la Référence à Microsoft Outlook objetc Library
Dans VBE Outils/Réfrérences)

Code: 
sub hypertext_email()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
 
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
 strbody = "<A HREF=""\\Mes Documents\Photos 2007"">Photos 2007</A>"
On Error Resume Next
    With OutMail
        .To = "toto@toto.fr"
        .CC = ""
        .BCC = ""
        .Subject = "Lien hypertexte"
        .HTMLBody = strbody
        .BodyFormat = olFormatHTM
        .Display
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

source:ici
 
Vote positif 0 Vote négatif
A

azerty6767

XLDnaute Junior
Re : Excel VBA et Outlook...

Bonjour,

Merci pour l'info ; effectivement cela fonctionne !

une dernière question (subsidiaire ! :) ) :

Je souhaite remplacer l'adresse Mes Documents\... à la ligne

strbody = "<A HREF=""\\Mes Documents\Photos 2007"">Photos 2007</A>"

par le contenu d'une cellule. Par exemple, remplacer par le contenu de la cellule B3.

Dans ce cas, quelle est la "bonne" écriture pour la ligne

strbody=....?




Merci d'avance pour tout !



Olivier
 
Vote positif 0 Vote négatif
A

azerty6767

XLDnaute Junior
Re : Excel VBA et Outlook...

Re-bonjour,

Autre question :

La ligne :
strbody = "<A HREF=""" & Range("B3") & """>Photos 2007</A>"

signifie que "Photos 2007" s'affichera dans le corps du message, avec le lien égal au contenu de la cellule B3, par exemple : C:\Mes documents\Photos 2007.


J'aimerais que dans le corps du message, on puisse lire le lien directement, et qu'il soit cliquable.

Dois-je écrire :

strbody = "<A HREF=""" & Range("B3") & """>Range("B3")</A>" ??

Cela ne fonctionne pas..

Merci pour votre aide !



Olivier
 
Vote positif 0 Vote négatif
A

azerty6767

XLDnaute Junior
Re : Excel VBA et Outlook...

Bonjour,

Super ça marche.

2 dernières questions :

**** J'ai un message HTML du type suivant :

'Composer le message
Msg = "<A>Bonjour,<br></A>" & _
"<A><br></A>" & _
"<A>" & Recipient & "<br></A>" & _
"<A><br></A>" & _
"<A HREF=""" & Range("B10") & """>" & Recipient2 & "<br></A>" & _
"<A><br></A>" & _
"<A><br></A>" & _
"<A>Cordialement,<br></A>" & _
"<A><br></A>"

Question : comment préciser la taille, le type et la couleur de police ? Le problème étant surtout à quel endroit l'indiquer...


**** J'ai donc ce message HTML et j'insère également une signature en HTML
Lorsque j'indique :

.HTMLBody = Msg

, le message s'affiche correctement dans Outlook

Lorque j'indique :
.HTMLBody = Signature

, la signature au format HTML s'affiche correctement


--> mais quand j'indique :

.HTMLBody = Msg & Signature
, c'est la m.... : il n'y a plus que la signature ; le reste du message n'existe plus.

J'ai alors essayé :

.HTMLBody = Msg & "<br> <br>" & Signature

mais pas mieux...


Et là je ne vois vraiment pas ce qui "déconne"...!




Merci par avance,


Olivier,
 
Vote positif 0 Vote négatif
A

azerty6767

XLDnaute Junior
Re : Excel VBA et Outlook...

azerty6767 à dit:
Bonjour,

Super ça marche.

2 dernières questions :

**** J'ai un message HTML du type suivant :

'Composer le message
Msg = "<A>Bonjour,<br></A>" & _
"<A><br></A>" & _
"<A>" & Recipient & "<br></A>" & _
"<A><br></A>" & _
"<A HREF=""" & Range("B10") & """>" & Recipient2 & "<br></A>" & _
"<A><br></A>" & _
"<A><br></A>" & _
"<A>Cordialement,<br></A>" & _
"<A><br></A>"

Question : comment préciser la taille, le type et la couleur de police ? Le problème étant surtout à quel endroit l'indiquer...


**** J'ai donc ce message HTML et j'insère également une signature en HTML
Lorsque j'indique :

.HTMLBody = Msg

, le message s'affiche correctement dans Outlook

Lorque j'indique :
.HTMLBody = Signature

, la signature au format HTML s'affiche correctement


--> mais quand j'indique :

.HTMLBody = Msg & Signature
, c'est la m.... : il n'y a plus que la signature ; le reste du message n'existe plus.

J'ai alors essayé :

.HTMLBody = Msg & "<br> <br>" & Signature

mais pas mieux...


Et là je ne vois vraiment pas ce qui "déconne"...!




Merci par avance,


Olivier,
Cliquez pour agrandir...


Re-bonsoir,

Je me répète...lol

Quelqu'un peut m'aider...? mayday lol !

Merci d'avance ! :)
 
Vote positif 0 Vote négatif
A

azerty6767

XLDnaute Junior
Re : Excel VBA et Outlook...

Je ne comprends pas où est le bug !

Concernant un autre point :


Comment indiquer le type de police (Verdana par exemple) dans la ligne ci-dessous :

"<A HREF=""" & Range("B10") & """>" & Recipient2 & "<br></A>" & _


D'avance merci beaucoup,


Olivier
 
Dernière édition:
Vote positif 0 Vote négatif
A

azerty6767

XLDnaute Junior
Re : Excel VBA et Outlook...

Merci, cela fonctionne !

Reste toujours mon bug, bug qui a légèrement évolué :

.HTMLbody = Msg & Signature
Résultat--> le message contenu dans "Msg" s'affiche, mais pas la signature


.HTMLbody = Signature
Résultat-->la signature s'affiche correctement

Sans doute un problème de format ou d'espace....



Tous le reste fonctionne vraiment bien !


Bonne soirée et merci à celui ou celle qui pourra encore me conseiller concernant ce p... de bug !



Olivier
 
Vote positif 0 Vote négatif

Discussions similaires

N
  • Question
Microsoft 365 choisir sa signature outlook depuis vba excel
Réponses
3
Affichages
1 K
NitroX38X
N
Z
  • Question
Microsoft 365 code VBA envoie de mail
Réponses
2
Affichages
705
kiki29
kiki29
B
  • Question
XL 2019 VBA création tâche outlook date excel
Réponses
0
Affichages
2 K
Bnj
B
M
  • Résolu(e)
XL pour MAC Fonction peut s'adapter au changement de ligne ?
Réponses
4
Affichages
302
MaiBZH
M
J
  • Question
XL 2016 Excel et Outlook
Réponses
3
Affichages
700
AtTheOne
AtTheOne
L
  • Question
Microsoft 365 Code VBA pour commencer publipostage à partir d'un .dotx
Réponses
5
Affichages
907
Law0179
L
L
  • Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
3 K
LMOAL
L
M
  • Question
Microsoft 365 Ajout d'une image VBA
Réponses
6
Affichages
523
sylvanu
sylvanu
M
  • Question
Microsoft 365 [Saveas] dans un environnement Onedrive
Réponses
5
Affichages
1 K
p56
p56
M
  • Question
XL 2019 [VBA] ouvrir un lien vers un dossier en ligne
Réponses
2
Affichages
560
mvastra
M

Membres actuellement en ligne

9 membres et 84 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 196
Messages
2 086 088
Membres
103 116
dernier inscrit
kutobi87