PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

Bibliothèque Mail ne fonctionne pas PB4.20

http://forums.purebasic.com/french/viewtopic.php?t=8778

Page 1 sur 1

Bibliothèque Mail ne fonctionne pas PB4.20

Publié : mar. 25/nov./2008 19:47
par Jacobus
Je n'arrive pas à faire passer un email avec en utilisant l'exemple de base :? Ouaï mais Ouaï ?? Argh!

Code : Tout sélectionner

  From$   = "votrepseudo@orange.fr"  ; votre adresse d'expéditeur
  MailTo$ = "destinataire@bidule.fr" ; e-mail de votre contact ou votre 2ème adresse
  smtp$   = "smtp.orange.fr" ; par exemple selon le votre
   
      If InitNetwork()<>0
        If CreateMail(0, From$, "Sujet de test")				   
				  SetMailBody(0, "Bonjour  "+Chr(10)+"Voici un message de test")				   	  
				  AddMailRecipient(0, MailTo$, #PB_Mail_To)			  				  				  
				  SendMail(0, smtp$, 25, 1)				  
				   Debug GetMailBody(0)			  
				  Repeat
				   progress = MailProgress(0)
				   If progress = #PB_Mail_Connected
				    Debug "Initialisation de l'envoi."
           EndIf 
           Debug "Octets envoyés : "+Str(progress)
				   Delay(300)
				  Until progress = #PB_Mail_Finished Or progress = #PB_Mail_Error			  
					  If progress = #PB_Mail_Finished
					   Debug "Le mail a été correctement envoyé."
					  ElseIf progress = #PB_Mail_Error
					   Debug "Erreur! Le mail n'a pu être envoyé."
					  EndIf 				  
        EndIf 
      EndIf 
     
     
;      resultat du Debugger:
;      
;       Bonjour  
; 			Voici un message de test
; 			Octets envoyés : 0
; 			Initialisation de l'envoi.
; 			Octets envoyés : -1
; 			Octets envoyés : -2
; 			Erreur! Le mail n'a pu être envoyé.
Bon laissez tomber, c'est un bug de la 4.20 corrigé avec la 4.30
J'ai trouvé sur forum anglais ici

Code : Tout sélectionner

;      resultat du Debugger: PB 4.30

; 				Bonjour  
; 				Voici un message de test
; 				Octets envoyés : 0
; 				Initialisation de l'envoi.
; 				Octets envoyés : -1
; 				Octets envoyés : 292
; 				Octets envoyés : -3
; 				Le mail a été correctement envoyé.

Publié : dim. 30/nov./2008 22:40
par Fortix
Salutation,

Effectivement, j'ais constaté la même chose :oops:
c'est bien domage pour une dernière version :!:

j'éspère qu'il y aura une mise à joure de correction :lol:

Publié : dim. 30/nov./2008 23:47
par case
Bonjour
Voici un message de test
Octets envoyés : 0
Initialisation de l'envoi.
Octets envoyés : -1
Initialisation de l'envoi.
Octets envoyés : -1
Octets envoyés : -3
Le mail a été correctement envoyé.

chez moi ça fonctionne parfaitement :)

pensez a metre des adresses e-mail valides dans from$ et mailto et que le smpt est valide aussi et correspond au domaine sur lequel vous etes conectes.



par exemple utiliser le smtp orange si vous etes chez club internet ca vas foirer

Publié : lun. 01/déc./2008 9:56
par Jacobus
Pas pour moi. (Vista sp1)
PB 4.20 refuse d'envoyer un mail.

Publié : jeu. 04/déc./2008 19:47
par venom
Salut Jacobus,

ce code fonctionne chez moi test pour voir :

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
  #Window_1
EndEnumeration

;- Gadget Constants
Enumeration
  #Frame3D_0
  #Frame3D_1
  #Frame3D_2
  #Frame3D_3
  #Text_0
  #Text_1
  #Text_2
  #Text_3
  #String_0
  #String_1
  #String_2
  #String_3
  #Combo_0
  #Button_0
  #Button_1
  #StatusBar_0
