PB de codage adresse mail en copie // Excel via Outlook

Bonjour a tous,

J'ai besoin de vos lumières !

J'ai créé une userform afin d'envoyer des mail a partir d'Excel.

Ce que je veux obtenir :

- Envoyer un mail a un destinataire, mettre copie une autre adresse mail ci besoin et l'envoyer également sur une adresse mail par défaut (afin de garder une trace de ce mail)

Pour cela j'ai créé une userform avec

• 1 textbox1 = destinataire
• 2eme textbox2 = mail en copie ci besoin
• Dans le code VBA j'ai mis mon adresse mail par défaut afin qu'il me renvoie ce mail dans boite mail dite boite mail de secours

Dans mon code j'ai bien paramétré :

.To = Me.TextBox1.Value pour le destinataire

.CC = "ADRESSEPARDEFAULT@dddd.fr" adresse mail par défaut

Ma question : Comment paramétrer ma TextBox2 afin de rajouter mon mail en copie ?

Vous trouverez ci dessous le code vba

Private Sub CommandButton1_Click() 'pour l'envoie par mail
Dim appOutlook As Outlook.Application
Dim oMail As Outlook.MailItem
    ' Lance une session Outlook
Set appOutlook = CreateObject("outlook.application")
    ' Crée un nouveau mail
Set oMail = appOutlook.CreateItem(olMailItem)
On Error Resume Next
With oMail
' Titre, Texte, Destinataires, etc ...
.To = Me.TextBox1.Value      'adresse du destinataire 
.CC = "ADRESSEPARDEFAULT@dddd.fr" 'adresse par defaut
.Subject = OBJET DU MAIL 'Ok 
.Body = CORP DU messaga 'OK 
.BodyFormat = olFormatHTML 'ok

 ' Envoie le message
.Send 'ok

End With

End Sub

Merci d'avance pour vos réponses

CDT FAB

Bonsoir,

UP

Personne pour m'aider ?

CDT

Bonjour,

Pas certain d'avoir bien compris, ce n'est pas très explicite

Private Sub CommandButton1_Click() 'pour l'envoie par mail
Dim appOutlook As Outlook.Application
Dim oMail As Outlook.MailItem
    ' Lance une session Outlook
Set appOutlook = CreateObject("outlook.application")
    ' Crée un nouveau mail
Set oMail = appOutlook.CreateItem(olMailItem)
On Error Resume Next
With oMail
' Titre, Texte, Destinataires, etc ...
.To = Me.TextBox1.Value      'adresse du destinataire 
' Adresse par défaut + celle en copie
.CC = "ADRESSEPARDEFAULT@dddd.fr; " & Me.Textbox2.value

.Subject = OBJET DU MAIL 'Ok 
.Body = CORP DU messaga 'OK 
.BodyFormat = olFormatHTML 'ok
 ' Envoie le message
.Send 'ok
End With
End Sub

A+

Bonjour,

Tout d'abord merci pour votre réponse.

Je pense que vous avez compris ce que je veux obtenir.

Pour être plus explicite ce que je veux obtenir :

- Mettre en copie dans un mail une adresse mail qui est connu dans le code VBA et un adresse mail a rentrer dans la textbox2

Code utilisé

.CC = "ADRESSEPARDEFAULT@dddd.fr; " & Me.Textbox2.value

j'ai codé mon Excel avec le code que vous avez modifier .CC = "ADRESSEPARDEFAULT@dddd.fr; " & Me.Textbox2.value cependant le mail ne s'envoie pas et il n'apparait pas dans les éléments envoyé de la boite mail.

1er test

Si je met en code VBA .CC = "ADRESSEPARDEFAULT@dddd.fr" l'envoie du mail fonctionne et en copie il y a cette adresse

2eme test

Si je met en code .CC = Me.Textbox2.value l'envoie du mail fonctionne et en copie il y a l'adresse mail rentré dans la textbox2

Comment combiné "ADRESSEPARDEFAULT@dddd.fr" et Textbox2 ?

Avez des idées ?

Merci de votre aide !

CDT

FAB

Re,

C'est une virgule ou un point virgule qui sépare les adresses dans ton Outlook !?

A+

Bonjour Monsieur BrunoM45

BrunoM45 a écrit :

Re,

C'est une virgule ou un point virgule qui sépare les adresses dans ton Outlook !?

A+

Je suis a l'ouest !!! la séparation de deux adresse mail est bien un point virgule !

Dans les différents test que j'ai pu effectuer pour la programmation de mon code je ne rajouté pas le point virgule !!! donc mon erreur venais de la depuis le début !

je vous remercie de votre aide.

Bonne continuation !!!!