Discussion :

[tibiscuit]

Bonjour à tous,

Je souhaite pouvoir envoyer le classeur actif par email sans logiciel de messagerie. J'ai donc choisi la méthode CDO trouvée dans la FAQ ainsi que de nombreuses autres trouvées un peu partout mais j'obtiens toujours une erreur quelconque.
Voici celle que j'obtiens avec la méthode de la FAQ :
Erreur d'exécution '-2147220960 (80040220)':
Erreur Automation

Petit rappel du code :

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
 
Sub Tst_Wb()
Dim SourceWb As Workbook
Dim CdoMessage As Object
Dim Fichier As String
 
    Set SourceWb = ActiveWorkbook
    Fichier = ThisWorkbook.Path & Application.PathSeparator & "essai.xls"
 
    SourceWb.SaveCopyAs Fichier
 
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "*******@aol.fr"
        .To = "******@aol.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With
 
    Set CdoMessage = Nothing
 
End Sub

Quelqu'un aurait-il une solution?

[kiki29]

Salut,sans doute à relire http://excel.developpez.com/faq/?pag...urExecutionCDO pour le FAI

[tibiscuit]

J'avais déjà essayé, j'obtiens la même erreur

[kiki29]

Salut, je viens de retester ton code et il fonctionne parfaitement, je précise sur XP avec Outlook Express