Discussion :

[Dallamien]

Bonjour,


Après avoir tenté de trouver la réponse à mon problème pendant 6 heures, je fais appel à votre (inestimable) science...

Je développe actuellement une base de données Access qui envoie automatiquement des emails via Outlook.
J'avais commencé par préparer et envoyer les mails depuis access.
Afin d'éviter le message d'avertissement, j'ai reçu le conseil de préparer le mail dans Access et d'appeler ensuite une procédure Outlook qui s'occupe de l'envoi.

Et c'est là que je coince.

La procédure Outlook se trouve dans "ThisOutlookSession" :

Code :

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

1
2
3
4
5
Public Sub send_Monmail(Strid As String)
    Dim monmail As Outlook.MailItem
    Set monmail = Application.GetNamespace("MAPI").GetItemFromID(Strid)
    monmail.Send
End Sub

Je ne parviens pas à appeler cette procédure depuis Access.
Le code sous access :

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
Public Sub CreateEmail(Recipient As String, Subject As String, Body As String)
 
    Dim I As Integer
 
    Dim appOutLook As Outlook.Application
    Set appOutLook = GetObject(, "Outlook.Application")
 
    Dim oEmail As Outlook.MailItem
    Set oEmail = appOutLook.CreateItem(olMailItem)
 
    ' les paramètres
 
    oEmail.To = Recipient
    oEmail.Subject = Subject
    oEmail.Body = Body
 
    ' Sauve le message et demande à Outlook de l'envoyer
    oEmail.Save
    Dim strID As String
    strID = oEmail.EntryID
    appOutLook.Run "send_Monmail", strID
 
    ' détruit les références aux objets
    Set oEmail = Nothing
    Set appOutLook = Nothing
 
End Sub

D'avance merci.


Configuration: Windows XP / Internet Explorer 7.0

[Dallamien]

Personne?