Adresse mail dans une macro
Albo8600
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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.
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:
- Adresse mail dans une macro
- Darkino nouvelle adresse - Guide
- Créer une adresse mail hotmail - Guide
- Adresse mac - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Supprimer une adresse mail gmail - Guide
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
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