Envoi adresse mail après filtre

[gourdin]

Bonjour,

Sur le forum, j’ai trouvé ce code pour mettre 100 adresses mail de ma colonne A comme destinataires. Cela fonctionne très bien.

Sub envoi_mail()
Dim Adresse As Range
Dim MailAd As String
Dim URLto As String
For Each Adresse In Range("A1:A100")
If Not IsEmpty(Adresse) Then
MailAd = MailAd & Adresse.Text & ";"
End If
Next
URLto = "mailto:" & MailAd
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Mais, par exemple, en filtrant des colonnes de mon tableau, ne s’affiche que 20 adresses mail (qui ne sont pas des cellules à la suite les unes des autres dans la colonne)
Il y t-il un code qui ne prennent en compte que les cellules filtrés et donc uniquement ces 20 adresses comme destinataires ?

 

[Guest]

Re : Envoi adresse mail après filtre

Bonjour,

A tester

Sub envoi_mail()
Dim Adresse As Range
Dim MailAd As String
Dim URLto As String
For Each Adresse In Range[B]("A1:A100")[/B]
[COLOR=red]If Adresse.EntireRow.Visible And[/COLOR] Not IsEmpty(Adresse) Then
MailAd = MailAd & Adresse.Text & ";"
End If
Next
URLto = "mailto:" & MailAd
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

A+

 

[gourdin]

Re : Envoi adresse mail après filtre

Merci

mais cela ne fonctionne pas et envoi un message d'erreur pour la ligne :

If Adresse.EntireRow.Visible And Not IsEmpty(Adresse) Then

J'ai joint un fichier

 

[Guest]

Re : Envoi adresse mail après filtre

Re,

Je m'ai gouré, voici qui est corrigé:

    For Each Adresse In Range("A1:A100")
        If Not Adresse.EntireRow.[COLOR=red]Hidden[/COLOR] And Not IsEmpty(Adresse) Then
            MailAd = MailAd & Adresse.Text & ";"
        End If
    Next

A+

 

[gourdin]

Re : Envoi adresse mail après filtre

Merci beaucoup

Petit hic ..., au dessus d'un certain nombre de destinataires (environ 40) ou de caractères ? il y a message d'erreur à la ligne :

ActiveWorkbook.FollowHyperlink Address:=URLto

Une solution ?

Merci

 

[chris]

Re : Envoi adresse mail après filtre

Bonjour

La longueur cumulée des adresses doit effectivement dépasser la limite.

Il faudrait sans doute ne pas mettre tous les destinataires dans le même mail mais découper tous les 10 ou 20 destinataires.

 

[gourdin]

Re : Envoi adresse mail après filtre

C'est dommage, ca complique un peu.

S'agit t-il d'une limite imposée par outlook ?

Un moyen de passer outre ?

Merci