E-mail, avec plusieur destinataire en copie caché

Bonjour à tous.

Voila quelque mois que je me suis mis aux joies du VBA. et pour l'instant le web (votre forum entre autre) répond habituellement à mes questions.

Mais là, je ne trouve pas, et j'ai pourtant l'impression que mon problème n'est pas si compliqué.

J'ai un fichier de suivis de mes fournisseurs, suite au Covid 19, il me permet de suivre leur fermeture, ouverture, l'impact chez eux, et ou de leur propre sous traitant, et encore plein d'autre chose...

Bref l'idée est de pouvoir crée un mail avec toutes les adresses du fichier en copie caché.

alors voila ce que j'ai écrit:

=======================================

Private Sub CommandButton1_Click()

Dim Lemail As Variant

Set Lemail = CreateObject("Outlook.application")

With Lemail.CreateItem(olMailItem)

.Subject = "Covid 19"

.To = Range("a1")

.BCC = Range("C2")

.Body = "effacer et ecrire le message"

.Display

End With

End Sub

=======================================

Mais voila dans mon exemple je ne peux mettre qu'un e-mail en copie cachée, j'ai bien essayé "C2:Cxx")...

Comment faire pour y mettre une liste d'e-mail, issue d'un tableau

Encore mieux, une liste issue d'un filtre du tableau: exemple que les fournisseurs ouvert.

Merci de votre aide.

bonjour,

une manière de faire

xx=5 'à adapter
.bcc=Join(Application.Transpose(Application.Transpose(Range("c2:C"& xx).Value)), ";")

Désolé la ligne ressort dans le debogage, j'ai ecrit:

==============

With Lemail.CreateItem(olMailItem)

.Subject = "Covid 19"

.To = Range("a1")

xx = 5

.BCC = Join(Application.Transpose(Application.Transpose(Range("c2:c" & xx).Value)), ";")

.Body = "effacer et ecrire le message"

.Display

End With

================

la ligne .BCC...... ressort en jaune.

bonjour,

effectivement pour des données en colonne voici

xx=5 'à adapter
.bcc=Join(Application.Transpose(Range("c2:c" & xx).Value), ";")

super merci ca fonctionne.

alors maintenant si je peux me permettre, peut-on complexifié le truc, pour que les destinataires soit ceux issue d'un filtre de colonne.

Du style: j'ai des fournisseurs "ouvert", et des "fermé". Des e-mail pour tous le monde.

Je fais mon filtre sur "ouvert", et j'envoie qu'a ceux la.

Merci de votre aide

bonjour,

il faut adapter le code.

voici une possibilité

  xx = 5 'à adapter
    liste = ""
    For Each adresse_mail In Range("c2:c" & xx).SpecialCells(xlCellTypeVisible)
        liste = liste & adresse_mail & ";"
    Next adresse_mail
    .bcc = liste

Vous êtes trop fort.

Merci encore pour votre aide.

Rechercher des sujets similaires à "mail destinataire copie cache"