Microsoft 365 Insérer lien dans un email

[Dvd1976]

Bonjour à tous,

je dispose d'une macro qui permet d'envoyer un mail qui fonctionne très bien, mais je n'arrive pas à y inclure un lien qui dirige vers un répertoire d'un serveur.

voici la macro :

Sub SendMail()
Dim LeMail As Variant

Set LeMail = CreateObject("Outlook.Application")

With LeMail.CreateItem(olMailItem)
     .Subject = "Nouveau fichier de constatation d'un écart envers la sécurité"
     .To = Range("a51")
     .Body = Range("a53")
     .Display

End With
    
End Sub

Pourriez-vous me guider afin de pouvoir l'inclure dans cette macro ?

Merci d'avance

 

[kiki29]

Salut, à lire/pratiquer le site de RdB

 

[Dvd1976]

Salut kiki29,
merci pour le lien

j'y ai trouvé quelque chose d'intéressant qui fonctionne mais il a une phrase qui apparait dans mon mail que je voudrais supprimer mais quand je la supprime dans la macro, le reste de la macro est en erreur...

Je souhaiterais supprimer : ActiveWorkbook.Name & "</B> is created.<br>" & _

Sub Mail_link()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Excel 2000-2016
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    If ActiveWorkbook.Path <> "" Then
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        strbody = "<font size=""3"" face=""Calibri"">" & _
                  "Bonjour,<br><br>" & _
                  "un nouveau document de constatation d'écart envers la sécurité a été enregistré sur le serveur. <br><B>" & _
                  ActiveWorkbook.Name & "</B> is created.<br>" & _
                  "Cliquez sur le lien suivant pour ouvrir le répertoire : " & _
                  "<A HREF=""file://" & ActiveWorkbook.FullName & _
                  """>D:\test\</A>" & _
                  "<br><br>Cordialement," & _
                  "<br><br>Le service de cour</font>"

        On Error Resume Next
        With OutMail
            .To = Range("a51")
            .CC = ""
            .BCC = ""
            .Subject = "Nouveau fichier de constatation d'un écart envers la sécurité"
            .HTMLBody = strbody
            .Display   'or use .Send
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
    Else
        MsgBox "The ActiveWorkbook does not have a path, Save the file first."
    End If
End Sub

 

[kiki29]

Re, qqch comme :

        strbody = "<font size=""3"" face=""Calibri"">" & _
                  "Bonjour,<br><br>" & _
                  "un nouveau document de constatation d'écart envers la sécurité a été enregistré sur le serveur. <br><B>" & _
                  "Cliquez sur le lien suivant pour ouvrir le répertoire : " & _
                  "<A HREF=""file://" & ActiveWorkbook.FullName & _
                  """>D:\test\</A>" & _
                  "<br><br>Cordialement," & _
                  "<br><br>Le service de cour</font>"

Sinon je n'ai plus Outlook mais Thunderbird et utilise souvent CDO

Spoiler

Pourquoi utiliser le code CDO au lieu de l'automatisation Outlook ou SendMail dans VBA.
1 : Peu importe le programme de messagerie que vous utilisez (il utilise uniquement le serveur SMTP).
2 : Peu importe la version d'Office que vous utilisez (97…2016)
3 : Vous pouvez envoyer une plage/feuille dans le corps du courrier (certains programmes de messagerie ne peuvent pas le faire)
4: Vous pouvez envoyer n'importe quel fichier que vous aimez (fichiers Word, PDF, PowerPoint, TXT,….)
5 : Aucun avertissement de sécurité, vraiment génial si vous envoyez beaucoup de courrier en boucle.

 

[Dvd1976]

c'est résolu ! merci pour l'aide