Discussion :

[ptinutz]

Bonjour,

je me suis inspirée de plusieurs macros vues ci et là pour automatiser un mail contenant plusieurs informations.

Le mail a un destinataire principal et deux destinataires en CC. La macro tourne avec un seul destinataire en copie, mais je ne trouve pas comment faire pour en ajouter un deuxième.

Ci dessous, j'ai essayé de créer une variable texte cece qui contindrait les deux adresses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub SendMail_Outlook()
 
ActiveCell.Select
ActiveCell.Offset(0, -2).Select
Selection.Resize(Selection.Rows.Count, _
   Selection.Columns.Count + 8).Select
Selection.Copy              'copie la cellule active
Sheets("mail").Select       'ouverture de l'onglet mail
Range("B2").PasteSpecial Transpose:=True          'selection la destination B2
 
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
 
Set Ol = New Outlook.Application 'ouvrir l'application outlook
Set Olmail = Ol.CreateItem(olMailItem)
 
Dim cece As String
Set cece = Sheets("mail").Range("mail!B7").Value &";"& Sheets("mail").Range("mail!C7").Value
 
With Olmail
    .To = Range("mail!B6").Value
    .CC = cece
    .Subject = Range("mail!B12").Value
    .Body = Range("mail!B13").Value
    .Display    '.Send
End With
 
End Sub

J'obtiens alors l'erreur: Erreur de compilation - Objet requis

Merci d'avance pour vos suggestions

[Menhir]

Chaque & doit avoir un espace avant et un espace après.

[unparia]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim cece As String

Donc cece est une chaine de caractères (variable de type string)
que vient alors faire ici l'utilisation d'une instruction Set ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set cece = Sheets("mail").Range("mail!B7").Value &";"& Sheets("mail").Range("mail!C7").Value

La vocation d'une instruction Set est d' affecter un objet à une variable

[ptinutz]

Merci beaucoup,

la conjugaison de vos deux réponses font que cela marche maintenant parfaitement.

Je ne savais pas exactement ce que faisais le SET, je saurais maintenant.