Copie caché envoi mail
Bonjour,
Le code ci-dessous fonctionne bien, sauf la copie caché...
La macro ne plante pas mais le mail ne part à l'adresse en copie cachée indiquée
Quelqu'un a une idée ?
merci
Sub ENVOI_MAIL()
'
' ENVOI_MAIL
'
Dim objMail As Outlook.MailItem ' Active la télécommande
Set objOL = Outlook.Application ' Avtive Outlook
Set objMail = objOL.CreateItem(olMailItem) ' Active le contenu du mail
'
'Test démarage envoi mail
'
Rep = MsgBox("ATTENTION vous allez envoyer les mails, confirmer ?", vbYesNo + vbQuestion, "mDF XLpages.com")
If Rep = vbNo Then
Exit Sub
Else
GoTo 30
End If
30 ' Suite
'
'Définition de la boite mail expéditrice
EXP_MAIL = Range("C6").Value
'Test expéditeur mail
'Objet du mail
OBJET_MAIL = Range("C8").Value
'Texte du mail
DEBUT_MAIL = Range("C12").Value
PARAGRA1_MAIL = Range("C14").Value
PARAGRA2_MAIL = Range("C16").Value
PARAGRA3_MAIL = Range("C18").Value
PARAGRA4_MAIL = Range("C20").Value
PARAGRA5_MAIL = Range("C22").Value
SIGNA1_MAIL = Range("C24").Value
SIGNA2_MAIL = Range("C25").Value
SIGNA3_MAIL = Range("C26").Value
SIGNA4_MAIL = Range("C27").Value
'Boucle d'envoi
nbr_ligne = 2
Sheets("LISTE").Select
While Cells(nbr_ligne, 1) <> ""
DEST_MAIL = Cells(nbr_ligne, 3).Value
'Test mail
Call TEST_ADRESSE_MAIL
If Cells(nbr_ligne, 4) = "OK" Then GoTo 20 Else GoTo 10
20 'Suite si Test mail OK
'Objet du message
Set objMail = objOL.CreateItem(olMailItem)
objMail.Subject = OBJET_MAIL
'Expéditeur du message
objMail.SentOnBehalfOfName = EXP_MAIL
'Destinataire du message
objMail.To = DEST_MAIL
'Destinataire copie caché
objMail.BCC "essai@yahoo.fr"
'Texte du message
objMail.Body = DEBUT_MAIL & vbCr & vbCr & PARAGRA1_MAIL & vbCr & PARAGRA2_MAIL & vbCr & PARAGRA3_MAIL & vbCr & PARAGRA4_MAIL & vbCr & PARAGRA5_MAIL & Chr(13) & Chr(13) & Chr(13) & SIGNA1_MAIL & Chr(13) & SIGNA2_MAIL & Chr(13) & SIGNA3_MAIL & Chr(13) & SIGNA4_MAIL
'Envoi du message
objMail.Send
'
10 ' Suite si test mail KO
nbr_ligne = nbr_ligne + 1
'
Wend
'Set objMail = Nothing
'
Sheets("DEBUT").Select
End sub
Bonjour,
il me semble qu'il manque un signe = dans ton instruction .bcc
Heu.....comment dire....
Je vais aller me recoucher, c'est mieux.....
MERCI !!!!!!!