Discussion :

[User]

Bonsoir,

J'utilise la procedure CreateEmail pris dans la faq, pour envoyer des email en utilisant outlook (depuis Access).

Cependant comment puis-je vérifier que mon email a bien été envoyé à son destinataire ?

En effet si je me suis trompé dans l'adresse du destinataire, ou que l'adresse n'est pas valide je souhaiterai pouvoir récupérer une erreur au niveau du code Access ou tester Outlook depuis Access (pour le moment tout se passe au niveau Outlook)

Est-ce possible ?

Merci à tous !

@+

[pgz]

Bonjour,

A ma connaissance, quand tu envoies un message en automation d'outlook, tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Send

Ce qui se passe à ce moment, dépend de to paramètrage d'outlook :
- soit le message va dans la boîte des éléments à envoyer;
- soit il est envoyé et rejoins la boîte des envoyés.

Dans les deux cas, tu peux vérifier que cela s'est bien passé en contrôlant la présence de ton mesage dans la boîte qui convient. Par contre, si l'adresse est erronée tu ne le sauras qu'à réception d'un message de non delivery, généralement composé par le serveur du destinataire.

Je ne sais pas si cela t'aide,

pgz

[User]

Merci Pgz pour ta réponse,

Mais justement j'ai cherché sur internet , sur la faq, sur les sources et n'est rien trouvé de très probant,

N'aurais-tu pas 1 lien ou 1 bout de code à me proposer
pour justement lire les Mailitem dans les boites outlook ?


@+

[FreeAccess]

Bonjour,
Je ne sais pas si cela peux t'aider, mais sur le site de raymond SENEQUE, tu trouve pas mal de chose concernant Outlook

http://officesystem.access.free.fr/t...r/annuaire.zip
http://officesystem.access.free.fr/g...ie_outlook.htm

A voir.

[User]

Merci FreeAccess,

Le problème c'est que je suis sous Access97 ...

Mais je vais quen même étudier tes liens

@+

[pgz]

Salut

Voici un bout de code qui va chercher les messages dans le répertoire MonRép du dossier perso outlook, avec utilisation d'une progress ba

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
    Dim mlfolder As Outlook.MAPIFolder, mlufolder As Outlook.MAPIFolder
    Dim Email As Outlook.MailItem
    Dim lng As Long
 
 
    Call ProgressBar(0, 100, 1, "Recherche des adresses validées dans dossier [MonRép]")
 
    Call OuvreOutLook(olApp, olAppOuvert)
 
    Set mlfolder = olApp.GetNamespace("MAPI").Folders("Dossiers personnels").Folders("MonRérep")
 
 ' boucle de lecture des messages de la boîte MonRép
    lng = 1
    While lng <= mlfolder.Items.Count
        If mlfolder.Items(lng).Class = olMail Then
            Set Email = mlfolder.Items.Item(lng)
 
            'traitement du message            
        End If
        Call ProgressBar(lng, mlfolder.Items.Count, 2, "Recherche des adresses validées dans dossier [MonRép]")
        lng = lng + 1
    Wend
...

En espérant que cela t'aide et cordialement,

pgz

[User]

Merci Pgz,

Je vais tester, mais a priori Vraiment excellent ton code

J'espère que ca en intéressera plus d'un ...


@+

[User]

Bonjour,

J'ai 1 problème,

Ton code fonctionne bien mais j'ai bricolé 1 truc pour tester plusieurs fois le Folder pour contourner les problèmes de délai de transmission des message dans la boite en question:

le rpoblème c'est qu'il m'indique que l'objet oEmail (l'email à transmettre) n'existe plus ou a été supprimé:

je te donne le bout de code

la fonction de test du folder:

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
Public Function Is_InFolder(mlfolder As Outlook.MAPIFolder, oEmail As Outlook.MailItem)
Dim i As Integer
 
 ' boucle de lecture des messages de la boîte MonRép
    i = 1
    While i <= mlfolder.Items.Count
 
        If mlfolder.Items(i) = oEmail Then
        Is_InFolder = True
        Exit Function
        End If
 
        i = i + 1
    Wend
 
Is_InFolder = False
 
End Function

et le bout de code à la fin de ton 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
  ' envoie le message
    oEmail.Send
 
    Set mlfolder = appOutLook.GetNamespace("MAPI").Folders("Personal Folders").Folders("Sent Items")
 
    i = 1
 
    While Not Is_InFolder(mlfolder, oEmail) And (i < 1000)
    i = i + 1
    Wend
 
       If i >= 1000 Then
       MsgBox ("Problème d'envoi !")
       Else
       MsgBox "Le message est dans la boîte des éléments à envoyer !"
       End If
 
    ' détruit les références aux objets
    Set oEmail = Nothing
 
    Set appOutLook = Nothing

Désolé,

@+


Denis

[pgz]

Salut Denis,

Je crois que l'envoi du message ne déplace pas l'objet, mais le transforme. Tu perds OEmail, juste après le .Send.

Tu peux le vérifier en faisant des lectures à différents endroits d'une propriété de l'objet.

Il y a plusieurs façon de contourner le pb. je t'en propose une : tu relèves le nb de messages dans la boîte des envoyés ( si ton outlook est paramétré pour envoi immédiat) avant et après le .Send en attendant que le message parte. C'est plus rapide avec l'option ne pas envoyer et la lecture de la boîte 'à envoyer'.

A bientôt, et cordialement,

pgz

[User]

merci à toi,

Le problème est résolu,

je rencontre encore des difficulté de configuration d'outlook,

je n'arrive pas à envoyer les messages sans outlook express, mais ca concerne 1 autre forum.

Je tag donc résolu,

@+