Bonjour
j'ai fait un code vba pour qu'un mail soit envoyé automatiquement sur outlook à chaque fois à la même adresse lorsque l'on appui sur un bouton EXCEL , voila mon code mais a priori il y a un probleme!


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
Option Explicit
 
Public Sub EnvoiCourriel()
 
Dim olApp As Object
Dim MailIt As Object
Dim Dest As String
Dim Objet As String
Dim Mess As String
Dim FeuilleCourante As Worksheet
 
' Ne pas oublier de mettre "Microsoft Outlook" dans "Outils->références"
Set olApp = CreateObject("Outlook.Application")
 
Set FeuilleCourante = ActiveSheet
 
    'Préparation du message
Set MailIt = olApp.CreateItem(olMailItem)
 
Objet = "Mon titre"
 
Mess = "    Bonjour, "
Mess = Mess & vbCrLf & "Mon texte"
 
'Mess = Mess & Chr(13) & "     Cordialement," & Chr(13) & "<BR><BR>"
'Mess = Mess & Chr(13) & "     L'animation des ventes"
 
    Dest = Bernard-Girod@ca-tourainepoitou.f
 
    With MailIt
'        .To = Dest
'        .CC = Copie
        .Subject = Objet
'        .Attachments.Add NomPieceJointe
'        .HTMLBody = Mess
        .Body = Mess
        .Display
        '.Save
        '.Close 2
    End With
 
    Set MailIt = Nothing
 
    Set olApp = Nothing
End Sub