Discussion :

[FrançoisC44]

Bonjour,

J'ai reçu une demande de mon chef qui voudrait pouvoir envoyer des mails depuis Access.
Ne connaissant pas beaucoup Access et le langage codé j'ai trouvé un site qui proposait un petit programme très simple. Il consiste un un simple formulaire dans lequel il y a 4 zones de texte (Email Address, Subject, Message Body et Attachment) et un bouton (Send Email) dont le code est le 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
Option Compare Database
 
Private Sub Command20_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.Email_Address
            .Subject = Me.Mess_Subject
            .HTMLBody = Me.Mess_Text
            If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
                .Attachments.Add (Me.Mail_Attachment_Path)
            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

Apparement ça lui a bien plu, sauf un détail. Il aimerait qu'en appuyant sur "Send Email" ça ouvre le message sur Outlook, un peu comme pour confirmer et aussi parce que pour mettre une pièce jointe avec Access il faut entrer l'adresse complète du fichier (ex : C://Document...).

Pourriez-vous donc me dire comment faire pour ouvrir le message avec Outlook avant qu'il ne soit envoyé?

Merci

[FrançoisC44]

Si ça peut aider, le programme que j'ai trouvé s'appelle email_demo_2000.

[reedy]

Bonjour,

Essaye ceci :

Enleve

Code :

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

.send

et met à sa place

Code :

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

.display

Le message devrait alors apparaitre à l'ecran .

Tu peux aussi utiliser la méthode Docmd.sendobject pour envoyer un email. Elle est plus simple mais néanmoins moins riche que la methode Automation que tu utilises dans ton code

Cordialement

[FrançoisC44]

Ca marche. Merci beaucoup
Après lecture du code je me suis douté que le problème devait venir de cette ligne mais je ne voyais pas du tout quoi mettre à la place.

Encore merci

[fmagh]

Bonjour

Merci pour l'exemple de code.
juste pour info, j'ai du remplacer ces deux lignes
- Dim appOutLook As Outlook.Application
- Dim MailOutLook As Outlook.MailItem

par
- Dim appOutLook As Object
- Dim MailOutLook As Object

car j'avais une erreur avec access 2010

Cordialement
Frederic