Macro Excel envoie de mail
Geof-04
Messages postés
4
Statut
Membre
-
Geof-04 Messages postés 4 Statut Membre -
Geof-04 Messages postés 4 Statut Membre -
Bonjour,
Je suis pour mon travail censé créer une macro permettant d'envoyer une feuille excel par mail à 3 destinataires différents, qui sont indiqués dans la feuille.
J'ai réussi a créer le début du programme, la feuille est copié puis intégrer en pièce jointe au mail, les destinataires ainsi que l'objet du mail sont automatiquements envoyé, cependant, il me reste deux problèmes.
Dans un premier temps, j'aimerai savoir s'il est possible de changer le nom du fichier automatiquement intégré au mail (le fichier se nomme chaque fois "classeurX" j'aimerai le nommé "fiche évaluation")
Enfin, j'aimerai ajouté un corps de texte au mail du type :
"Bonjour,
Veuillez trouver ci-joint la fiche de synthèse opéré par l'accompagnateur au sujet des appels entrant.
Bien cordialement,"
Je vous joint mon code initial pour mieux comprendre :
Sub Envoie()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = Range("F5").Value
Destinataires(2) = Range("F6").Value
Destinataires(3) = Range("F7").Value
Sujet = "Fiche évaluation appel sortant"
AccuseReception = True
'Nom de la feuille
ThisWorkbook.Sheets("Feuil1").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub
Merci
PS1: Le but est de garder le plus possible la macro que j'ai déjà créé.
PS2: les code outlook ne fonctionne pas, je travaille avec Lotus.
Je suis pour mon travail censé créer une macro permettant d'envoyer une feuille excel par mail à 3 destinataires différents, qui sont indiqués dans la feuille.
J'ai réussi a créer le début du programme, la feuille est copié puis intégrer en pièce jointe au mail, les destinataires ainsi que l'objet du mail sont automatiquements envoyé, cependant, il me reste deux problèmes.
Dans un premier temps, j'aimerai savoir s'il est possible de changer le nom du fichier automatiquement intégré au mail (le fichier se nomme chaque fois "classeurX" j'aimerai le nommé "fiche évaluation")
Enfin, j'aimerai ajouté un corps de texte au mail du type :
"Bonjour,
Veuillez trouver ci-joint la fiche de synthèse opéré par l'accompagnateur au sujet des appels entrant.
Bien cordialement,"
Je vous joint mon code initial pour mieux comprendre :
Sub Envoie()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = Range("F5").Value
Destinataires(2) = Range("F6").Value
Destinataires(3) = Range("F7").Value
Sujet = "Fiche évaluation appel sortant"
AccuseReception = True
'Nom de la feuille
ThisWorkbook.Sheets("Feuil1").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub
Merci
PS1: Le but est de garder le plus possible la macro que j'ai déjà créé.
PS2: les code outlook ne fonctionne pas, je travaille avec Lotus.
A voir également:
- Macro Excel envoie de mail
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Windows live mail - Télécharger - Mail
- Si ou excel - Guide
1 réponse
Bonjour,
SendMail: pas de corps de message possible
a voir:
http://excelitems.com/2011/01/send-lotus-notes-email-vba-excel.html
ou
https://www.commentcamarche.net/faq/36411-vb6-vba-envoi-mail-avec-l-objet-cdo
SendMail: pas de corps de message possible
a voir:
http://excelitems.com/2011/01/send-lotus-notes-email-vba-excel.html
ou
https://www.commentcamarche.net/faq/36411-vb6-vba-envoi-mail-avec-l-objet-cdo
Même si je dois trouver un nouveau code ^^
les deux liens du message precedent!!!
Vous plaisantez, je suppose!!!!!!!
Le code VBA excel est anglais meme si vous avez une installation en francais, pour preuve votre macro
Du coup, merci pour les conseils je vais m'en sortir avec ca
bonne journée