Bonjour, ma macro bloque à cet endroit : Set Mail = Outlook.CreateItem(0)
Quelqu'un peut m'aider?
D'avance merci




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
'ENVOI MESSAGE VIA OUTLOOK
Sub Envoi_Mail()
Dim ObjOutlook As Object
Dim Mail As Object
Dim Objet As String
Dim Corps As String
 
Objet = "fichier quotidien"
'Exemple de corps de texte avec texte et sauts de ligne
Corps = "Bonjour, " & _
vbCrLf & vbCrLf & _
"Le fichier quotidien vient d'être déposé dans votre répertoire :" & _
vbCrLf & vbCrLf & _
"Bonne réception." & _
vbCrLf & vbCrLf & _
"L'équipe Pilotage." & _
vbCrLf & vbCrLf & _
"Envoi automatique." & _
vbCrLf & vbCrLf
 
Set ObjOutlook = CreateObject("Outlook.Application")
Set Mail = Outlook.CreateItem(0)
 
With Mail
.To = "adresse mail à renseigner "
 
.Subject = Objet
.Body = Corps
.Send
End With
End Sub