Discussion :

[mjanbar]

Bonjour,

J'essaie de créer une macro pour envoyer automatiquement, par outlook 2007, un fichier (pdf par exemple). J'utilise le code suivant :

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
28
29
30
Sub Envoi_CDO2()
 
Dim CdoMessage As Object
 
Dim Fichier As Variant
 
    ChDir "C:\Documents and Settings\session\Bureau"
 
    Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf")
 
    If Fichier = False Then Exit Sub
 
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "test envoi automatic"
        .From = "max@yahoo.fr"
        .To = "daniel@yahoo.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "test"
        .AddAttachment Fichier
 
        .Send
 
 
    End With
 
    Set CdoMessage = Nothing
 
End Sub

Problème : Mon code se bloque sur "Send"
Message d'erreur : "Valeur de configuration SendUsing non valide"

Merci de vtre aide pour corriger cette l'erreur, ou bien me donner un autre code valide pour la même macro

[Oliv-]

Salut,
regarde ici
http://www.developpez.net/forums/d65...e/#post3829922

[mjanbar]

Bonjour,

Merci beaucoup "Oliv-"

J'ai essayé ce code avec quelques petites modification et ça a marché nikel

Maintenant, j'aimerais ajouté automatiquement, dans cette même procédure, ma signature (déjà incorporée sur outlook).

J'ai cherché partout en vain

[Oliv-]

Pour les signatures avec CDO il faut importer le fichier signature.

C:\Documents and Settings\TON PROFIL\Application Data\Microsoft\Signatures
=
%appdata%\Microsoft\Signatures

tu peux aussi lire ce post
http://www.developpez.net/forums/d71...ature-outlook/