Macro pour envoyer par email à plusieurs destinataire

[hellocarioca]

Bonjour,

je voudrais savoir s'il est possible dans une macro de sauvegarde de rajouter un systeme pour envoyer par email à plusieurs destinataires...

Si oui comment on fait??

Merci

Maud 🙂

 

[JNP]

Re : Macro pour envoyer par email à plusieurs destinataire

Bonjour hellocarioca 🙂,
Avant toute nouvelle question, il est prudent de consulter la recherche (dans la 2° barre ci-dessus)...
Tu aurais pu trouver (entre autre) le fil ci-joint:
https://www.excel-downloads.com/thr...-jointe-et-envoi-par-mail-depuis-excel.83413/
que j'avais ouvert il y a quelques temps car je cherchais le même type de solution, et qui devrait répondre à ta question.
Pour le compléter par rapport à ta demande, vu que tu veux envoyer une sauvegarde, il faut le compléter par un enregistrement automatique:

    ActiveWorkbook.Save

avant de l'envoyer en pièce jointe afin d'avoir la dernière version.
Bon courage 😎

 

[argon1515]

Re : Macro pour envoyer par email à plusieurs destinataire

Bonjour,
Une syntaxe simple que j'utilise, sinon il faut faire une recherche dans les archives du forum.

Sauve le fichier
ActiveWorkbook.SaveAs Filename:="C:\BBG\Essai_" & Format(DateAdd("D", -1, Date), "DDMMYYYY") & ".xls"
Envoi le mail
ActiveWorkbook.SendMail Recipients:=Array("toto1.titi@ess.com", "toto2.titi@ess.com", "toto3.titi@ess.com"),
Subject:="titre du mail"
Ferme le fichier
ActiveWorkbook.Close

Bonne journée

 

[hellocarioca]

Re : Macro pour envoyer par email à plusieurs destinataire

🙂Bonjour !

Alors y a un problème... qd je rentre la syntaxe tout devient rouge et il me dit que y a pas de "end of statement"

J'arrive pas à mettre le fichier en piece jointe, je sais pas pkoi il est trop gros...meme compressé !
Est ce que tu crois que tu pourrais me faire un exemple sur excel que je vois à koi ça doit ressembler qd ça marche!

Merci bcp

Maud

 

[matthieu33]

Re : Macro pour envoyer par email à plusieurs destinataire

Bonjour Maud,

Voici ce qu'il faut mettre :

ActiveWorkbook.SaveAs Filename:="C:\BBG\Essai_" & Format(DateAdd("D", -1, Date), "DDMMYYYY") & ".xls"
ActiveWorkbook.SendMail Recipients:=Array("toto1.titi@ess.com", "toto2.titi@ess.com", "toto3.titi@ess.com"), Subject:="titre du mail"
ActiveWorkbook.Close

@+

 

[hellocarioca]

Re : Macro pour envoyer par email à plusieurs destinataire

Re bonjour Matthieu !

Merci ça y est ça marche !!

merci

maud 😀

 

[Julaf]

Re : Macro pour envoyer par email à plusieurs destinataire

bonjour a tous,
J'essaie d'appliquer cette macro sur excel 2007, et je ne recois jamais le mail, la version d'outlook que j'utilise est un outlook web access.

Y a-t-il quelque chose de specifique a rajouter pour que cela fontionne ??

Merci

 

[Julaf]

Re : Macro pour envoyer par email à plusieurs destinataire

Pas de reponses.
Mon soucis, c'est que je veux que quelqu'un qui n'ai pas de gestionnaire de mail puisse tout de meme envoyer un mail. (genre qqn qui a hotmail...)
Est ce possible ??
Merci

 

[Julaf]

Re : Macro pour envoyer par email à plusieurs destinataire

oki j'ai trouve la solution
il faut declarer un CDO, qui se sert du protocole SMTP pour envoyer le mail, plus de soucis. La seule chose c'est que maintenant je ne sais pas comment ajouter un fichier au mail :$

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "your smtp"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

strbody = "Test" & vbNewLine & vbNewLine & _
"Line 1" & vbNewLine & _
"Line 2"


With iMsg
Set .Configuration = iConf
.To = "email@email.com"
.From = """from"" <email@email.com>"
.Subject = "subject"
.TextBody = strbody
.Send
End With

End Sub