EndEnumeration
InitNetwork()

  If OpenWindow(#Window_0, 0, 0, 600, 365, "VMail",  #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
    Frame3DGadget(#Frame3D_0, 10, 10, 580, 260, "")
    Frame3DGadget(#Frame3D_1, 10, 285, 175, 50, "votre fournisseur")
    Frame3DGadget(#Frame3D_2, 415, 285, 175, 50, "Envoyer")
    Frame3DGadget(#Frame3D_3, 210, 285, 175, 50, "Pièce jointe")
    TextGadget(#Text_0, 20, 35, 25, 20, "De:")
    TextGadget(#Text_1, 20, 65, 20, 20, "A:")
    TextGadget(#Text_2, 15, 95, 30, 20, "Objet:")
    StringGadget(#String_0, 50, 30, 530, 20, "")
    StringGadget(#String_1, 50, 60, 530, 20, "")
    StringGadget(#String_2, 50, 90, 530, 20, "")
    EditorGadget(#String_3, 20, 120, 560, 140)
    ComboBoxGadget(#Combo_0, 20, 305, 155, 20)
     AddGadgetItem(#Combo_0, 0, "alice" , 0)
     AddGadgetItem(#Combo_0, 1, "caramail" , 0)
     AddGadgetItem(#Combo_0, 2, "cegetel" , 0)
     AddGadgetItem(#Combo_0, 3, "club-internet" , 0)
     AddGadgetItem(#Combo_0, 4, "free" , 0)
     AddGadgetItem(#Combo_0, 5, "neuf" , 0)
     AddGadgetItem(#Combo_0, 6, "noos" , 0)
     AddGadgetItem(#Combo_0, 7, "orange" , 0)
     AddGadgetItem(#Combo_0, 8, "tele2" , 0)
     AddGadgetItem(#Combo_0, 9, "tiscali" , 0)
     AddGadgetItem(#Combo_0, 10, "wanadoo" , 0)
      SetGadgetState(#Combo_0, 4)
    ButtonGadget(#Button_0, 425, 305, 155, 20, "Envoyer") 
    ButtonGadget(#Button_1, 220, 305, 155, 20, "Ajouté un fichier") 
   If CreateStatusBar(#StatusBar_0, WindowID(#Window_0))
    AddStatusBarField(300)
    AddStatusBarField(300)
    StatusBarText(#StatusBar_0, 0, "Pas de pièce jointe", #PB_StatusBar_BorderLess)
    StatusBarText(#StatusBar_0, 1, "", #PB_StatusBar_BorderLess)
   EndIf 
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
       Case #Button_1
        piecejointes$ = OpenFileRequester("Choisir un fichier a envoyer", "", "Fichiers|*.*" , 0)
         testpiecejointes = SelectedFilePattern()
        If testpiecejointes = 0
         DisableGadget(#Button_1, 1)
         StatusBarText(#StatusBar_0, 0, "pièce jointe : "+GetFilePart(piecejointes$), #PB_StatusBar_BorderLess)
        ElseIf testpiecejointes = -1
         DisableGadget(#Button_1, 0)
        EndIf 

       Case #Button_0
        fournisseur$ = GetGadgetItemText(#Combo_0, GetGadgetState(#Combo_0), 0); on renvoie le fournisseur
        mailserver.s="smtp."+fournisseur$+".fr"
         If CreateMail(0, GetGadgetText(#String_0), GetGadgetText(#String_2))
           SetMailBody(0, GetGadgetText(#String_3))
           AddMailRecipient(0, GetGadgetText(#String_1), #PB_Mail_To)
           AddMailAttachment(0, GetFilePart(piecejointes$), piecejointes$ , MimeType$)
           StatusBarText(#StatusBar_0, 1, "Patientez envoie en cours ...", #PB_StatusBar_BorderLess|#PB_StatusBar_Right)
           Resultat = SendMail(0, mailserver.s, 25, 0)
        
          If Resultat = 1
           StatusBarText(#StatusBar_0, 1, "", #PB_StatusBar_BorderLess|#PB_StatusBar_Right)
            MessageRequester("Information", "Mail envoyé avec succée", 0)
             End 
          ElseIf Resultat = 0
           StatusBarText(#StatusBar_0, 1, "Erreur d'envoie ...", #PB_StatusBar_BorderLess|#PB_StatusBar_Right)
            MessageRequester("Information", "Le mail n'a pas pu étre envoyé", 0)
          EndIf 
         EndIf

      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow



@++

Publié : ven. 05/déc./2008 10:33
par Jacobus
Non ça ne fonctionne pas!
C'est pas grave, j'attendrai la 4.30 finale.
Au passage, change la valeur Height de ta combobox, passe la de 20 à 100 par exemple, pour espérer voir la liste des fournisseurs.

Publié : ven. 05/déc./2008 16:21
par venom
Au passage, change la valeur Height de ta combobox, passe la de 20 à 100 par exemple, pour espérer voir la liste des fournisseurs.
merci pour l'info Jacobus c'est par ce que chez moi a 20 je voyais la totalité :wink: . j'ai mis a jours mon code au cas ou :wink:




@++

Publié : ven. 05/déc./2008 16:40
par nico
Au passage, change la valeur Height de ta combobox, passe la de 20 à 100 par exemple
Bizarre, avec la 4.30 bêta 4 il faut remettre à 20 sinon ça change la hauteur du gadget.

Sinon impossible d'envoyer un email avec la 4.30 bêta 4

Publié : ven. 05/déc./2008 16:44
par venom
Bizarre, avec la 4.30 bêta 4 il faut remettre à 20 sinon ça change la hauteur du gadget.
a ouai carrément 8O c'est horrible je remet 20 de suite.
Sinon impossible d'envoyer un email avec la 4.30 bêta 4
Sa fonctionne chez moi purebasic 4.30 beta 5



@++

Publié : ven. 05/déc./2008 17:04
par nico
Non autant pour moi, ça devrait fonctionner avec la 4.30 bêta 4, je me suis trompé dans mon fournisseur.

Publié : ven. 05/déc./2008 18:50
par comtois
Pour la hauteur ComboBoxGadget c'est une nouveauté de la 4.30

Extrait de l'historique :
Changé: La hauteur de ComboBoxGadget() est la hauteur réelle du gadget

Publié : lun. 08/déc./2008 20:45
par venom
je me suis amusé a continué un petit peut mon code j'y est ajouté la fonction pièce jointe.( un seul fichier peut être envoyé )
le code est mis a jours plus haut :wink:




@++
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru