Bonjour à tous,
Une petite bizarrerie que je ne m'explique pas...
Le code suivant fonctionne sous Lotus Notes et me permet d'envoyer des mails sous cette forme depuis quelques années.
Mais dans le cadre de mon travail, j'ai migré sur Outlook 2013, le code fonctionne mais ne s'applique pas pour les destinataires en copie cachée (Cci), il me met dans les destinataires en copie (Cc) avec la valeur suivante : &Bcc="Dupont"
Private Sub CommandButton2_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("C70")
C_Cachee = Range("c71")
Range("E72:L78").Select
Selection.Copy
Subj = "DEVIS NON RECEPTIONNE - DOSSIER : " & Range("C6")
Msg = Msg & "Bonjour " & ",%0D%0A %0D%0A"
Msg = Msg & "Rappel du descriptif de la demande : " & "%0D%0A %0D%0A"
Msg = Msg & "Cordialement," & "%0D%0A" & "Et1000lio" & "%0D%0A" & "Nom Entreprise" & "%0D%0A" & "Adesse 1" & "%0D%0A" & "Adresse 2" & "%0D%0A" & "Tel. O2 00 00 00 00" & "%0D%0A"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg & "&Cc=" & "&Bcc=" & C_Cachee
ActiveWorkbook.FollowHyperlink Address:=URLto
ActiveWorkbook.FollowHyperlink Address:=Sheets("0 - RECAPITULATIF PRIX").Range("e69"), NewWindow:=True
Range("c4").Select
Unload Me
End Sub
Donc j'ai "tripatouillé" ce code et modifiant la ligne suivante dans le code
Msg = Msg & "Cordialement," & "%0D%0A" & "Et1000lio" & "%0D%0A" & "Nom Entreprise" & "%0D%0A" & "Adesse 1" & "%0D%0A" & "Adresse 2" & "%0D%0A" & "Tel. O2 00 00 00 00" & "%0D%0A"
et en ajoutant simplement
" & ""%0D%0A"
cela fonctionne parfaitement et les destinataires se trouvent bien en Cci (ou copie cachée)
Mon bon je ne m'explique toutjours pas le pourquoi du comment... J'aurai souhaité en connaître les raisons.
Mais cette petite subtilité servira peut être à tous ceux qui ont été confrontés au problème...
Bonne journée