Envoi mail idendique à plusieurs destinataires sans vba

[Kaza2525]

Bonjour,

Je souhaite créer un fichier Excel avec un lien ou bouton hypertexte qui permet d’envoyer un mail identique à plusieurs destinataires sans formule vba.J’espere aoir ete assez claire dans ma demande.
Merci d’avance
Classeur_essai_mail.xlsx (9,2 Ko)

[Jacquinot_WILL-FREAD]

Bonjour,
Sans VBA, il vous faut un publipostage Word.
Cordialement

[Kaza2525]

Bonjour,

Pouvez vous m’envoyer la formule VBA?
Je vais essayer de la reproduire.

Cordialement

[taz067]

@Kaza2525

Pouvez vous m’envoyer la formule VBA?
Je vais essayer de la reproduire.

Sub envoiMail()
'  **********************************************************
'  * VERIFIER EN ALLANT SUR OUTILS --> REFERENCES, QUE      *
'  * MICROSOFT OUTLOOK xx.x SOIT OBJECT LIBRARY SOIT COCHE  *
'  **********************************************************

  Dim Contenu$
  Dim MaMessagerie As Object
  Dim MonMessage As Object
  Set MaMessagerie = CreateObject("Outlook.Application")
  Set MonMessage = MaMessagerie.createitem(0)
  MonMessage.SentOnBehalfOfName = "aaaa@gmail.com"        '********* ADRESSE EXPEDITEUR *********
  MonMessage.To = "bbbbb@orange.fr"                       '********* ADRESSE DESTINATAIRE *******
  MonMessage.BCC = "cccc@gmail.com"                       '********* ADRESSE MAIL CCI ***********
  MonMessage.Subject = "sujet du message"                 '********* OBJET MAIL *****************
  
          '********* TEXTE MAIL **************
          Contenu = "Salut y,"
          Contenu = Contenu & Chr(10) & Chr(13)
          Contenu = Contenu & "Bonjour, Veuillez en PJ la fiche d'activation  ou de désactivation des mesures."
          Contenu = Contenu & Chr(10) & Chr(13)
          Contenu = Contenu & "y"
          Contenu = Contenu & VBA.Chr(10) & VBA.Chr(13)
          Contenu = Contenu & VBA.Chr(10) & VBA.Chr(13)
          Contenu = Contenu & VBA.Chr(10) & VBA.Chr(13)
          Contenu = Contenu & VBA.Chr(10) & VBA.Chr(13)
          Contenu = Contenu & "Mail généré automatiquement"
  MonMessage.body = Contenu
  MonMessage.send
  Set MaMessagerie = Nothing
  MsgBox "Le Mail a bien été envoyé"                               '********* MESSAGE DE CONFIRMATION D'ENVOI MAIL **************
End Sub

[Johnny]

Bonjour,

Ci joint une premiere approche

Mes salutations
Johnny

[Kaza2525]

Bonjour,

Merci pour le retour, je vais essayer