Envoi mail : destinataires dans une colonne

[ananar]

Bonjour à toutes et à tous,

Je dois envoyer un mail en copie cachée à une liste de destinataires.
Cette liste se trouve dans une colonne (sa longueur peut varier).

Je n'arrive pas à sélectionner, copier cette liste et à la coller dans [.BCC =].

J'ai parcouru le forum et je n'ai pas trouvé de solution à mon problème 😱
Alors, je m'en remets à votre expertise.

En PJ, mon fichier.

D'avance merci pour vos réponses.

Bien cordialement,

 

[Guest]

Re : Envoi mail : destinataires dans une colonne

Bonjour;

Voici une fonction qui te renverras une chaine de caractères formée par la liste des destinataires, séparés par un ";".

Function GetDestinataires()
Dim  Destinataires As String
With ThisWorkbook.Sheets("mail")
 GetDestinataires = Join(Application.Transpose(.Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value), ";")
End With
End Function

Dans la macro l'utiliser comme suit:

Dim ListeDestinataire As String
ListeDestinataire = GetDestinataires()

A+

 

[pierrejean]

Re : Envoi mail : destinataires dans une colonne

bonjour ananar

Je n'utilise pas Outlook , je n'ai donc pas testé en vraie grandeur

Edit: salut Hasco 🙂

 

[ananar]

Re : Envoi mail : destinataires dans une colonne [RESOLU]

Bonjour Hasco et pierrejean,

Merci pour vos réponses.

C'est exactement ce qu'il me fallait 🙂

Bonne fin de journée.

Bien cordialement,