Envoyer un lien dans un mail depuis un userform

Question

Bonjour,

Je cherche à envoyer un mail Outlook depuis excel avec un lien qui emmène vers un fichier collaboratif. En cliquant sur le mot "lien" sur le corps du texte cela redirige.

Pour le moment j'arrive à rédiger le mail, mais je ne trouve pas comment créer le lien. Je voudrais savoir s'il était également possible que le lien soit à J+1, c'est à dire que selon la date le lien soit définit par rapport à la date du lendemain.

Exemple:

Nous sommes le 16/10/2022

Le fichier se trouve C:\Users\Plannif\ il s'appelle Plannif des vols du 17 octobre.jpg

Chaque fois le fichier commencera par Plannif des vols seul la date change et j'essaie de faire en sorte que le lien soit crée automatiquement tous les jours avec le jour et le mois du lendemain .

J’espère avoir été assez clair dans mes explications.

Merci pour l'aide apportée

Private Sub CommandButton14_Click()

Dim Lemail1 As Variant

Set Lemail1 = CreateObject("Outlook.Application")

With Lemail1.CreateItem(olMailItem)

.Subject = "Planification des vols du " & Date + 1

.To = "TOUS"

.Body = "Mesdames, Messieurs" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "J'ai l'honneur de vous envoyer le lien afin d'accéder à la planification des vols du " & Date + 1 & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Respectueusement,"

.Display

End With

End Sub

dysorthographie · Answer

Bonsoir, Pour le lien à toi de le rédiger dynamiquement ! Private Sub CommandButton14_Click() Dim Lemail1 As Variant Set Lemail1 = CreateObject("Outlook.Application") With Lemail1.CreateItem(olMailItem) .Subject = "Planification des vols du " & Date + 1 .To = "TOUS" .HTMLBODY = "Mesdames, Messieurs

J'ai l'honneur de vous

envoyer le lien afin d'accéder à la planification des vols du 19/10/2022

Respectueusement,

Fifier toto.txt" .Display End With End Sub

Envoyer un lien dans un mail depuis un userform

1 réponse

Votre réponse

Discussions similaires