Comment détecter qu'un mail a été envoyé

Bonjour

Dans le cadre de la mise au point d'une petite application de suivi, je lance depuis un menu contectuel dans excel, la création d'un mail.
Dans ce mail on retrouve des informations de la ligne saisie. Objectif, eviter la resaisie à la main des informations dans le corps du mail.

Ensuite, c'est à la personne dans outlook de compléter le mail et de l'envoyer.

Pour faire celà, j'utilise le code suivant :

Code:

---

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

Initialisation des variables mailsCréation du mail   Set LolApp = Outlook.Application Set LobjMail = LolApp.CreateItem(olMailItem)   ' Création du mail With LobjMail   .To = "monmail@moi.com" .CC = "" .Subject = "Ceci est un essai" .BodyFormat = olFormatHTML .HTMLBody = "Ceci est le message" .Display End With   ' on verifie s'il a été envoyé ou non If LobjMail.Sent = True Then MsgBox "Le message a été envoyé" Else MsgBox "Le message n'a pas été envoyé" End If   ' On nettoie les variables Set LobjMail = Nothing Set LolApp = Nothing

---

La communication avec outlook fonctionne bien.

Par contre, la partie qui vérifie ou non l'envoi du mail ne fonctionne pas car : LobjMail.Sent est toujours à FALSE

Existe-t-il un autre moyen de capturer le fait que la personne a bien envoyée le mail ou non?

Le fait de capturer cette information, pourrait me permettre de mettre à jour mon fichier excel avec un statut "Envoyé"


D'avance merci pour votre retour

Bonjour,
C'est :

Code:

---

1 2	LobjMail.Send

---

et non :

Code:

---

1 2	LobjMail.Sent

---

Hervé.

Bonjour

C'est bien sent (qui est la propriété d'état) et non send (qui est l'action d'envoyer)

Le but est bien pour moi d'initialiser un mail et qu'ensuite la personne envoie ce mail car des informations peuvent être ajouter.

Mon souhait est ensuite dans mon code Excel de pouvoir détecter ce qu'a fait la personne et ainsi modifier le statut de la ligne.

A+

Re,

Le compilateur lit et exécute ton code ligne par ligne et il ne laisse la main qu'une fois qu'il rencontre une sortie (Exit Sub, End Sub, etc...) donc comme ton code n'exécute pas l'envoi avant le contrôle la valeur de Sent sera toujours à False !
Tu peux bricoler quelque chose (j'ai bien dis "bricoler" donc pas très propre, à voir si on peut faire mieux !...) avec un DoEvents dans une boucle Do - Loop et chercher à savoir l'état de ton mail qui va générer une erreur une fois parti :

Code:

---

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 34 35

Sub Envoi()   Dim LolApp As Outlook.Application Dim LobjMail As Outlook.MailItem   Set LolApp = Outlook.Application Set LobjMail = LolApp.CreateItem(olMailItem)   ' Création du mail With LobjMail   .To = "monmail@moi.com" .CC = "" .Subject = "Ceci est un essai" .BodyFormat = olFormatHTML .HTMLBody = "Ceci est le message" .Display End With   On Error Resume Next Do   DoEvents   Loop Until LobjMail.Sent = True   'si erreur, le mail est parti et donc il n'existe plus If Err.Number <> 0 Then MsgBox "Le message a été envoyé"   ' On nettoie les variables Set LobjMail = Nothing Set LolApp = Nothing   End Sub

---

Hervé.

Merci pour cette astuce.

Maintenant je détecte bien que le mail est parti mais si l'utilisateur supprime le mail alors je suis dans l'incertitude.

En tout cas, la piste que tu m'as donné me permet d'aller plus loin et de creuser un peu.

Encore merci

SAlut,
Sinon il faut utiliser les événements de OUTLOOK
:f1:

Citation:

---

Référence du développeur Outlook
MailItem.Send, événement
Afficher tout
Masquer tout
Survient lorsque l'utilisateur sélectionne l'action Send pour un élément ou lorsque la méthode Send est appelée pour cet élément (ce dernier étant une instance de l'objet parent).
Syntaxe

expression.Send(Cancel)

expression Variable qui représente un objet MailItem.

Paramètres

Nom Obligatoire/Facultatif Type de données Description
Cancel Obligatoire Booléen (Non utilisé dans VBScript). Cet argument a la valeur False si l'événement survient. Si la procédure événementielle affecte à cet argument la valeur True, l'opération d'envoi n'est pas achevée et l'inspecteur reste ouvert.

Remarques


Dans Microsoft Visual Basic Scripting Edition (VBScript), si vous définissez la valeur renvoyée de cette fonction sur False, l'élément n'est pas envoyé.


Exemple


Cet exemple Visual Basic pour Applications (VBA) montre comment utiliser l’événement Send et envoyer un élément (élément : dans Outlook, unité de base pour le stockage d’informations (équivalent d’un fichier pour d’autres programmes). Les éléments incluent les messages électroniques, les rendez-vous, les contacts, les tâches, les entrées du journal, les notes, ainsi que les éléments et documents publiés.) avec une date d’expiration automatique. L’exemple de code doit être placé dans un module de classe tel que ThisOutlookSession et la procédure SendMyMail doit être appelée avant que la procédure événementielle puisse être appelée par Microsoft Outlook.

Visual Basic pour Applications
Public WithEvents myItem As Outlook.MailItem

Sub SendMyMail()
Set myItem = Outlook.CreateItem(olMailItem)
myItem.To = "Dan Wilson"
myItem.Subject = "Data files information"
myItem.Send
End Sub

Private Sub myItem_Send(Cancel As Boolean)
myItem.ExpiryTime = #2/2/2003 4:00:00 PM#
End Sub

---

:f1:
Référence du développeur Outlook
MailItem.Close, événement

ou
:f1:
Référence du développeur Outlook
MailItem.BeforeDelete, événement