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
