XL 2016 VBA et Expédition de mails via Excel et sans Outlook

[BOUCOIRAN]

Bonsoir à tous,
Dans le cadre du développement d'une application je souhaite pouvoir expédier depuis le fichier Excel des mails de confirmation adressés aux personnes qui se sont enregistrées.
Pour cela, j'ai trouvé sur un forum un code VBA qui fonctionne très bien auquel j'ai ajouté quelques fonctionnalités souhaitées et d'autres aussi mais que je n'arrive pas à faire fonctionner, savoir :
Je voudrais, pouvoir ajouter un destinataire en copie cachée,
obtenir en retour uin accusé de réception ou mieux, une confirmation de lecture et enfin,
pouvoir joindre à mon envoi un fichier au format PDF .

Voici le code, partie qui fonctionne, en gras certains de mes ajouts qui ne fonctionnent pas :
je travaille sur Excel 2016

Sub ExpMail()
'
Dim MAIL_TO As Variant
Dim MAIL_CC As Variant
Dim MAIL_CCI As Variant
Dim MAIL_PJ As Variant
MAIL_SUBJECT As Variant
MAIL_CONTENU As Variant
MAIL_PJ As Variant
'
MAIL_TO = "DESTINATAIRE@orange.fr"
MAIL_CC = "COPIE@orange.fr"
MAIL_CCI = "COPIE CACHEE@orange.fr"
MAIL_SUBJECT = "SUJET DU MESSAGE"
MAIL_CONTENU = "TEXTE DU MESSAGE"
MAIL_PJ = "CHEMIN DU FICHIER à JOINDRE"

Dim objEmail
Const MAIL_SMTPSERVER = "smtp.orange.fr"
Const MAIL_FROM = "EXPEDITEUR@orange.fr"

Set objEmail = CreateObject("CDO.Message")
objEmail.From = MAIL_FROM
objEmail.To = MAIL_TO
objEmail.CC = MAIL_CC
objEmail.CCI = MAIL_CCI
objEmail.????? = MAIL_PJ
objEmail.Subject = MAIL_SUBJECT
objEmail.Textbody = MAIL_CONTENU
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MAIL_SMTPSERVER
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

Set objEmail = Nothing
'
'
End Sub

En vous remerciant par avance de vos retours,

Bien à vous,


BcN

 

[Hasco]

Re,

Difficile à dire mais ce qui est certain c'est qu'il ne faut pas d'espace dans une adresse mail :
"COPIE CACHEE@orange.fr" (ne peut fonctionner)

Cordialement

 

[BOUCOIRAN]

Re,

Difficile à dire mais ce qui est certain c'est qu'il ne faut pas d'espace dans une adresse mail :
"COPIE CACHEE@orange.fr" (ne peut fonctionner)

Cordialement

Bonsoir,
Merci pour ce retour rapide, mais il ne s'agissait là que d'une information et non d'une adresse mail.
Cordialement,
BcN

 

[Hasco]

Re,

Euh....
Quand vous nous montre une une intialisation de variable telle que :
MAIL_CCI = "COPIE CACHEE@orange.fr"
et que plus loin le code
objEmail.CCI = MAIL_CCI

Désolé mais pour un développeur, ce n'est pas qu'une information.

Ben vous êtes mal parti...
Je passe la main.