Envoi de mail sous ACCESS 2000 en VBA via outlook 11

Question

Bonjour,

Voici mon envoi de mail automatique

    Dim objOutlook          As Outlook.Application
    Dim objOutlookAttach    As Outlook.Attachment
    Dim objOutlookMail      As Outlook.MailItem
    Dim objOutlookRecip     As Outlook.Recipient
    
    Set objOutlook = CreateObject("Outlook.Application")
    Set objOutlookMail = objOutlook.CreateItem(olMailItem)
    Set objOutlookRecip = objOutlookMail.Recipients.Add("mon adresse mail")
    objOutlookRecip.Type = olTo
    objOutlookRecip.Resolve
    objOutlookMail.Subject = "Mon sujet"
        
    objOutlookMail.Body = "Mon message"
    objOutlookMail.Send

cela marche tr&#232;s tr&#232;s bien ya peut &#234;tre mieu effectivement mais bon mon probl&#232;me est que

Outlook m'envoi un message lorsque VBA interpr&#232;te la ligne 
Set objOutlookMail = objOutlook.CreateItem(olMailItem)

un message outlook envoi ceci
"Attention une autre application cherche a envoyer un mail lautorisez vous?
Oui ... Non  pendant X minute"

J'ai appel&#233; le service technique de ma boite qui me dit que cela vien du param&#233;trage de mon objet et non de outlook lui m&#234;me

Quoi que c'est que c'est ti qu'il faudrai que peut &#234;tre je fasse?

Merci et a bientot

PtitGrumo

PhillGates · Answer

On peut installer un petit programme qui s'appelle Clickyes t&#233;l&#233;chargeable, qui intercepte la r&#233;action d'outlook et laisse le processus continuer.
Voir : www.contextmagic.com

Envoi de mail sous ACCESS 2000 en VBA via outlook 11

1 réponse

Discussions similaires