Discussion :

[wabo67]

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.

[fring]

Bonjour,

j'essaie d'envoyer un mail automatiquement avec Excel sans utiliser Otlook.
...
...
J'ai sélectionné l'outil Microsoft Outlook 12.0 Object Library

Le code que tu veux utiliser fait appel à la bibliothèque CDO, il faut donc cocher la référence Microsoft CDO for Exchange xxxx Library ?

[Invité]

Bonjour

Regardes cela dans la FAQ : http://excel.developpez.com/faq/inde...urExecutionCDO

Philippe

[wabo67]

Merci pour vos réponses.
Philippe merci pour les réponses dans la FAQ mais je l'avai deja lu et pas moyen de faire fonctionner.
Fring: Je ne trouve pas l'outils Microsoft CDO for Exchange xxxx Library dans les références de VBA excel.

[fring]

Vérifie si tu as bien le fichier cdosys.dll, chez moi il se trouve dans le répertoire C:\Windows\System32
Sinon tu peux le télécharger sur le net.

Comme tu peux le voir dans la FAQ via le lien que t'a donné Philippe () il y a également la possibilité de le réaliser sans devoir cocher de référence (voir le code proposé par Kiki)

[wabo67]

Salut,

J'ai trouvé le .DLL dans le system32 mais par contre toujours pas de Microsoft CDO for Exchange xxxx Library

J'ai essayé le code ci-dessous.

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
Private Sub CommandButton2_Click()
 
Dim CdoMessage As Object
Dim Fichier As Variant
 
    ChDir "C:\Documents and Settings\xx\My Documents\PdfOut"
    Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf")
 
    If Fichier = False Then Exit Sub
 
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "xx@xx.fr"
        .To = "xx@xxx.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With
 
    Set CdoMessage = Nothing
 
 
 
End Sub

toujours en erreur au niveau du send