Discussion :

[adlinformatik]

Bonjour

J'ai une application qui -entre autre- envoi des emails (un rapport converti en PDF)

le problème est que mon application plante lorsque j'active la ligne:

Code :

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

.MDNRequested = True

J'ai essayer en VBA Access et en VB6 j'ai l'application se referme, mais le message est envoyé et même la confirmation de lecture est envoyée parfois

mais si je met :

Code :

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

'objMessage.MDNRequested = True

pas de plantage

j'ai remarquer aussi sur VB6 que si je saisi les informations directement sur le code cad :je saisi les adresses mails et le mot de passe, y a pas de plantage
mais dès que j'utilise les variables (qui pointent vers des données saisies dans un form) et qui est obligatoire pour moi, ça plante !

Cordialement

[Invité]

Bonjour,
si ça peut t'aider! https://www.developpez.net/forums/d1...t/#post7968025

[adlinformatik]

Merci pour le lien que tu ma envoyer, il est très bien détaillé et expliqué, seulement il n'aborde pas question de : MDNRequested

a mon avis et selon ce que j'ai vu, ça fonctionne, si c'est un serveur SMTP interne comme Exchange, pas avec les serveurs distants comme smtp.mail.yahoo.fr
qui est mon cas, peut être que ça fonctionne avec d'autres messageries comme gmail et hotmail, que je n'est pas encore tester, et que je le ferai dès que je pourrai
ou peu être pour ces serveurs distants il faut une instruction spéciale ou une ligne que j'ai loupé

[Invité]

Bonjour,
Ça fonctionne comme mozila Thunderbird avec Hotmail,gmail, Yahoo et tous les hébergeurs!

Il faut légèrement modifier le 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
With MailObj
    .To = Destinataire
    .CC = DestinataireCopy
    .BCC = DestinataireCopyCacher
    .Subject = Sujet
    .BodyFormat = 2
    .HTMLBody = Message
.MDNRequested = True
    If Trim("" & Pj) <> "" Then
        p = Split(Pj & ";", ";")
        For i = 0 To UBound(p)
            If Trim("" & p(i)) <> "" Then .Attachments.Add Trim("" & p(i))
        Next
    End If
    '.Display 'Can be .Send but prompts for user intervention before sending without 3rd party software like ClickYes
    .Send
End With