Discussion :

[maxoumax]

Bonjour j'ai un petit problème avec l'envoie d'un message par outlook :
Voilà mon code :

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
28
29
30
31
32
33
' TEST DE L'ENVOI DE MAIL
' ---
'
Public Sub TestEmail()
Dim strDest As String       ' L'adresse e-mail du destinataire
Dim strMessage As String    ' Le corps du message
 
' Création du corps du message
strMessage = "Voici un petit exemple illustrant la"
strMessage = strMessage & vbCrLf & "la possibilité d'expédier un e-mail"
strMessage = strMessage & vbCrLf & "depuis Microsoft Access."
strMessage = strMessage & vbCrLf & vbCrLf & "Hervé"
 
 
' On demande l'adresse e-mail du destinataire
strDest = InputBox("Tapez une adresse e-mail existante : ", _
  "Messagerie Access", _
  "m.philibert@net.estia.fr")
If strDest = "" Then Exit Sub
 
' Envoi du message
SendMail strDest, _
  "** Email depuis Access **", _
  strMessage, _
  True
End Sub
Public Sub SendMail(ByVal strEmail As String, _
  ByVal strObj As String, _
  ByVal strMsg As String, _
  ByVal blnEdit As Boolean)
On Error Resume Next
DoCmd.SendObject acSendNoObject, , , strEmail, , , strObj, strMsg, blnEdit
End Sub

Et lorsque j'exécute mon code il m'ouvre la fenetre suivante :

Et que je fais envoyer , rien ne se passe je regarde dans ma boite mail il n'y a rien .
Pourquoi ?

Et j'ai une deuxième question :
Comment envoyer automatiquement le mail sans passer par l'interface généré par outlook , (je ne veux pas que ca m'affiche la page que j'ai mis en en photo, je veux que mon mail s''envoie directement sans avoir besoin d'appuyer sur "envoyer", est ce possible ?
Merci pour votre aide bonne journée

[tee_grandbois]

Bonsoir,
as-tu pensé à consulter la FAQ pour les méthodes d'envoi de mail ?
http://access.developpez.com/faq/?page=Outlook#outlook
http://access.developpez.com/faq/?pa...ailPieceAttach