Comment vérifier qu'un mail est bien envoyé - VBA Access

[RAhmed]

Bonjour

Pour envoyer des mails automatiquement en utilisant Outlook - VBA, j'ai utilisé la fonction suivante:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim i As Boolean
            Dim olApp   As outlook.Application
            Dim objMail As MailItem
            Set olApp = outlook.Application
            Set objMail = olApp.CreateItem(OlMailItem)
 
            With objMail
                    .BodyFormat = olFormatHTML
                    .To = Destinataire
                    .Subject = Subject
                    .Body = text
                    .Attachments.Add cFile
                    .Cc = listeCC
                    .Send ' Envoie la mail
 
             End With
          Set objMail = Nothing

Je veux m'assurer que mon mail est bien envoyé. Il existe pour MailItem la propriété "sent" qui renvoie boolean , mais je n'arrive pas à l'utiliser dans mon code. Avez vous une idée SVP

[ClaudeLELOUP]

Bonjour,


Pourquoi le mail ne serait-il pas envoyé ?

Si l’adresse est erronée (mauvaise structure) l’Err.Number = -2147467259 est renvoyée.
On peut donc la traquer dans la procédure d’envoi ou mieux, la prévenir en vérifiant la conformité de la structure de l'adresse lors de l’encodage dans la BDD par exemple comme ceci (copié, je ne sais plus où) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function eMailValide(sAdresse As String) As Boolean
Dim regEx As RegExp, occurrences As MatchCollection
On Error GoTo GestionErreur
'Vérifier si Microsoft VBScript Regular Expressions est présente
Application.References.AddFromGuid "{3F4DACA7-160D-11D2-A8E9-00104B365C9F}", 5, 5
'
Set regEx = New RegExp
regEx.Pattern = "^([\w_.-]+)@([\w]{2,})\.[a-z]{2,3}$"
regEx.Global = False 'Renvoyer seulement la première occurrence
Set occurrences = regEx.Execute(sAdresse)
eMailValide = (occurrences.Count = 1)
Exit Function
GestionErreur:
Select Case Err.Number
  Case 32813  ' la référence existe déjà
    Resume Next
  Case Else
    MsgBox "Erreur dans eMailValide" & vbLf & Err.Number & vbLf & Err.Description
End Select
End Function

Crains-tu d'autres cas ?

[vodiem]

salut RAhmed et ClaudeLELOUP,

Code :

1
2
3
4
SendEmail = .Send
If IsEmpty(SendEmail) Then
...
End If

@ClaudeLELOUP: cas d'adresse obsolète, serveur occupé...
par ailleurs le pattern n'est pas très stricte...

[ClaudeLELOUP]

Bonjour Vodiem,

Je suis loin d'être un spécialiste, mais j'utilise souvent... sans problème jusqu'ici. Du moins, je l'espère !

cas d'adresse obsolète

Dans ce cas :
1er temps : le message part
2e temps : je reçois, après un certain temps, un message "Mail Delivery Subsystem" qui annonce que le destinataire est inconnu, ou que sa boîte est pleine... et je suis informé et si nécessaire, je réagis.

serveur occupé

N'est-ce pas alors Outlook qui a le problème ?
Je suppose que Access va attendre tant que Outlook est bloqué.

Est-ce correct ?

[vodiem]

bonsoir ClaudeLELOUP,

je ne connais pas l'objet outlook.Application pour connaitre les valeurs du .send et les origines qui peuvent lever ces erreurs.
le cas d'adresse obsolète ne dois pas être un bon exemple car il est fort probable que le send s'arrête effectivement à l'acheminement au serveur de courrier de l'expéditeur.
mais un acheminement trop long, une interruption dans la liaison, un filtrage d'adresse, de droits... font surement parti de ces cas où le send peut échouer sans pour autant que l'adresse ne soit pas valide.
dans le cas du cdo un délai trop long suffit à lever une erreur au send.

je n'ai pas étudié la question plus en détail pour pouvoir te répondre mais ce que je voulais souligner c'est que la validation d'adresse n'est pas suffisante pour garantir l'expédition.
il ne suffit pas de vérifier qu'une adresse existe pour s'assurer que le courrier y arrive.

[RAhmed]

Bonsoir à vous deux,
et merci bcp pour votre réponse. Pour vodiem, est ce que vous pouvez m'expliquer le code que vs avez mis, et est ce qu'il suffit pour savoir si on mail et partie??

Code :

1
2
3
4
SendEmail = .Send
If IsEmpty(SendEmail) Then
...
End If

merci bcp pour votre aide.

[vodiem]

Code :

1
2
3
4
SendEmail = .Send
If IsEmpty(SendEmail) Then
... ' en cas de succès
End If

à vérifier car cela marche avec cdo mais la documentation officiel pour MailItem ne précise pas que cet emploi.

[ClaudeLELOUP]

Merci Vodiem, c'est clair !

[RAhmed]

Bonjour

Voila j'ai essayé de rajouter

Code :

1
2
SendEmail = .Send
If IsEmpty(SendEmail) Then

Mais ce ne marche pas, j 'ai erreur une erreur. comment introduire ce controle dans le code suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim i As Boolean
            Dim olApp   As outlook.Application
            Dim objMail As MailItem
            Set olApp = outlook.Application
            Set objMail = olApp.CreateItem(OlMailItem)
 
            With objMail
                    .BodyFormat = olFormatHTML
                    .To = Destinataire
                    .Subject = Subject
                    .Body = text
                    .Attachments.Add cFile
                    .Cc = listeCC
                    .Send ' Envoie la mail
 
             End With
          Set objMail = Nothing

Merci pour votre aide