Discussion :

[ayoras56]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Set olapp = CreateObject("Outlook.Application")

merci de me répondre...

[MisterS]

Bonjour ,

Outlook est-il bien installer ?

As-tu bien déclarée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim OlApp As Object

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim olApp As Outlook.Application

Cordialement ,

[ayoras56]

oui tout à fait j'ai bien mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim olapp As Outlook.Application

et outlook est bien installé!

[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 ,

[ayoras56]

J'ai essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim olapp as object

mais ça fait pareil.

Voici le code de ma fonction..

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
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

[alassanediakite]

salut
Il faut voir ici