Probleme de code pour envoyer un mail sous lotus

cpeens

XLDnaute Occasionnel
bonjour à tous sa fais 3 jour que je suis toujour au meme point je souhaite dans un userform envoyer un mail pret formater avec lotus à une liste de destinataire présent dans ma listview ses destinataire sont variable en nombre et nom.

Mon probleme est que quand j'envois un seul destinataire sa va si j'en envois plus il me trouvent pas les destinataire

j'ai suivie certain conseil et creer un compteur de destinataire pour varié le nombre d'envois meme soucis

je vous es mis mon projet complet sur ce sujet macro userform comme chez moi

pouvez vous m'aider svp mes connaissance etant un peu juste je ne sais plus quoi faire merci d'avance
 

Pièces jointes

  • Classeur1.xls
    45.5 KB · Affichages: 49
  • Classeur1.xls
    45.5 KB · Affichages: 53
  • Classeur1.xls
    45.5 KB · Affichages: 63

chris

XLDnaute Barbatruc
Re : Probleme de code pour envoyer un mail sous lotus

Bonjour

Il faut toujours rester sur le même fil !

Je ne suis pas rentrée dans le détail de tout le code mais le correction suivante devrait résoudre

Code:
Sub EnvoiMail()
Dim EMailPJ As String
   Dim email(3) As String
  i = CInt((UserForm1.Nbdestinataire.Caption))
 

Statistiques des forums

Discussions
312 198
Messages
2 086 107
Membres
103 120
dernier inscrit
83400ren