Re Bonjour à tous je viens une fois de plus vous embetez
j'utilise ce code pour envoyer un mail via lotus
les adresse mail sont fournie par une listview ce qui me permet d'envoyer plusieur jusqu'a 8 mail à la fois .
le soucis c'est que j'ai pas toujour 8 mail à envoyer et que du moment ou celui ci n'est pas renseignée j'ai une erreur index out of bounds
j'ai essayer de mettre donc un erreur resume next mais j'ai toujour cette erreur à l'endrois ou l'adresse mail n'est plus renseignée
ma question est comment puis je faire pour palier à cette erreur svp merci
j'utilise ce code pour envoyer un mail via lotus
Code:
Sub EnvoiMail()
Dim EMailPJ As String
Dim Email(8) As String
EMailPJ = ThisWorkbook.Path & "\Temp.xls"
Email(1) = (UserForm1.ListView1.ListItems(1).ListSubItems(1).Text)
Email(2) = (UserForm1.ListView1.ListItems(2).ListSubItems(1).Text)
On Error Resume Next
Email(3) = (UserForm1.ListView1.ListItems(3).ListSubItems(1).Text)
Email(4) = (UserForm1.ListView1.ListItems(4).ListSubItems(1).Text)
Email(5) = (UserForm1.ListView1.ListItems(5).ListSubItems(1).Text)
Email(6) = (UserForm1.ListView1.ListItems(6).ListSubItems(1).Text)
Email(7) = (UserForm1.ListView1.ListItems(7).ListSubItems(1).Text)
Email(8) = (UserForm1.ListView1.ListItems(8).ListSubItems(1).Text)
' Boucle pour envoyer les mails
For z = 1 To 8
Application.StatusBar = "Envoi du mail à " & Email(z)
EnvoiRef = prvSendNotes(("Alerte accident lié au travail d'un agent(e) de la CCIV"), EMailPJ, Email(z), SaveIt:=False)
Next z
End Sub
les adresse mail sont fournie par une listview ce qui me permet d'envoyer plusieur jusqu'a 8 mail à la fois .
le soucis c'est que j'ai pas toujour 8 mail à envoyer et que du moment ou celui ci n'est pas renseignée j'ai une erreur index out of bounds
j'ai essayer de mettre donc un erreur resume next mais j'ai toujour cette erreur à l'endrois ou l'adresse mail n'est plus renseignée
ma question est comment puis je faire pour palier à cette erreur svp merci