VBA choix destinataire Mail

Bonjour,

J'ai de nouveau besoin de votre savoir.

J'ai un fichier avec VBA pour envoie de mail, je souhaiterai que lorsque l'on clic sur le bouton de mail, cela ouvre un userform et que je puisse choisir à qui j'envoie et même de pouvoir rajouter un bouton dans cette Userform pour dire "à tous"

Merci de votre aide.

10vbamaildesti.xlsm (22.19 Ko)

Bonjour Tryomph

Voici le fichier avec code modifié

A+

Bonjour Bruno,

Merci pour ton aide, par contre lorsque je coche une seul adresse, et je fait envoyer, cela m'ouvre nouveau message 3 fois (une part adresse mail)

image image

Re,

Oups, j'ai quelque peu oublié le test

  For Each Ctl In Me.Controls
    If Not TypeOf Ctl Is MSForms.CheckBox Then GoTo SuiteCtl
    ' Vérifier si Checkbox est cochée
    If Ctl.Value = False Then GoTo SuiteCtl

Je change le fichier du post précédent

A+

Super Bruno, c'est top, un grand merci.

Bruno, une interrogation,

Si je souhaite que les contacts soient en CCi, je l'indique comment au code ?

Merci

Re,

    With OutMail
      .Display  ' pour avoir la signature
      '.To = ""
      '.CC = ""
      .BCc = Ctl.Caption

A+

super, merci.

encore autre chose, les retours à la ligne de ce font pas :

 MonContenu = "Bonjour," & vbNewLine & vbNewLine & _
        "Merci de me donner votre solution  :" & vbNewLine
      .HTMLbody = MonContenu & Corps
image

Re,

Normalement en HTML, les retours à la ligne se code <br>

 MonContenu = "Bonjour, <br> Merci de me donner votre solution  : <br>"
.HTMLbody = MonContenu & Corps

A+

Super,

Merci pour les explications.

Zut, j'avais mal testé, désolé de te déranger Bruno, mais lorsque je sélectionne tous les contacts, j'aimerai qu'ils soient tous mis en CCi > un seul mail pour tous, là le code m'ouvre autant de mail que de contact coché !

Merci encore.

Re,

Il serait bien d'être plus explicite la prochaine fois, merci d'y faire attention SVP

Un sujet marqué comme [résolu], devrait l'être

Sub CréerMail()
  Dim OutApp As Object, OutMail As Object
  Dim MonContenu As String
  Dim Dest As String
  '
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  ' Créer une instance Outlook
  Set OutApp = CreateObject("outlook.application")
  ' Pour chaque CheckBox
  Dim Ctl As Control
  For Each Ctl In Me.Controls
    ' Vérifier si le contrôle est un CheckBox
    If TypeOf Ctl Is MSForms.CheckBox Then
      ' Vérifier si Checkbox est cochée
      If Ctl.Value = True Then
        ' Ajouter le destinataire
        Dest = Dest & Ctl.Caption & ";"
      End If
    End If
  Next Ctl
  ' Créer le mail
  Set OutMail = OutApp.CreateItem(0)
  With OutMail
    .Display  ' pour avoir la signature
    '.To = ""
    '.CC = ""
    .BCc = Dest
    '.Attachments.Add (PDF)
    .Subject = Feuil1.Range("B9").Value & " " & Feuil1.Range("B13").Value & " " & Feuil1.Range("B12").Value & " " & ">" & " " & Feuil1.Range("B1").Value & " " & Feuil1.Range("B19").Value & " " & Feuil1.Range("B20").Value
    MonContenu = "Bonjour, <br>" _
      & "Merci de me donner votre solution  : <br>"
    .HTMLbody = MonContenu & .HTMLbody
    '.Send '(pour envoi direct)
  End With
  Set OutMail = Nothing
  Set OutApp = Nothing
  Application.ScreenUpdating = True
  Application.EnableEvents = True
End Sub

A+

Ok, je clôture le sujet !

merci.

@+

Rechercher des sujets similaires à "vba choix destinataire mail"