Cacher les adresses mails

[Tophe2]

Bonjour le forum et mes meilleurs voeux pour 2008

En fin d'année on m'a aidé pour réaliser un fichier avec un envoi de mail collectif via excel sur Outlook.

Cela fonctionne correctement, cependant j'aimerai pouvoir masquer ou cacher le(s) nom(s) des destinataires afin que les adresses mails ne s'affichent pas lors de l'envoi et donc la réception du message.

J'ai chercher un peu sur le forum mais je n'ai pas trouvé d'information.

Merci pour votre
Cordialement
Christophe.

 

[TheLio]

Re : Cacher les adresses mails

Hello, les lignes en rouge à ajouter à ton code:

Sub Message1()
Dim I As Integer, MailTo As String, MailCC As String, [COLOR="Red"]MailBCC As String[/COLOR]
Dim vPJ, vPJ1, vPJ2, vPJ3, vPJ4, vPJ5, vPJ6, vPJ7, vPJ8, vPJ9, vLigne
Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItem
Set OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)

For I = 15 To 200 ' Il y a sur le forum de quoi regarder _
  quelle est la dernière cellule remplie, mais comme je _
  n'ai jamais testé, je mets 100 par exemple
If Cells(I, 10) = "X" Then
    MailTo = MailTo & Cells(I, 9) & ";" ' 3 pour regarder _
  ta colonne C si c'est là où est l'adresse, à modifier pour ton cas
End If
If Cells(I, 10) = "C" Then
    MailCC = MailCC & Cells(I, 9) & ";"
End If
[COLOR="Red"]If Cells(I, 10) = "I" Then
    MailBCC = MailBCC & Cells(I, 9) & ";"
End If[/COLOR]
Next I
ObjetMessage = Cells(2, 4)
 'Récup. message, avec sauts de ligne
    For Each vLigne In [F2:F13]
        CorpsMessage = CorpsMessage & vLigne & vbLf
    Next
vPJ = Range("I3")
vPJ1 = Range("I4")
vPJ2 = Range("I5")
vPJ3 = Range("I6")
vPJ4 = Range("I7")
vPJ5 = Range("I8")
vPJ6 = Range("I9")
vPJ7 = Range("I10")
vPJ8 = Range("I11")
vPJ9 = Range("I12")
With OLMail
          .To = MailTo ' Destinataire
          .CC = MailCC ' Copie
         [COLOR="Red"] .BCC = MailBCC ' Invisible[/COLOR]
          .Importance = olImportanceNormal
          .Subject = ObjetMessage ' Sujet
          .Body = CorpsMessage ' Message
     '''''''''''     .Attachments = vPJ            'Pièce jointe
       On Error Resume Next
 
          For J = 3 To 12
                If Range("I" & J).Value <> "" Then
                  .Attachments.Add Range("I" & J).Value 'j'ai juste ajoute cela
                End If
          Next J
          .Categories = "Daily"
          .OriginatorDeliveryReportRequested = True ' Accusé de dépôt
          .ReadReceiptRequested = True ' Accusé de lecture
'          .Send '<<<<<<<<<<<<<<<Pour envoyer directement
         .Display '<<<<<<<<<<<<<Pour voir le mail avant envoi
    End With

End Sub

Notifier de "I" pour le mode Invisible.
Attention, le mail ne partira pas si tu n'as pas mis un destinataire (ton adresse= Idéal)

A++
TheLio

 

[alutili]

Re : Cacher les adresses mails

bonjour,
super ce petit fichier !!!!
mais comment l'adapter à windows mail sous VISTA ?
merci
Ludo