Bonjour

J'essaye d'envoyer un fichier Excel par un autre outil que Outlook

J'ai trouve dans le FAQ un programme que j'ai adapté à ma configuration

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
Sub Envoi_CDO1()
Dim CdoMessage As CDO.Message
Dim Fichier As Variant
 
    ChDir "C:\Documents and Settings\UserName\Mes documents\PdfOut"
    Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf")
 
    If Fichier = False Then Exit Sub
 
    Set CdoMessage = New CDO.Message
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxxxx@wanadoo.fr"
        .To = "yyyyy@orange.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With
 
    Set CdoMessage = Nothing
End Sub
J'avais préalablement activé dans Reference la librairy Microsoft CDO

Ca ne fonctionne pas et le message d'erreur qui s'affiche est :
La valeur de configuration SendUsing est invalide
Merci pour toute information conseil et/ou orientation que vous pourriez me donner