Page 2 sur 2
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:06
par Atlante
Déjà répondu
En fait s'il dit tout c'est bien passé alors rien n'a été envoyé.
J'ai le problème uniquement avec l'attachement, si je vire l'attachement tout fonctionne bien ...
C'est dingue un petit pdf de 500ko (referentiel bts SIO) et op rien ne fonctionne.
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:09
par falsam
je viens de m'envoyer un fichier d'environ 2.5 Mo avec la correction d'IdeasVacuum et ça fonctionne sans ton message d'erreur.
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:12
par falsam
Tu peux aussi essayer sans Repeat ... Until. ça fonctionne aussi bien
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:14
par Atlante
Avec ce message :
Code : Tout sélectionner
MessageRequester("Information", "The mail transfer is finished correctly")
Car quand j'ai celui là je ne reçois rien... Essayes avec mon fichiers plusieurs fois de suite please.
www.mfdeveloppement.fr\referentiel.pdf
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:21
par falsam
Effectivement ça ne fonctionne pas avec les pdf. Bascule ton pdf dans un zip et ça fonctionne à chaque fois.
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:25
par Atlante
Ouai je viens de voir ça en même temps... mais les autres pdf passent : OMG
Je comprends pas pourquoi mon pdf plante le mail.
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:28
par falsam
J'ai oublié de regarder ton type mime
Modifie ton code comme ci-dessous
Code : Tout sélectionner
AddMailAttachment(0, "Referentiel.pdf" , "referentiel.pdf", "application/pdf")
Les différents type mime sur ce lien
http://purebasic.developpez.com/documen ... hment.html
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:34
par Atlante
Code : Tout sélectionner
AddMailAttachment(0, "PDF","C:\Users\private\Desktop\referentiel.pdf","application/pdf ")
Mais non ça change rien déjà testé sur le fofo Anglais, par contre sur d'autre pdf je n'ai pas de problème.
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:37
par falsam
j'ai fais une dizaine d'envois sans aucun message d'erreur Atlante.
Mes conditions de test.
Le fichier est dans le meme dossier que l'éxécutable
la fin de ton code légèrement modifié
Code : Tout sélectionner
AddMailAttachment(0, "Referentiel.pdf" , "referentiel.pdf", "application/pdf")
; Change the recipients to real one
;
AddMailRecipient(0, "@gmail.com", #PB_Mail_To)
; AddMailRecipient(0, "test_cc@yourdomain.com", #PB_Mail_Cc)
; Set the SMTP server to use
;
Result = SendMail(0, "smtp.numericable.fr", 25, 1)
Progress = MailProgress(0)
Debug FormatDate("%dd/%mm/%yyyy", Date())
Debug FormatDate("%hh:%ii:%ss", Date())
If Progress = #PB_Mail_Finished
MessageRequester("Information", "The mail transfer is finished correctly")
ElseIf Progress = #PB_Mail_Error
MessageRequester("Error", "The mail transfer is finished but an error occurred")
EndIf
EndIf
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:45
par Atlante
Bah non toujours la même si il me dit OK avec une erreur je reçois bien sinon s'il me dit OK pas de problème et bien je reçois toujours rien.
J'ai testé en laissant ton smtp mais j'ai rien reçu non plus mais là je pense plus que j'ai pas le droit.
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 22:37
par falsam
Une autre solution que je viens de tester et plus souple que celle que j'ai proposé plus haut.
Code : Tout sélectionner
IncludeFile "SendMail.pbi"
InitNetwork()
Define mpara.SendMail_Parameter
With mpara
\Name = "On s'en fou" ;Ce que tu veux pour cette information
\Sender = "- @ -" ; E-Mail expediteur
\Recipient = "- @- " ; E-Mail Destinataire
\UserName = "" ; Utilisateur si besoin
\Password = "" ; Mot de passe utilisateur si besoin
\SMTPServer = "smtp. - . - " ;Serveur smtp Exemple : smtp.numericable.fr
\Subject = "Test" ; Sujet
\Message = "Testtext" ; Message texte brut (pour ceux qui ne reçoivent pas l'html)
\MessageHtml = "<html><body><p>Votre demande de documentation</p></body></html>" ;Message html
\Port = 25
\EnableProtocol = #True
EndWith
SendMail_AddAttachment("referentiel.pdf") ;Le fichier attaché
Define.s ProtocolTxt.s = SendMail_SendEmail(mpara)
If ProtocolTxt
OpenWindow(0, #PB_Ignore, #PB_Ignore, 640, 480, "SendMail - Protocol")
EditorGadget(0, 5, 5, 630, 470, #PB_Editor_ReadOnly)
SetGadgetText(0, ProtocolTxt)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
L'include sur ce lien
http://www.purebasic.fr/english/viewtop ... 79#p388479
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 23:06
par Atlante
Hello,
Je viens de tester ça passe avec ce code
Mais je suis quand même dessus pour la lib mail.
merci