Adresse mail dans une macro [Fermé]

Signaler
Messages postés
17
Date d'inscription
mercredi 15 novembre 2017
Statut
Membre
Dernière intervention
3 octobre 2019
-
Messages postés
6924
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
21 septembre 2020
-
Bonjour,

Je cherche la formule pour pouvoir envoyer mon fichier excel, vers une adresse mail via un bouton lié à une macro, et pouvoir partager ce fichier avec mes collègues de travail.
Merci pour votre aide précieuse.

1 réponse

Messages postés
6924
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
21 septembre 2020
549
Messages postés
17
Date d'inscription
mercredi 15 novembre 2017
Statut
Membre
Dernière intervention
3 octobre 2019

Bonjour, merci pour le retour mais j'ai du mal avec le lien hypertex, qui ne fonctionne pas.
Est-il possible de faire une macro avec une adresse mail?
Cela fonctionne quand je fais la macro, mais quand je la colle à un bouton, si je clique sur le bouton l'adresse mail à disparue ainsi que le texte du mail.
Merci pour votre aide.
Bien à vous
Messages postés
6924
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
21 septembre 2020
549
comme ceci:

Option Explicit
Private Sub CommandButton1_Click()
MailTo
End Sub
Sub MailTo()
    Dim sLien As String
     sLien = "mailto:" & Range("A1") & "?" 'Addresse : une ou plusieurs adresses e-mail valides séparées par un point-virgule. N'utilisez que des caractères autorisés. Utilisez &nbps; pour les espaces. Seul ce paramètre est obligatoire en A1
    sLien = sLien & "Subject=" & Range("A2") 'Subject : le texte qui apparaîtra dans l'objet du message.en A2
    sLien = sLien & "&Body=" & Range("A5") 'Body: le corps du message..en A5
    If Range("A3") <> "" Then sLien = sLien & "&cc=" & Range("A3") 'CC : l'adresse à inclure dans la section "cc" (copie à)en A3
    If Range("A4") <> "" Then sLien = sLien & "&bcc=" & Range("A4") 'BCC : l'adresse à inclure dans la section "bcc" (copie cachée à). en A4
    ActiveWorkbook.FollowHyperlink sLien
End Sub


@+ Le Pivert