Bonsoir,
EDIT: à reprendre j'ai corrigé une erreur dans les variables !?
utilisé tel quel ton CC n'est qu'un simple chaîne de caractères !
ceci en exemple pour toi comprendre:
Sub EnvoiMail_FollowHyperlink() 'mail simple par lien
Dim Adres$, Sujet$, Msg$, URLto$
Adres = "
nom@wanadoo.fr"
Sujet = "ceci est le sujet"
Msg = "ceci est le corps du message"
'URLto = "mailto:" & Adres$ & "?cc=" & Adres$ & "&bcc=" & Adres$ & "&subject=" & Sujet & "&body=" & Msg$
'URLto = "mailto:" & Adres$ & "?bcc=" & Adres$ & "&subject=" & Sujet & "&body=" & Msg$
URLto = "mailto:" & Adres$ & "?subject=" & Sujet & "&body=" & Msg$
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
ou encore:
Dim OutApp As Object, OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = AdresDestinMail$
.CC = AdresMailCC$
.BCC = AdresMailBCC$
.Subject = Sujet$
.Body = Message$
'.Attachments.Add < pour joindre un fichier
.Send '<<<<<<<<<<<< Pour envoyer directement
'.Display '<<<<<<<< Pour voir le mail avant envoi
'^^^^^^^ après .Display pour confirmation auto > SendKeys "^{ENTER}"
End With
voir aussi ici:
https://www.excel-downloads.com/threads/ci-joint-un-classeur-pour-envoi-mail-en-smtp-avec-cdo-avec-ou-sans-pièce-jointe.216747/