VB et les adresses mails - Page 2

Précédent
  • 1
  • 2
Réponse 21 / 21
romsec
 
Bonjour, j'ai écrit le code ci dessous pour envoyer automatiquement des mails à des adresses situés dans une colonne Excel.
Mais j'ai un message d'erreur car j'ai trop d'adresses.
J' ai donc fait 2 boutons pour séparer la liste d'adresse en 2,mais
si une adresse est présente dans la première partie de la colonne il la reprend dans le deuxième envoi.
Qd je n'avai qu'un mail il ne prenait pas les doublons ???
Premier code:

Sub MailsCciaux()
Dim obj As String
Dim mes As String
Dim myStr As String
For i = 3 To 82
If InStr(myStr, Trim(Cells(i, 11))) = 0 Then
myStr = myStr & Cells(i, 11) & ";"
End If
Next
myStr = Left(myStr, Len(myStr) - 1)
obj = InputBox("Objet du message")
mess = InputBox("Entrer le message")
adresse = myStr
URLto = "mailto:" & adresse & "?subject=" & obj & "&body=" & mess
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub

Deuxième code:

Sub MailsCciaux2()
Dim obj As String
Dim mes As String
Dim myStr As String
For i = 83 To 160
If InStr(myStr, Trim(Cells(i, 11))) = 0 Then
myStr = myStr & Cells(i, 11) & ";"
End If
Next
myStr = Left(myStr, Len(myStr) - 1)
obj = InputBox("Objet du message")
mess = InputBox("Entrer le message")
adresse = myStr
URLto = "mailto:" & adresse & "?subject=" & obj & "&body=" & mess
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub

Merci
0
Précédent
  • 1
  • 2

Discussions similaires

comment retrouver toutes les adresses mail que j'ai créé
LilouDeMontigny -
Xileh -

3 réponses
afficher mes adresse email
philippe 95 -
Angele -

4 réponses
comment retrouver sur mon ordinateur toutes les adresse mail
papaz34 -
Marie -

2 réponses
Mails supprimés qui reviennent
ostin -
ostin -

3 réponses
Mail supprimé et dans la corbeille revient toujours
MmeKarose58 -
Louisem -

3 réponses