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 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
533
spike29
S
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
830
lesoldat9
L
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
727
Oneida
Oneida
K
  • Question Question
XL 2016 From Excel to Outlook - Déclenchement sur la date et arrêt de la macro
Réponses
3
Affichages
1 K
AtTheOne
AtTheOne
S
  • Question Question
Microsoft 365 Macro pour Copier une feuille Excel en tant qu'image dans outlook
Réponses
3
Affichages
2 K
fanch55
fanch55
C
  • Question Question
Microsoft 365 Combiner une condition avec une boucle dans VBA
Réponses
2
Affichages
1 K
CHL1234
C
V
  • Question Question
Microsoft 365 Générer un mail Outlook via Excel si modification colonne Excel
Réponses
1
Affichages
2 K
gig83500
G
T
  • Question Question
Microsoft 365 Macro envoi invitation Outlook à partir d'une liste Excel avec ajout de pièce de jointe
Réponses
1
Affichages
4 K
fanch55
fanch55
Fred_Garnier
  • Question Question
XL 2010 VBA Outlook Excel_plusieurs RV dans un même calendrier
Réponses
0
Affichages
1 K
Fred_Garnier
Fred_Garnier
C
  • Question Question
XL 2013 Insérer lien hypertexte cliquable dans mail envoyé par VBA
Réponses
0
Affichages
3 K
Claggan
C
W
  • Question Question
Microsoft 365 Placer un RV dans l'agenda Outlook sur calendrier secondaire
Réponses
4
Affichages
4 K
chich
C
P
  • Question Question
XL 2016 ecrire du texte avant un tableau dans outlook via une macro dans VBA
Réponses
6
Affichages
6 K
riddick93
R
HOUDY
  • Question Question
XL 2013 bloquer sur cette macro ! une petite aide serait la bienvenue
Réponses
6
Affichages
1 K
HOUDY
HOUDY
MuscatMimi
  • Question Question
Vba Envoi Feuille dans corps de Mail Outlook
Réponses
0
Affichages
2 K
MuscatMimi
MuscatMimi
C
  • Question Question
Macro invitation outlook
Réponses
2
Affichages
7 K
cookies
C
A
  • Question Question
XL 2010 MACRO - problème création évènement outlook
Réponses
2
Affichages
1 K
AntoineM
A
corloste
  • Question Question
Mise en pièce jointe " avec référence target" de la cible d'un lien hypertexte
Réponses
8
Affichages
2 K
corloste
corloste
J
  • Question Question
Enregistrer un pdf dans un dossier spécifique par macro
Réponses
13
Affichages
2 K
JR.31
J
N
  • Question Question
insérer msg avec lien hypertexte dans Outlook
Réponses
2
Affichages
1 K
Neofalken
N
L
  • Question Question
macro pour envoyer un mail depuis excel par outlook
Réponses
6
Affichages
4 K
Liloo14
L
Retour