Bibliothèque Mail ne fonctionne pas PB4.20

Jacobus · Message par **Jacobus** » mar. 25/nov./2008 19:47

Je n'arrive pas à faire passer un email avec en utilisant l'exemple de base

Ouaï mais Ouaï ?? Argh!

  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é.

Fortix · Message par **Fortix** » dim. 30/nov./2008 22:40

Salutation,

Effectivement, j'ais constaté la même chose

c'est bien domage pour une dernière version

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

case · Message par **case** » dim. 30/nov./2008 23:47

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

Jacobus · Message par **Jacobus** » lun. 01/déc./2008 9:56

Pas pour moi. (Vista sp1)
PB 4.20 refuse d'envoyer un mail.

venom · Message par **venom** » jeu. 04/déc./2008 19:47

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

@++

Jacobus · Message par **Jacobus** » ven. 05/déc./2008 10:33

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.

venom · Message par **venom** » ven. 05/déc./2008 16:21

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é

. j'ai mis a jours mon code au cas ou

@++

nico · Message par **nico** » ven. 05/déc./2008 16:40

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

venom · Message par **venom** » ven. 05/déc./2008 16:44

Bizarre, avec la 4.30 bêta 4 il faut remettre à 20 sinon ça change la hauteur du gadget.

a ouai carrément

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

@++

nico · Message par **nico** » ven. 05/déc./2008 17:04

Non autant pour moi, ça devrait fonctionner avec la 4.30 bêta 4, je me suis trompé dans mon fournisseur.

comtois · Message par **comtois** » ven. 05/déc./2008 18:50

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

venom · Message par **venom** » lun. 08/déc./2008 20:45

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

@++