MAIL ERROR mais mail envoyé ...

[Atlante]

Hello all,

J'ai un problème avec la bibliothèque mail.
En effet quand j'essai d'envoyer un mail avec le code ci dessous :

Code : Tout sélectionner

;
InitNetwork()


If CreateMail(0, "toto@toto.com", "Hello !")

  SetMailBody(0, "Hello !" + #CRLF$ + 
                 "This is a multi-" + #CRLF$ +
                 "line mail !")
  
  AddMailAttachment(0, "PDF"  , "C:\Users\private\Desktop\referentiel.pdf")

  
  ; Change the recipients to real one
  ;
  AddMailRecipient(0, "xxxxxxxx@free.fr", #PB_Mail_To)
 ; AddMailRecipient(0, "test_cc@yourdomain.com", #PB_Mail_Cc)
  
  ; Set the SMTP server to use
  ;
  Result = SendMail(0, "smtp.free.fr", 25, 1)
  
  Repeat
    Progress = MailProgress(0)
    Delay(300)
  Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
  
  Debug FormatDate("%dd/%mm/%yyyy", Date())          
  Debug FormatDate("%hh:%ii:%ss", Date())
  
  If Progress = #PB_Mail_Finished
    MessageRequester("Information", "Mail correctly sent !")
  Else
    MessageRequester("Error", "Can't sent the mail !")
  EndIf
  
EndIf

J'ai une erreur : Can't sent the mail !


Mais je reçois bien le mail...



Pourriez vous m'aider à résoudre ce problème ?

Best regards,


Atlante

[Ar-S]

Chez moi ça marche nikel, je me suis envoyé une image en piece jointe avec un joli
"Mail correctly sent !" après l'opération.

[Atlante]

test avec un PDF de 500ko minimum
fais plusieurs essais

[Backup]

attention ... Free limite la taille des email !!

[Atlante]

Ouai peut etre mais ils limitent sans doute à partir de 10mo mais pas 500ko.
La preuve je reçois le mail alors qu'il me dit mail pas envoyé...

Une bonne ame pourrait tester chez lui avec du fichier pdf ?

[Backup]

ben moi , j'ai essayé , j'ai rien reçut !

[Backup]

si !! ça marche mais avec ton code je ne pouvais pas y arriver,
car mon prestataire demande un login et un mot de pass !!

voici mes modifs ...

Code : Tout sélectionner

;

name$="*****" ; mettre votre login
pass$="*******" ; mettre votre pass 
prestataire$="smtp.orange.fr"

InitNetwork()


If CreateMail(0, "dob@free.fr", "Hello !")
	
	SetMailBody(0, "Hello !" + #CRLF$ +
	"This is a multi-" + #CRLF$ +
	"line mail !")
	
	AddMailAttachment(0, "PDF"  , "E:\Dobro\PureBasic\dobro\Dobro_creation\EPB\a lire\A lire.pdf") ; ici mettre votre fichier a joindre
	
	
	; Change the recipients to real one
	;
	AddMailRecipient(0, "dob@free.fr", #PB_Mail_To) ; adresse de l'envoyeur
	; AddMailRecipient(0, "test_cc@yourdomain.com", #PB_Mail_Cc)
	
	; Set the SMTP server to use
	;
	
	
	
	Result = SendMail(0, prestataire$, 25, 1,name$,pass$)
	
	Repeat
		Progress = MailProgress(0)
		select  Progress
			case #PB_Mail_Connected
			debug "connected"
			MessageRequester("Information", "Mail correctly sent !")
			case #PB_Mail_Finished 
			debug "finish"
			case #PB_Mail_Error
			debug "error"
			MessageRequester("Error", "Can't sent the mail !")
		EndSelect
		
		
	Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
	
	
EndIf
; EPB

[reedit]

oui ben non !!

ça envoie .... mais je ne reçois rien !

[Atlante]

On est d'accord il y a bien un problème sur la librairie mail.

@Fred je suis dispo pour n'importe quel test. Car pour le coup j'ai vraiment besoin que ça fonctionne je l'utilise pour envoyer des mails automatiques un projet demandé par mon patron.

[falsam]

Bonjour Atlante. Tu peux aussi utiliser ce code pour envoyer tes mails y compris au format html.
http://www.purebasic.fr/french/viewtopi ... 07#p157407

[Ar-S]

Test avec un fichier de 1.5mo en PDF => Can't sent the mail !
Je referai des tests plus tard j'ai plus le temps

[Atlante]

Bonjour Atlante. Tu peux aussi utiliser ce code pour envoyer tes mails y compris au format html.
http://www.purebasic.fr/french/viewtopi ... 07#p157407

Hello,

Deja merci.
Il faut que je test par contre je ne vois pas de champ copie à ou copie caché.

cdt,

Atlante

[Atlante]

Test avec un fichier de 1.5mo en PDF => Can't sent the mail !
Je referai des tests plus tard j'ai plus le temps

Essayes plus petit, normalement quand tu as can't sent email tu devrais le recevoir.
Car je suis vraiment dans ce cas de figure

[falsam]

je ne vois pas de champ copie à ou copie caché.

Dans l'exemple que je donne en fin de code c'est vrai que je ne l'utilise pas.

La procedure SMTP_Easy_Send_() est sous cette forme

Code : Tout sélectionner

SMTP_Easy_Send_Message(Connection, From$, ToWhom$, Subject$, Message$, HTML$ = "", ToCC$ = "", ToBCC$ = "")

Tu as les champs ToCC$ (Copie normal) et ToBCC$ pour la copie cachée.

[Atlante]

Bon j'ai modifié mon post et j'ai posté sur le forum Anglais :
http://www.purebasic.fr/english/viewtop ... 37#p427837

[falsam]

j'ai vu la réponse sur le forum anglais. Avec ce code

Code : Tout sélectionner

If Progress = #PB_Mail_Finished
    MessageRequester("Information", "Mail correctly sent !")
  Else
    MessageRequester("Error", "Can't sent the mail !")
  EndIf

Tu testes effectivement la progression avec le paramètre #PB_Mail_Finished mais la progression ne renvoie pas que cette information. C'est comme si tu considérais que la phase de connection au serveur smtp (#PB_Mail_Connected) était une source d'erreur.

Tu étais donc dans ton else

Le bon code

Code : Tout sélectionner

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

(Merci IdeasVacuum)