Page 1 sur 2
MAIL ERROR mais mail envoyé ...
Publié : mer. 09/oct./2013 22:01
par 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
Re: MAIL ERROR mais mail envoyé ...
Publié : mer. 09/oct./2013 23:14
par 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.
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 9:56
par Atlante
test avec un PDF de 500ko minimum
fais plusieurs essais
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 12:37
par Backup
attention ... Free limite la taille des email !!
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 14:49
par 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 ?
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 14:50
par Backup
ben moi , j'ai essayé , j'ai rien reçut !
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 15:13
par 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 !
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 15:44
par 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.
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 15:53
par 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
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 15:55
par 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
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 15:56
par Atlante
Hello,
Deja merci.
Il faut que je test par contre je ne vois pas de champ copie à ou copie caché.
cdt,
Atlante
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 15:56
par Atlante
Ar-S a écrit :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
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 16:01
par falsam
Atlante a écrit :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.
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 20:35
par Atlante
Bon j'ai modifié mon post et j'ai posté sur le forum Anglais :
http://www.purebasic.fr/english/viewtop ... 37#p427837
Re: MAIL ERROR mais mail envoyé ...
Publié : jeu. 10/oct./2013 21:01
par 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)