Envoie e-mail VBA

Le 23/03/2017 à 07:59

Bonjour,

J'envoi un rapport tous les jours via Excel et j'aimerais l'automatiser (chaque onglet Excel doit être envoyé, au total il y a 3 onglets). Dans la pièce jointe j'ai défini ce même fichier en cas les personnes concernées veulent le consulter. Par contre chaque foin quand j'envoie ce fichier, la pièces jointe s'ajoute, ctd le premier mail est correct (introduction message, personnes concernées, sujet de message, attachments), dans le deuxième mail introduction message, personnes concernées, sujet de message sont correctes, par contre dans les attachements le fichier apparait en double. J'aimerais éliminer cette erreur, mais je n'arrive malheureusement pas trouver la solution. Le code est identique pour chaque onglet, la seule chose qui change est les destinataires. Qqn pourrais m'aider dans ce démarche?

Merci d'avance

Sub Envoie_mail_MRBFG_management()

ThisWorkbook.Sheets("MRBFG").Activate

ActiveSheet.Range("A1:A60").Select

' la plage de cellules à envoyer

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Introduction = "Bonjour, voici le rapport hebdomadaire, zone 'MRBFG'."

.Item.To = "ekaterina@hotmail.com"

.Item.Subject = "Etat de situation MRBFG"

.Item.Attachments.Add "S:\\PCB_PUBLIC\REPORTS\MRB.xlsb"

.Item.send

End With

End Sub

Rechercher des sujets similaires à "envoie mail vba"