Bonjour a tous !!!

Comme le titre l'indique j'essaie d'envoyer un mail automatiquement avec Excel sans utiliser Otlook.

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
Private Sub CommandButton1_Click()
 
Private Sub CommandButton1_Click()
Dim CdoMessage As CDO.Message
Dim Fichier As Variant
 
    ChDir "C:\Users\Fred"
    Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf")
 
    If Fichier = False Then Exit Sub
 
    Set CdoMessage = New CDO.Message
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxxx@hotmail.fr"
        .To = "xxxx@hotmail.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With
 
    Set CdoMessage = Nothing
End Sub
J'ai sélectionné l'outil Microsoft Outlook 12.0 Object Library

"Erreur 287 sur la ligne"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
   .Send ' Envoie le mail
D'avance merci.