Ajout macro sur feuille à envoyer par mail
Fermé
Memoenit44
-
25 juil. 2011 à 09:49
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 25 juil. 2011 à 15:36
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 25 juil. 2011 à 15:36
A voir également:
- Ajout macro sur feuille à envoyer par mail
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Creer adresse mail - Guide
- Ajout rapide snap ✓ - Forum Snapchat
- Envoyer un fax par mail outlook - Forum Messagerie
- Ajout snap sans rien - Forum Snapchat
1 réponse
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
153
25 juil. 2011 à 15:36
25 juil. 2011 à 15:36
Bonjour,
Pour renommer le bouton "envoyer" en extraire :
Affichage, barre d'outils, boite à outils de controle.
De cette barre d'outils, tu as un bouton ou il y a une equerre, une règle et un crayon qui lorsque tu passes la souris a pour intitulé : mode de création ou désactiver le mode de création.
Clic dessus pour que ce soit le mode de création.
Pour changer le nom :
clic droit sur le bouton, Propriétés
Tu as un champ qui s'appelle caption et il y a ecrit "Envoyer". Ecrit extraire à la place.
Ferme la fenêtre propriétés.
Pour changer la macro :
fais clic droit sur la macro et clic sur visualiser le code :
A un moment donné tu vas avoir un bout de code qui ressemble à :
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
' Création de l'e-mail : Titre, Corps du message, destinataire
Set Dest = "tartempion"
EmailMsg.Subject = "sujet mail"
EmailMsg.Body = "Madame, Monsieur "
EmailMsg.Attachments.Add chemin
EmailMsg.CC = "bruno.beaulieu@atosorigin.com ; <a href="mailto:eddie.lechevretel@atosorigin.com">eddie.lechevretel@atosorigin.com</a> "
' Placement de l'e-mail dans la boîte d'envoi :
EmailMsg.Send
Supprimes toutes ces lignes!!!!!
Fermes la fenêtre.
recliques sur le bouton pour désactiver le mode création. Enregistres et fais le test.
Pour renommer le bouton "envoyer" en extraire :
Affichage, barre d'outils, boite à outils de controle.
De cette barre d'outils, tu as un bouton ou il y a une equerre, une règle et un crayon qui lorsque tu passes la souris a pour intitulé : mode de création ou désactiver le mode de création.
Clic dessus pour que ce soit le mode de création.
Pour changer le nom :
clic droit sur le bouton, Propriétés
Tu as un champ qui s'appelle caption et il y a ecrit "Envoyer". Ecrit extraire à la place.
Ferme la fenêtre propriétés.
Pour changer la macro :
fais clic droit sur la macro et clic sur visualiser le code :
A un moment donné tu vas avoir un bout de code qui ressemble à :
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
' Création de l'e-mail : Titre, Corps du message, destinataire
Set Dest = "tartempion"
EmailMsg.Subject = "sujet mail"
EmailMsg.Body = "Madame, Monsieur "
EmailMsg.Attachments.Add chemin
EmailMsg.CC = "bruno.beaulieu@atosorigin.com ; <a href="mailto:eddie.lechevretel@atosorigin.com">eddie.lechevretel@atosorigin.com</a> "
' Placement de l'e-mail dans la boîte d'envoi :
EmailMsg.Send
Supprimes toutes ces lignes!!!!!
Fermes la fenêtre.
recliques sur le bouton pour désactiver le mode création. Enregistres et fais le test.