Adresse mail dans une macro
Albo8600
Messages postés
17
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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.
1 réponse
-
Bonjour,
voir ceci:
http://cathyastuce.com/vba/code-source-excel/envoyer-classeur.html
-
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 -
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
-
