Test d'email sur gmail

[SPH]

Quelqu'un ayant un compte gmail pourrait-il essayer ce code pour voir si il marche ? (avec ma livebox, rien a faire, mes ports ne veulent pas s'ouvrir) :
(PS : ceux qui ont un firewall peuvent ils me dire si le firewall detecte l'envoie ?)

Code : Tout sélectionner

InitNetwork()

If CreateMail(0, "********@gmail.com", "le titre")

  SetMailBody(0, "mon message")
  
;   AddMailAttachment(0, "piece", "c:\***********")

Result = SendMail(0, "smtp.gmail.com", 465, 1)
  
  Repeat
    Progress = MailProgress(0)
    Delay(300)
  Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
  
  If Progress = #PB_Mail_Finished
    MessageRequester("Information", "Mail correctly sent !")
  Else
    MessageRequester("Error", "Can't sent the mail !")
  EndIf
  
EndIf

[lepiaf31]

Heu tu veux absolument que ce soit un compte Gmail ou on peut tester sur un autre hebergeur ?

[jbernard13]

j'ai testé et ça marche pas
j'ai le message suivant : Can't sent the mail

c'est pas j'ai testé et ça marche pas

mais j'ai testé et ça ne marche pas

[SPH]

j'ai testé et ça marche pas
j'ai le message suivant : Can't sent the mail

Grrr, comme moi (tu as bien mis un email valide a la place des *** j'espere)

@lepiaf : oui, gmail

[lepiaf31]

SPH, si tu es chez orange, c'est normal. Tu ne peux envoyer des mails en passant par le port smpt seulement à partir d'un identifiant orange (smtp.orange.fr). Ce bridage de port chez orange à été mis en place dans le but de limiter l'envoi de SPAM.

[venom]

j'ai envie de dire vive orange et ces ports

si non SPH cherche VMail sur le forum il me semble que je donne la source peut etre que tu peut en faire quelque chose





@++

[SPH]

SPH, si tu es chez orange, c'est normal. Tu ne peux envoyer des mails en passant par le port smpt seulement à partir d'un identifiant orange (smtp.orange.fr). Ce bridage de port chez orange à été mis en place dans le but de limiter l'envoi de SPAM.

Interessant. Jbernard13, tu es aussi chez orange (moi oui) ??
Lepiaf, puis je te donner par MP un email gmail pour que tu puisses essayer (si toutefois tu n'es pas chez orange) ?

[lepiaf31]

@SPH: désolé je suis chez orange aussi, c'est pour cela que je connais ce problème, j'en ai moi-même était victime.

Par contre, on peut quand même utiliser ce port en faisant comme indiqué ici: http://assistance.orange.fr/envoyer-des ... 6-1354.php

[SPH]

@SPH: désolé je suis chez orange aussi, c'est pour cela que je connais ce problème, j'en ai moi-même était victime.

Par contre, on peut quand même utiliser ce port en faisant comme indiqué ici: http://assistance.orange.fr/envoyer-des ... 6-1354.php

J'ai lu ton lien. Ce ne sera pas moi qui email qqun d'autre depuis mon mail orange mais c'est mon prog qui me mail sur gmail. Donc, j'essayais la routine tout comme d'autre l'essayeront. Mais deja, si orange bloque, c'est mal barré.

[venom]

je viens de tester chez free sa ne fonctionne pas. façon si je suis chez free je doit utilisé le smtp de free un autre ne fonctionnera pas.
tout comme toi chez orange non ?







@++

[lepiaf31]

je viens de tester chez free sa ne fonctionne pas. façon si je suis chez free je doit utilisé le smtp de free un autre ne fonctionnera pas.
tout comme toi chez orange non ?

Oui c'est possible. Je ne préfère pas m'avancer je ne connais pas free.

[venom]

en faite j'ai fait un logiciel envoie de mail le voici:

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

Procedure Open_Window_1()
  Global FontID1
  FontID1 = LoadFont(1, "Comic Sans MS", 12, #PB_Font_Bold)
  Global FontID2
  FontID2 = LoadFont(2, "Comic Sans MS", 50, #PB_Font_Bold)
  
  If OpenWindow(1, 280, 181, 439, 200, "signature", #PB_Window_BorderLess | #PB_Window_ScreenCentered)
    SetWindowColor(1, RGB(0, 0, 0))
    
    TextGadget(0, 5, 5, 155, 30, "Programmer par ...")
    SetGadgetColor(0, #PB_Gadget_FrontColor, RGB(255, 0, 0))
    SetGadgetColor(0, #PB_Gadget_BackColor, RGB(0, 0, 0))
    SetGadgetFont(0, FontID1)
    
    TextGadget(1, 110, 50, 195, 95, "venom")
    SetGadgetColor(1, #PB_Gadget_FrontColor, RGB(255, 0, 0))
    SetGadgetColor(1, #PB_Gadget_BackColor, RGB(0, 0, 0))
    SetGadgetFont(1, FontID2)
    
    TextGadget(2, 345, 175, 80, 30, " purebasic")
    SetGadgetColor(2, #PB_Gadget_FrontColor, RGB(255, 0, 0))
    SetGadgetColor(2, #PB_Gadget_BackColor, RGB(0, 0, 0))
    SetGadgetFont(2, FontID1)
    Delay(1100)
  EndIf
EndProcedure

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)
            Open_Window_1()
            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
Open_Window_1()

si j'utilise un autre smtp que free cela ne fonctionne pas.
si je prend free le mail s'envoie sans problème. Donc je pense qu'il faut utilisé le smtp approprié au FAI








@++

[SPH]

"VENOM", nom faisant probablement reference au mot "venim" mais contrairement a son nom, il viens de me sauver la vie.
Ton code est EXTRA !!!! THxxxxxxxxxxxxxxxxxxxxx
EXACTEMENT ce qui me fallait !

PS : j'ai dis ORANGE et ca a marché !!!

[jbernard13]

j'ai testé et ça marche pas
j'ai le message suivant : Can't sent the mail

Grrr, comme moi (tu as bien mis un email valide a la place des *** j'espere)

@lepiaf : oui, gmail

oui j'ai mis mon adresse à la place des *****
et je suis chez Orange

[venom]

Ton code est EXTRA !!!! THxxxxxxxxxxxxxxxxxxxxx
EXACTEMENT ce qui me fallait !
PS : j'ai dis ORANGE et ca a marché !!!

de rien c'est là pour sa

donc mon code fonctionne chez toi avec orange en smtp ???






@++