un composant Activex ne peut créer d'objet

Version imprimable

29/09/2010, 17h28
ayoras56

un composant Activex ne peut créer d'objet

Bonjour,

J'utilise access 2003 avec WINDOWS 7 outlook 2007
j'ai rajouté la référence Microsoft Outlook.

J'ai créé une fonction pour envoyer un mail avec une pièce jointe
mais j'ai toujours le message suivant
"un composant activex ne peut créer l'objet"
au niveau de cette ligne.

Code:

Set olapp = CreateObject("Outlook.Application")

merci de me répondre...
29/09/2010, 17h39
MisterS

Bonjour ,

Outlook est-il bien installer ?

As-tu bien déclarée :

Code:

Dim OlApp As Object

Ou

Code:

Dim olApp As Outlook.Application

Cordialement ,
29/09/2010, 18h03
ayoras56

oui tout à fait j'ai bien mis

Code:

Dim olapp As Outlook.Application

et outlook est bien installé!
30/09/2010, 10h29
MisterS

Bonjour ,

Peux-tu mettre le code en question en entier , cela aiderais a peut-être déceler une erreur.

(Sinon essaye de déclarée As Object , voir si cela ne passerais pas ... même si cela m'étonnerais.)

Sinon les références sont-elles toutes bien installer ?

Sinon je ne vois pas .. désoler.

Cordialement ,

J'ai essayé avec

Code:

dim olapp as object

mais ça fait pareil.

Voici le code de ma fonction..

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
27
28
29
30
31
32
33
34
35
36
37
38
Public Sub envoyermailetfichier(ByVal destinataire As String, ByVal sujet As String, ByVal message As String, piecejointe As String)
 
    Dim olapp As Outlook.Application
    Dim miemail As Outlook.MailItem
    Dim rcdest As Outlook.Recipient
    
    
    
    
    
    'initialiser un objet outlook
    Set olapp = CreateObject("Outlook.Application")
    
    'créer le message
    Set miemail = olapp.CreateItem(olMailItem)
    
    '::renseigner le message::
    With miemail
           'définir le destinataire
            Set rcdest = .Recipients.Add(destinataire)
            rcdest.Type = olTo
            
    'sujet et corps du message
            miemail.Subject = sujet
            miemail.Body = message & vbCrLf & vbCrLf
            
     'ajouter la pièce jointe
     If Dir(piecejointe) <> "" Then .Attachments.Add piecejointe
     
     'afficher le message
       .Display
     
    End With
    
    Set miemail = Nothing
    Set olapp = Nothing
    
End Sub

30/09/2010, 15h15
alassanediakite

salut
Il faut voir ici