Recevoir une copie du mail envoyer

bonjour a vous tous

dans le code suivant , je voudrais que l'émetteur reçoive une copie du mail envoyer , pour en garder une copie dans la boite mail , j'essaie par

.To = form_email.Emetteur 

mais ça ne fonctionne pas

Sub EnvoiMail_CDO()
serveur = Sheets("acceuil").Range("D2").Value
Dim iMsg As Object, iConf As Object, Flds As Object
 Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")

Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = serveur
    .Update
End With

With iMsg
    Set .Configuration = iConf
    .BodyPart.Charset = "utf-8"
    .To = form_email.destinataire.Value
    .CC = form_email.CC.Value
    .BCC = form_email.CCI.Value
    .From = form_email.Emetteur
    .Subject = form_email.titre
    .HTMLBody = paragraphe
    If form_email.piece_jointe <> "" Then .AddAttachment form_email.piece_jointe
    .Send
End With
If form_email.piece_jointe <> "" Then
fichier = form_email.piece_jointe.Value
Kill fichier
form_email.piece_jointe = ""
End If
End Sub

Pascal

bonjour,

qu'y a-t-il dans form_email.Emetteur ? es-tu sûr qu'il y a une valeur correcte ?

pour envoyer à plusieurs personnes

.to= form_email.destinataire.Value & ";" & form_email.Emetteur

bonsoir H2so4

merci pour ta réponse, form_email.emetteur est un textbox qui se charge de mon adresse mail a l'ouverture de l'usf

.to= form_email.destinataire.Value & ";" & form_email.Emetteur ne correspond pas car je recois mon adresse en CC a la suite du destinataire

Pascal

bonjour H2so4 et le forum

j'ai modifié le code et cela fonctionne maintenant, je vous joints la partie modifiée

With iMsg
Set .Configuration = iConf
.BodyPart.Charset = "utf-8"
.To = form_email.destinataire.Value
.CC = form_email.CC.Value
If form_email.CCI.Value = "" Then
.BCC = "trucmuch@123.fr"
Else:
.BCC = form_email.CCI.Value & ";" & "trucmuch@123.fr"
End If
.From = form_email.Emetteur
.Subject = form_email.titre
.HTMLBody = paragraphe
If form_email.piece_jointe <> "" Then .AddAttachment form_email.piece_jointe
.Send
End With

Pascal