Ajout sujet et titre dans envoi de mail automatique via excel
noterac
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai effectué une macro qui me copie un onglet excel qui contient des formules en valeur et qui le joins a un mail pour envoi.
Je bug sur la partie ajout d'un destinataire, sujet et contenu.
pouvez vous m'aider .
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
Windows("SFichier.xlsm").Activate
Sheets("Demande").Select
End Sub
J'ai effectué une macro qui me copie un onglet excel qui contient des formules en valeur et qui le joins a un mail pour envoi.
Je bug sur la partie ajout d'un destinataire, sujet et contenu.
pouvez vous m'aider .
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
Windows("SFichier.xlsm").Activate
Sheets("Demande").Select
End Sub
Configuration: Windows / Chrome 86.0.4240.111
A voir également:
- Application.dialogs(xldialogsendmail).show
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
- Si et excel - Guide
- Programmer envoi mail gmail - Guide
5 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, quel logiciel utilises-tu pour envoyer des mails?
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
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
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.
