MAIL ERROR mais mail envoyé ...

Atlante · Message par **Atlante** » jeu. 10/oct./2013 21:06

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.

falsam · Message par **falsam** » jeu. 10/oct./2013 21:09

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.

falsam · Message par **falsam** » jeu. 10/oct./2013 21:12

Tu peux aussi essayer sans Repeat ... Until. ça fonctionne aussi bien

Atlante · Message par **Atlante** » jeu. 10/oct./2013 21:14

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

falsam · Message par **falsam** » jeu. 10/oct./2013 21:21

Effectivement ça ne fonctionne pas avec les pdf. Bascule ton pdf dans un zip et ça fonctionne à chaque fois.

Atlante · Message par **Atlante** » jeu. 10/oct./2013 21:25

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.

falsam · Message par **falsam** » jeu. 10/oct./2013 21:28

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

Atlante · Message par **Atlante** » jeu. 10/oct./2013 21:34

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.

falsam · Message par **falsam** » jeu. 10/oct./2013 21:37

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

Atlante · Message par **Atlante** » jeu. 10/oct./2013 21:45

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.

falsam · Message par **falsam** » jeu. 10/oct./2013 22:37

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

Atlante · Message par **Atlante** » jeu. 10/oct./2013 23:06

Hello,

Je viens de tester ça passe avec ce code

Mais je suis quand même dessus pour la lib mail.

merci

PureBasic

MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...

Re: MAIL ERROR mais mail envoyé ...