Discussion :

[helico57570]

Bonjour à tous,
J'ai récupéré un code afin de pouvoir envoyer des mails via un formulaire access 2003...
Je l'ai transformé pour l'adapter à mon propre formulaire...
Cela fonctionnait très bien avec le formulaire téléchargé sur http://www.blueclaw-db.com/
Mais depuis que j'ai installé le code VBA sur mon formulaire, j'ai toujours le même message: user-defined type not defined!
Quelqu'un peut il m'aider?
Merci à tous.
Voici le code VBA en question:

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
Private Sub Command42_Click()
 
Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook
            .BodyFormat = olFormatRichText
            .To = Me.ToAll
            .Cc = Me.CcAll
            .Subject = Me.Subject
            .HTMLBody = Me.Message
            If Left(Me.Attachement, 1) <> "<" Then
                .Attachments.Add (Me.Attachement)
            End If
            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
            'MsgBox MailOutLook.Body
            Exit Sub
email_error:
            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
            Resume Error_out
Error_out:
End Sub

[FreeAccess]

Bonjour,

As-tu vérifié que les références aux bibliothèques d'objets soient correctement cochées
Outils > Références.....

[Lincoln911]

salut,
ça pet provenir de tes références, donc vérifie bien
j'ai été confronté à ce problème à un moment donnée, j'ai fini par abandonner la méthode Outlook, et passer à CDO, qui a l'avantage de ne pas dépendre de Outlook, mais d'une autre bibliothèque plus simple à mon avis (donc encore une référence à cocher pour bien fonctionner !)

[helico57570]

Effectivement, cela venait des références, il suffisait de les déclarer...tout fonctionne à merveille!!
Mercià tous