XL 2013 Ajouter un lien hypertexte dans la macro qui envoi une invitation outlook

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Sbed

XLDnaute Nouveau
Bonjour,
Je souhaite joindre un lien hypertexte dans mon invitation outlook envoyée mais je ne trouve pas comment l'écrire. J'ai essayé avec .htmlBody mais ça ne fonctionne pas...

Code: 
Sub inviter_texte()
Dim messagerie As Object, invitation As Object, participant As Object, montexte As String, cel As Range
Dim ligne As Long
    Set messagerie = CreateObject("Outlook.Application")
    Set invitation = messagerie.CreateItem(1)
    Workbooks("Outil perso.xlsm").Sheets("Feuil3").Select
    
    corps = corps & "<HTML> <a href="" adresse de mon fichier "" > ici </a> </HTML>"
    
    With invitation
        .MeetingStatus = 1
        .Subject = Range("inv_obj").Value
        .Location = Range("inv_lieu").Value
        .Start = Range("inv_date").Value + Range("inv_heure").Value
        .Duration = Range("inv_durée").Value * 24 * 60
        If Range("inv_rappel").Value > 0 Then
            .ReminderSet = True
            .ReminderMinutesBeforeStart = Range("inv_rappel").Value
        Else
            .ReminderSet = False
        End If

            Set participant = .Recipients.Add(Range("Listeboxsortie").Value)

        .Body = corps
        .Send

    End With

End Sub
 
Trier par date Trier par votes
Bonjour,
VB: 
Sub inviter_texte()
    
    With CreateObject("Outlook.Application").CreateItem(1)
        .MeetingStatus = 1
        .Subject = Range("inv_obj").Value
        .Location = Range("inv_lieu").Value
        .Start = Range("inv_date").Value + Range("inv_heure").Value
        .Duration = Range("inv_durée").Value * 24 * 60
        If Range("inv_rappel").Value > 0 Then
            .ReminderSet = True
            .ReminderMinutesBeforeStart = Range("inv_rappel").Value
        Else
            .ReminderSet = False
        End If

      ' Set participant = .Recipients.Add(Range("Listeboxsortie").Value)
      
      '  Il faut absolument faire un display au préalable pour accèder au WordEditor
        .display
    
        Cible = "https:/........../....../......"
        Set Wd = .GetInspector.WordEditor
        With Wd
            .Range.Text = "Ceci est ma 1ère ligne avec 2 retours à la ligne" & vbLf & vbLf
            .Range.InsertParagraphAfter
            .Range.Hyperlinks.Add Anchor:=.Paragraphs(.Paragraphs.Count).Range, _
                                  TextToDisplay:="Link", Address:=Cible
            .Range.InsertParagraphAfter
            .Paragraphs(.Paragraphs.Count).Range.Text = "Ceci est ma dernière ligne "
        End With
       ' .Send
    End With

End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
191
spike29
S
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
359
Oneida
Oneida
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
363
jurassic pork
jurassic pork
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
265
spike29
S
B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
253
kiki29
kiki29
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
551
lesoldat9
L
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
443
Oneida
Oneida
A
  • Résolu(e)
XL 2021 Macro de création mail de relance avec référence cellules
Réponses
4
Affichages
630
arnoldbrice19
A
F
  • Question Question
XL 2016 Ajouter planning Outlook un rdv(sans activer de reference "Microsoft Outlook object library xx.x"
Réponses
2
Affichages
426
fredl
F
K
  • Résolu(e)
XL 2019 Probleme codage
Réponses
2
Affichages
398
Kevin42560
K
P
  • Résolu(e)
XL 2019 ajouter lien fichier dans une colonne
Réponses
3
Affichages
435
sylvanu
sylvanu
F
  • Question Question
XL 2016 Envoi mail Outlook plage de cellule (qui ne se déforme pas)
Réponses
13
Affichages
2 K
fanch55
fanch55
D
  • Question Question
Microsoft 365 Envoi mail Outlook depuis Excel : changement de taille de police si signature insérée
Réponses
6
Affichages
2 K
Deadpool_CC
Deadpool_CC
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
1 K
Fabrice16ct
F
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
473
Mika07
M
B
  • Question Question
XL 2019 Macro - Envoyer des mails depuis un tableau de données
Réponses
3
Affichages
1 K
AtTheOne
AtTheOne
B
  • Résolu(e)
XL 2016 Ajouter la formule de date "=AUJOURDHUI()" dans une macro copie et sauvegarde d'écran
Réponses
5
Affichages
473
berru76
B
gilles37
  • Résolu(e)
XL 2019 Mail en HTML vs VBA
Réponses
6
Affichages
599
patricktoulon
patricktoulon
K
  • Question Question
XL 2016 From Excel to Outlook - Déclenchement sur la date et arrêt de la macro
Réponses
3
Affichages
994
AtTheOne
AtTheOne
E
  • Question Question
XL 2013 Envoi mail par macro via exchange
Réponses
1
Affichages
987
Hasco
Hasco
Retour