[VBA] Envoi mail plusieurs destinataires

Résolu
Gwen38 -  
 Gwen38 -
Bonjour,
Je suis un newbie en prog et j'ai fait une petite application afin d'envoyer un message sur l'évolution de projet à un service contenant plusieurs personnes. Le voici : 

Sujet = "Informations Achats concernant " & Me.NomProduit & " du projet " & Me.NomProjet
Corps = "Bonjour, " & vbCr & vbCr & Me.CommentaireACH & vbCr & vbCr & "Cordialement "
'Envoi au 1er service concerné
If Not IsNull(Me.TransmisAACH) Then
    MonSQL = "SELECT Adressedemessagerie "
    MonSQL = MonSQL & "FROM T_Services INNER JOIN T_Contacts ON T_Services.NumService = T_Contacts.Service "
    MonSQL = MonSQL & "WHERE T_Services.NumService = " & Me.TransmisAACH & "; "
    Set rs = CurrentDb.OpenRecordset(MonSQL, dbOpenDynaset)
    Do While Not rs.EOF
        Mail = rs("Adressedemessagerie")
        DoCmd.SendObject acSendNoObject, , , Mail, , , Sujet, Corps, False
        rs.MoveNext
    Loop
    Else
    Reponse = MsgBox("Vous n'avez pas choisi de service pour la diffusion.", vbInformation, "Problème d'envoi")
    DoCmd.CancelEvent
    DoCmd.GoToControl ("TransmisAACH")
    Me.TransmisAACH.Dropdown
    Exit Sub
End If

Je suis obligé d'envoyer le message à chaque boucle car il ne garde pas en mémoire.
Y a t il plus simple?
Je vous remercie de votre réponse.
Configuration: Windows 2003
Internet Explorer 7.0

1 réponse

  1.
    blux Messages postés 2046 Date d'inscription   Statut Modérateur Dernière intervention   3 455
     
    Salut,

    je n'ai pas compris ton problème, notamment ici :

    Je suis obligé d'envoyer le message à chaque boucle car il ne garde pas en mémoire.
    qu'est ce qui n'est pas gardé en mémoire ?
    0
    1. Gwen38
       
      Je voulais que pendant la boucle il garde le mail en mémoire afin de l'incrémenter au champ Mail à la fin.

      Ex : 1ère boucle il trouve truc@machin.fr
      2ème boucle il trouve machin@truc.fr

      Et a la fin il concatene : Mail = truc@machin.fr; machin@truc.fr

      Comment faire?
      0
    2. blux Messages postés 2046 Date d'inscription   Statut Modérateur Dernière intervention   3 455 > Gwen38
       
      dans ta boucle, tu supprimes ton DoCmd.SendObject et tu mets :

      mail = mail & rs("Adressedemessagerie") & ";"

      dès que tu sors de ta boucle, tu supprimes le ; en trop à la fin

      mail = left(len(mail)-1)

      et ensuite tu fais ton DoCmd.SendObject
      0
    3. Gwen38 > blux Messages postés 2046 Date d'inscription   Statut Modérateur Dernière intervention  
       
      Je te remercie beaucoup. J'ai copié ce que tu m'as écrit. je ne sais pas si ca marche mais il me dit que le Len n'est pas un argument facultatif. Qu'est ce que cela veut dire?
      0
    4. blux Messages postés 2046 Date d'inscription   Statut Modérateur Dernière intervention   3 455 > Gwen38
       
      je me suis trompé :

      c'est plutôt :

      mail = left(mail,len(mail)-1)
      0
    5. Gwen38 > blux Messages postés 2046 Date d'inscription   Statut Modérateur Dernière intervention  
       
      Ca marche bien pour 2 mails mais lorsque ca repart pour un tour. Il me dit qu'il n'y a pas d'enregistrement. Voilà comment je l'ai réécrit : 
      Do While Not rs.EOF
            Mail = rs("Adressedemessagerie")
            rs.MoveNext
            Mail = Mail & "; " & rs("Adressedemessagerie") & ";"
        Loop
    Mail = Left(Mail, Len(Mail) - 1)
    DoCmd.SendObject acSendNoObject, , , Mail, , , Sujet, Corps, False


      Me suis je trompé?
      0

Discussions similaires

Envoi sms à plusieurs contacts sans passer par un groupe
guynemer95 -
guynemer95 -

8 réponses
SMS à plusieurs destinataires
Utilisateur anonyme -
Benji 972 clm -

3 réponses
Echec d'envoi message sur Messenger
Kris68 -
Colibri -

2 réponses
Rétrodiffusion "Mail Delivery System"
baissaoui -
baissaoui -

0 réponse