envoye mail avec access

Question

voici mon probleme , je souhaite envoyer un mail outlook avec access sur le clik d'un bouton mais lerreur " echec d'excution" s'affcihe  a cette ligne :

Set EMail = olApp.CreateItem(olMailItem)

voici mon code : 
Private Sub envoyer_Click()
Dim olApp As Outlook.Application
  Dim EMail As Outlook.mailItem
  Set olApp = New Outlook.Application
  ' On affiche le contenu du champs NomPrenom et EMail :
    Set EMail = olApp.CreateItem(olMailItem)
   Set myAttachments = EMail.Attachments
           
    With EMail
    .To = "[mailto:moi@mail.com moi@mail.com]"
    .Subject = "Ma société"
    .Body = "Ceci est un test. Ne pas répondre à ce message."
    .Display
    .Send
    End With



End Sub





merci pour vos reponse !! 
imène

Renfield · Answer

Vous êtes ici : Thèmes / VB.NET et VB 2005 /

c'est du .Net ton code :/ ??

plus de détails sur ton message d'erreur ?

imsse · Answer

tres bien jai surement du me tromper de theme  je voulais choisir le theme VBA access car je utilise access 2003 !! 

imène

imsse · Answer

concernant mon message d'erreur je ne vois pas quoi dire de plus a part que mon code compile et s'arrete a cette ligne :  Set EMail = olApp.CreateItem(olMailItem)et m'indique lerreur suivante "erreur d'excution  -2079129597(84130003)" echec de l'opération

voila ..

imène

Envoye mail avec access

3 réponses

Votre réponse

Discussions similaires