Bonjour ,

J'essaie d'envoyer un mail en automatique or j'ai une erreur d'execution type 13 au niveau des éléments du corp.

Merci pour votre aide


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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub IC7_Envoi_mail_Outlook()
 '-------------------------------------------------------------
'Penser a ajouter ref outlook
 '-------------------------------------------------------------
    Dim Adresse As String, Objet As String, Corps As String
     Dim MonAppliOutlook As New Outlook.Application
     Dim MonMail As Outlook.MailItem
     Dim MaPièce As Outlook.Attachments
     Set MonMail = MonAppliOutlook.CreateItem(olMailItem)
 '-------------------------------------------------------------
'Variables
 Dim C1, C2, C3, C4, C5 As String
 fc = [B17]
 jo = [B2]
 fi = [C17]
 Mo = [B5]
 
 Workbooks.Open (fi)
 Windows(fc).Activate
 Sheets("Feuil1").Select
 fzc = Range("B24:G31").Value
 fza = Range("B55:G62").Value
 fzb = Range("B86:G93").Value
 
 C1 = "Bonjour," & Chr(13) & Chr(13) & "date : " & jo
 C2 = "partie1 " & Chr(13) & fzc    <==  erreur d 'exécution 13  incompatibilité de type 
 C3 = "partie2" & Chr(13) & fza
 C4 = "partie3" & Chr(13) & fzb
 C5 = "Merci de prendre en compte la pièce-jointe" & Chr(13) & Chr(13) & "En vous  souhaitant bonne réception." & Chr(13) & Chr(13) & "Cordialement" 
 
 Workbooks(fi).Close
 '-------------------------------------------------------------
    Adresse = "test@test.fr"
     Cc = "test1@test.fr;test2@test.fr"
     Bcc = ""
     Objet = " mail au  " & Mo
     Corps = C1 & Chr(13) & C2 & Chr(13) & C3 & Chr(13) & C4 & Chr(13) & C5
     Pièce = fi  '-------------------------------------------------------------
    With MonMail
         .Display
         .To = Adresse
         If Not IsNull(Cc) Then .Cc = Cc
         If Not IsNull(Bcc) Then .Bcc = Bcc
         .Subject = Objet
         .Body = Corps
         If Not IsNull(Pièce) Then
             Set MaPièce = .Attachments
             MaPièce.Add Pièce, olByValue
         End If
        ' .Send
     End With
 '-------------------------------------------------------------
End Sub