Sujet Précédent Sujet Suivant

Adresse mail dans une macro

Fermé
Albo8600 Messages postés 17 Date d'inscription mercredi 15 novembre 2017 Statut Membre Dernière intervention 3 octobre 2019 - 30 août 2019 à 14:16
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 4 sept. 2019 à 15:49
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.
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
30 août 2019 à 14:21
Bonjour,

voir ceci:

http://cathyastuce.com/vba/code-source-excel/envoyer-classeur.html

0
Albo8600 Messages postés 17 Date d'inscription mercredi 15 novembre 2017 Statut Membre Dernière intervention 3 octobre 2019
4 sept. 2019 à 14:31
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
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
4 sept. 2019 à 15:49
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
0

Discussions similaires

comment avoir accès à ma boîte mail live.fr
mag -
Redbart -

1 réponse