Ajout sujet et titre dans envoi de mail automatique via excel
Fermé
noterac
-
30 oct. 2020 à 11:44
yg_be Messages postés 22723 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 2 nov. 2020 à 15:08
yg_be Messages postés 22723 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 2 nov. 2020 à 15:08
A voir également:
- Ajout sujet et titre dans envoi de mail automatique via excel
- Liste déroulante excel - Guide
- Yahoo mail - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Formule excel - Guide
5 réponses
yg_be
Messages postés
22723
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 avril 2024
1 476
30 oct. 2020 à 12:57
30 oct. 2020 à 12:57
bonjour, quel logiciel utilises-tu pour envoyer des mails?
J'ai le pack Office 365, j'utilise l'enveloppe de Excel qui m'ouvre Outlook.
yg_be
Messages postés
22723
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 avril 2024
1 476
2 nov. 2020 à 13:46
2 nov. 2020 à 13:46
Oui, j'ai lu divers doc dessus mais lorsque j'ajoute ceci après "Application.Dialogs(xlDialogSendMail).Show"
ma macro plante.
Je pense que c'est tout bête mais je suis novice
ma macro plante.
Je pense que c'est tout bête mais je suis novice
yg_be
Messages postés
22723
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 avril 2024
1 476
2 nov. 2020 à 14:11
2 nov. 2020 à 14:11
ceci?
Sub EnvoiMail()
'
' Macro1 Macro
'
'
Sheets("Demande").Select
Sheets("Demande").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Dialogs(xlDialogSendMail).Show
With oBjMail
.To = "***@***"
.Subject = "test"
.Body = "texte du mail "
Windows("Fichier.xlsm").Activate
Sheets("Demande").Select
End Sub
'
' Macro1 Macro
'
'
Sheets("Demande").Select
Sheets("Demande").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Dialogs(xlDialogSendMail).Show
With oBjMail
.To = "***@***"
.Subject = "test"
.Body = "texte du mail "
Windows("Fichier.xlsm").Activate
Sheets("Demande").Select
End Sub
yg_be
Messages postés
22723
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 avril 2024
1 476
2 nov. 2020 à 14:26
2 nov. 2020 à 14:26
peux-tu préciser le message d'erreur, et à quelle ligne il se produit?
peux-tu utiliser les balises de code? https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
peux-tu ajouter une ligne avec
tu n'expliques pas de quoi tu t'es inspiré, mais il manque une partie du code.
peux-tu utiliser les balises de code? https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
peux-tu ajouter une ligne avec
option expliciten début de module?
tu n'expliques pas de quoi tu t'es inspiré, mais il manque une partie du code.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
J'ai un classeur avec divers feuille, quand je lance ma macro voici ce qu'elle effectue:
1- elle copie la feuille en valeur dans un nouveau classeur
2- depuis le classeur elle ouvre outlook, pour ajouter le fichier en PJ
cela donne la macro du haut.
Maintenant je souhaite simplement ajouter dans la macro le nom du destinataire, un sujet mais je ne sais ou l'insérer.
1- elle copie la feuille en valeur dans un nouveau classeur
2- depuis le classeur elle ouvre outlook, pour ajouter le fichier en PJ
cela donne la macro du haut.
Maintenant je souhaite simplement ajouter dans la macro le nom du destinataire, un sujet mais je ne sais ou l'insérer.
yg_be
Messages postés
22723
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 avril 2024
1 476
2 nov. 2020 à 15:08
2 nov. 2020 à 15:08
au lieu d'insérer un exemple dans ta macro, commence peut-être par faire fonctionner l'exemple sur ton ordi.