[Dropy lib]Send Email

scaraber · Message par **scaraber** » sam. 25/mars/2006 10:13

Salut
Voila je suis sur un petit projet et j'aurais besoin d'envoyer un email pour que les utilisateur puisse m'envoyer des fichier pour completer les donne que j'est.j'est essayer avec la droopy lib sa :

Code : Tout sélectionner

Procedure envoie()
  file$ = OpenFileRequester("Envoyer un skin d'interface", FichierParDefaut$, "Morceau de skin|*.png|Skin complet|*.zip;*.rar", 0)
  Name$ = GetGadgetText(#text007)
  If file$
  AddAttachment(file$)
  If SendEmail("Changeur de Skin", "adresse@wanadoo.fr", "adresse@hotmail.fr", Name$, "mon Mot de passe", "smtp.wanadoo.fr", "Sujet", "By" + Name$)  
    MessageRequester("Information", "l'envoie a bien eu lieux" )
  Else
    MessageRequester("Information", "Erreur" )
  EndIf
  EndIf 
EndProcedure

mais sans resultat meme si jaten 10 min ni le message derreur ni de confirmaton
savez vous coment faire
si oui merci de me dire ce qui ne va pas
a+
scaraber

Droopy · Message par **Droopy** » sam. 25/mars/2006 13:33

N'oublie pas SendEMailInit() pour initialiser les fonctions d'envoie de mail

scaraber · Message par **scaraber** » sam. 25/mars/2006 13:34

je l'est fait mais rien a faire

scaraber · Message par **scaraber** » sam. 25/mars/2006 13:42

J'ai reussi je c pas coment ce que jai fait a force d'essayer des truc sa a marcher

scaraber · Message par **scaraber** » sam. 25/mars/2006 14:27

salut jai trouver un autre probvleme

Code : Tout sélectionner

Procedure envoie()
  file$ = OpenFileRequester("Envoyer un skin d'interface", FichierParDefaut$, "Morceau de skin|*.png|Skin complet|*.zip;*.rar", 0)
  Name$ = GetGadgetText(#text007)
  Names$="By "+Name$
  If file$
  AddAttachment(file$)
  SendEmail("Changeur de Skin", "Skin@wanadoo.fr", "bertrand_le_petit_scaraber@hotmail.fr","", "", "smtp.wanadoo.fr", "Nouveau Skin: "+Name$, Names$)  
  MessageRequester("Envoyer Skin","Effectuer",#PB_MessageRequester_Ok )
  EndIf 
EndProcedure

ceci marche pour moi mais pour les autre il le font et je recoit rien moi je recoit mais pas eu pourquoi ?

Droopy · Message par **Droopy** » sam. 25/mars/2006 21:11

J'ai remarqué que cette fonction ne marchait pas avec tous les serveurs POP. Cela fonctionne avec le smtp.wanadoo.fr, mais avec les autres ... ???

scaraber · Message par **scaraber** » sam. 25/mars/2006 22:37

J'utilise le smtp wanadoo... donc si jai bien compris les perosnne ayant wanadoo en fournisseur dacces sa marche et pas les autre.
Edit
jai une dll pour dark basic, pour cette fonction faudrait peut etre essayer ... je le ferais demain la je vais dodo
a+
scaraber

scaraber · Message par **scaraber** » dim. 26/mars/2006 8:51

j'essayerais ma dll plus tard mais la je n'est aucn testeur sous la main (il dorme tous) et donc jaurais voulu savori si ceci marcherais

Code : Tout sélectionner

SendEMailInit()
Dim smtp.s(30, 2)
Abs(smtp.s())
smtp(1, 1) = "Free"
smtp(2, 1) = "Magic Online"
smtp(3, 1) = "Club-Internet"
smtp(4, 1) = "BD Way"
smtp(5, 1) = "Wanadoo"
smtp(6, 1) = "Easynet"
smtp(7, 1) = "France Explorer"
smtp(8, 1) = "CompuServ"
smtp(9, 1) = "ClaraNet "
smtp(10, 1) = "9 Online"
smtp(11, 1) = "Club Internet"
smtp(12, 1) = "Compuserve"
smtp(13, 1) = "Easynet"
smtp(14, 1) = "EVHR"
smtp(15, 1) = "Fnac"
smtp(16, 1) = "France Explorer"
smtp(17, 1) = "Freesbee"
smtp(18, 1) = "Freesurf"
smtp(19, 1) = "HRNet"
smtp(20, 1) = "Infonie"
smtp(21, 1) = "Ifria"
smtp(22, 1) = "Libertysurf"
smtp(23, 1) = "M6 Net"
smtp(24, 1) = "Mageos"
smtp(25, 1) = "Mangoosta"
smtp(26, 1) = "Netclic"
smtp(27, 1) = "Net Up"
smtp(28, 1) = "Noos"
smtp(29, 1) = "Worldnet"
smtp(30, 1) = "Hotmail"

smtp(1, 2) = "smtp.free.fr"
smtp(2, 2) = "smtp.magic.fr"
smtp(3, 2) = "mail.club-internet.fr"
smtp(4, 2) = "mail.bdway.com"
smtp(5, 2) = "smtp.wanadoo.fr"
smtp(6, 2) = "smtp.easynet.fr"
smtp(7, 2) = "smtp.9online.fr"
smtp(8, 2) = "smtp.compuserv.com"
smtp(9, 2) = "smtp.claranet.fr"
smtp(10, 2) = "smtp.9online.fr"
smtp(11, 2) = "mail.club-internet.fr"
smtp(12, 2) = "smtp.compuserve.com"
smtp(13, 2) = "smtp.easynet.fr"
smtp(14, 2) = "mail.evhr.net"
smtp(15, 2) = "smtp.fnac.net"
smtp(16, 2) = "smtp.mailexplorer.com"
smtp(17, 2) = "smtp.freesbee.fr"
smtp(18, 2) = "smtp.freesurf.fr"
smtp(19, 2) = "mail.hrnet.fr"
smtp(21, 2) = "mail.infonie.fr"
smtp(21, 2) = "smtp.ifria.net"
smtp(22, 2) = "mail.libertysurf.fr"
smtp(23, 2) = "mail.m6net.fr"
smtp(24, 2) = "smtp.9online.fr"
smtp(25, 2) = "mail.mangoosta.net"
smtp(26, 2) = "smtp.netclic.fr"
smtp(27, 2) = "mail.net-up.com"
smtp(28, 2) = "mail.noos.fr"
smtp(29, 2) = "smtp.worldnet.net"
smtp(30, 2) = "mail.hotmail.com"

puis la procedure

Code : Tout sélectionner

Procedure envoie()
  Name$ = GetGadgetText(#text007)
  OpenWindow(3, 230, 42, 200, 200, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar, "Envoyer une Skin")
  
  If CreateGadgetList(WindowID())
    ListViewGadget(300, 40, 30, 100, 130)
    ButtonGadget(301, 30, 170, 120, 20, "Valider")
    TextGadget(302, 35, 5, 140, 20, "Choisisez un Server smtp")
  EndIf
  
  For a = 1 To 30
    AddGadgetItem (300, -1, smtp(a, 1))
  Next

  
  Repeat
  
    w=GetGadgetState(300)
    v=w+1   
    If WindowEvent() = #PB_Event_Gadget
      EventID = WaitWindowEvent()
      
      Select EventGadgetID()
          
        Case 301
          smtp$=smtp(v,2)
          file$ = OpenFileRequester("Envoyer une d'interface", FichierParDefaut$, "Morceau de skin|*.png|Skin complet|*.zip;*.rar", 0)
          Name$ = GetGadgetText(#text007)
          Names$ = "By " + Name$
      EndSelect
    EndIf
      
    If file$
      smtp$=smtp(v,2)
      AddAttachment(file$)
      SendEmail("Changeur de Skin", "Monadresse@wanadoo.fr", "Adressereception@gmail.com", "", "", smtp$, "Nouveau Skin: " + Name$, Names$)
      MessageRequester("Envoyer Skin", "Effectuée", #PB_MessageRequester_Ok )
      z=1
    EndIf
    
    Delay(2)
  Until EventID = #PB_EventCloseWindow Or z = 1
  
EndProcedure

Edit
pour alice:
smtp(31, 2) = "smtp.aliceadsl.fr"

test positif avec alice d'un copain.

Que pencer vous de sa
a+
scaraber

scaraber · Message par **scaraber** » dim. 26/mars/2006 19:42

salut
je me suis fait uen petit listeau cours de cette journée de smtp
voici le smtp.data

Code : Tout sélectionner

41
Free
Magic Online
Club-Internet
BD Way
Wanadoo
Easynet
France Explorer
CompuServ
ClaraNet 
9 Online
télé 2
Compuserve
Easynet
EVHR
Fnac
France Explorer
Freesbee
Freesurf
HRNet
Infonie
Ifria
Libertysurf
M6 Net
Mageos
Mangoosta
Netclic
Net Up
Noos
Worldnet
Hotmail
Alice adsl
Yahoo
Laposte
----Belgique----
Skynet
----Canada----
Canada
videotron
sympatico
globetel
koumbit(quebec)
smtp.free.fr
smtp.magic.fr
mail.club-internet.fr
mail.bdway.com
smtp.wanadoo.fr
smtp.easynet.fr
smtp.9online.fr
smtp.compuserv.com
smtp.claranet.fr
smtp.9online.fr
smtp.tele2.fr
smtp.compuserve.com
smtp.easynet.fr
mail.evhr.net
smtp.fnac.net
smtp.mailexplorer.com
smtp.freesbee.fr
smtp.freesurf.fr
mail.hrnet.fr
mail.infonie.fr
smtp.ifria.net
mail.libertysurf.fr
mail.m6net.fr
smtp.9online.fr
mail.mangoosta.net
smtp.netclic.fr
mail.net-up.com
mail.noos.fr
smtp.worldnet.net
mail.hotmail.com
smtp.aliceadsl.fr
smtp.mail.yahoo.fr
smtp.laposte.net

relay.skynet.be

smtp.canada.com
relais.videotron.ca
smtp1.sympatico.ca
smtp.globetel.com
smtp.koumbit.net

Code : Tout sélectionner

OpenFile(1,"SMTP.Data")
  a=Val(ReadString())
CloseFile(1)

Dim smtp.s(a, 2)
Abs(smtp.s())

OpenFile(1,"SMTP.Data")
 a=Val(ReadString())

  For z=1 To a
   smtp(z,1)=ReadString()
   Debug smtp(z,1)
  Next z
  For z=1 To a
   smtp(z,2)=ReadString()
   Debug smtp(z,2)
  Next z
CloseFile(1)

Code : Tout sélectionner

Procedure envoie()
  Name$ = GetGadgetText(#text007)
  OpenWindow(3, 230, 42, 200, 200, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar, "Envoyer une Skin")
  
  If CreateGadgetList(WindowID())
    ListViewGadget(300, 40, 30, 100, 130)
    ButtonGadget(301, 30, 170, 120, 20, "Valider")
    TextGadget(302, 35, 5, 140, 20, "Choisisez un Server smtp")
  EndIf
  
  OpenFile(2,"SMTP.Data")
    e=Val(ReadString())
  CloseFile(2)

  For a = 1 To e
    AddGadgetItem (300, -1, smtp(a, 1))
  Next a

  
  Repeat
  
    w=GetGadgetState(300)
    v=w+1   
    If WindowEvent() = #PB_Event_Gadget
      EventID = WaitWindowEvent()
      
      Select EventGadgetID()
          
        Case 301
          smtp$=smtp(v,2)
          file$ = OpenFileRequester("Envoyer une d'interface", FichierParDefaut$, "Morceau de skin|*.png|Skin complet|*.zip;*.rar", 0)
          Name$ = GetGadgetText(#text007)
          Names$ = "By " + Name$+" "+smtp$
      EndSelect
    EndIf
      
    If file$
      smtp$=smtp(v,2)
      AddAttachment(file$)
      SendEmail("Changeur de Skin", "bertrand90.provost@wanadoo.fr", "beberlescaraber@gmail.com", "", "", smtp$, "Nouveau Skin: " + Name$+" "+smtp$, Names$)
      MessageRequester("Envoyer Skin", "Effectuée", #PB_MessageRequester_Ok )
      z=1
    EndIf
    
    Delay(2)
  Until EventID = #PB_EventCloseWindow Or z = 1
  
EndProcedure

voila tout
a+
scaraber

Golfy · Message par **Golfy** » lun. 12/déc./2011 22:19

Qu'est devenu cette Lib ? je ne la trouve pas dans la Droopy Lib ?

Droopy · Message par **Droopy** » lun. 12/déc./2011 22:49

Les fonctions d'envoie de mail sont inclus dans la v4.
Alors je l'ai enlevé de ma lib

Golfy · Message par **Golfy** » mar. 13/déc./2011 18:51

Oh la honte pour moi

merci

PureBasic

[Dropy lib]Send Email

[Dropy lib]Send Email

Re: [Dropy lib]Send Email

Re: [Dropy lib]Send Email

Re: [Dropy lib]Send Email