Appel procédure outlook depuis VBA Access

Fermé
Dallamien Messages postés 2 Date d'inscription lundi 27 septembre 2010 Statut Membre Dernière intervention 29 septembre 2010 - 27 sept. 2010 à 14:31
Dallamien Messages postés 2 Date d'inscription lundi 27 septembre 2010 Statut Membre Dernière intervention 29 septembre 2010 - 29 sept. 2010 à 15:38
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" :

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 :

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.

A voir également:

1 réponse

Dallamien Messages postés 2 Date d'inscription lundi 27 septembre 2010 Statut Membre Dernière intervention 29 septembre 2010
29 sept. 2010 à 15:38
Personne?
0