Probleme avec méthode CDO
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:
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?
