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

BOUCOIRAN

XLDnaute Nouveau
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
 

Statistiques des forums

Discussions
299 703
Messages
1 978 594
Membres
206 300
dernier inscrit
gauthier75011