Discussion :

[STEF68600]

Bonjour a tous,

j'essaye d'envoyer un classeur actif par mail en piece jointe.

mon soucis "un composant activeX ne peut pas crée un objet"

pourriez-vous m'aider à debuger ce code car je pense avoir encore quelques épines... j'ai ponctionné plusieurs partie de code ci et là.

je suis en excel 2003 et besoin que ça marche aussi sur version supérieur.

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
31
32
33
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
 
Dim destinataire As String
Dim copier As String
destinataire = TextBox1.Text
 
If CheckBox1.Value = True Then
copie = Range("D9").Value
End If
Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")  '   <--- ici erreur 
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = destinataire
        .CC = copier
        .BCC = ""
        .Subject = "essais"
        .Body = "ça marche pas !"
        .Attachments.Add ActiveWorkbook.FullName
        .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
End Sub

[ucfoutu]

Bonjour,

Quelles références sont cochées dans ton projet ?

EDIT : et jette un coup d'oeil ici :
http://support.microsoft.com/kb/220595

[STEF68600]

merci de ta réponse,

mais après tout ce que j'ai lu depuis cet après midi, il semblerait qu'il soit impossible d'ajouter cette bibliotheque quand on utilise outlook express.

[ucfoutu]

mais après tout ce que j'ai lu depuis cet après midi, il semblerait qu'il soit impossible d'ajouter cette bibliotheque quand on utilise outlook express.

Il est temps de le préciser ...

[STEF68600]

Désolé,

je n'es pas d'excuses, une demande incomplète amène à ce resultat...