Macro Excel envoie de mail

Fermé
Geof-04 Messages postés 4 Date d'inscription mercredi 4 février 2015 Statut Membre Dernière intervention 5 février 2015 - 4 févr. 2015 à 10:52
Geof-04 Messages postés 4 Date d'inscription mercredi 4 février 2015 Statut Membre Dernière intervention 5 février 2015 - 5 févr. 2015 à 13:28
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.
A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 4/02/2015 à 11:52
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
0
Geof-04 Messages postés 4 Date d'inscription mercredi 4 février 2015 Statut Membre Dernière intervention 5 février 2015
4 févr. 2015 à 15:08
Du coup, tu as une solution pour moi ?
Même si je dois trouver un nouveau code ^^
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Geof-04 Messages postés 4 Date d'inscription mercredi 4 février 2015 Statut Membre Dernière intervention 5 février 2015
4 févr. 2015 à 16:15
Re,

les deux liens du message precedent!!!
0
Geof-04 Messages postés 4 Date d'inscription mercredi 4 février 2015 Statut Membre Dernière intervention 5 février 2015
5 févr. 2015 à 09:11
Ce code peut il marché sur mon excel qui est en francais alors que le code est en anglais sur le site que tu m'as envoyé?
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Geof-04 Messages postés 4 Date d'inscription mercredi 4 février 2015 Statut Membre Dernière intervention 5 février 2015
5 févr. 2015 à 09:47
Bonjour,

Vous plaisantez, je suppose!!!!!!!

Le code VBA excel est anglais meme si vous avez une installation en francais, pour preuve votre macro
0
Geof-04 Messages postés 4 Date d'inscription mercredi 4 février 2015 Statut Membre Dernière intervention 5 février 2015
5 févr. 2015 à 13:28
.... C'est vrai... C'est tellement intuitif que je n'avais même pas fait attention à ca...

Du coup, merci pour les conseils je vais m'en sortir avec ca

bonne journée
0