PureBasic

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

[Dropy lib]Send Email

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

Page 1 sur 1

[Dropy lib]Send Email

Publié : sam. 25/mars/2006 10:13
par scaraber
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

Publié : sam. 25/mars/2006 13:33
par Droopy
N'oublie pas SendEMailInit() pour initialiser les fonctions d'envoie de mail

Publié : sam. 25/mars/2006 13:34
par scaraber
je l'est fait mais rien a faire

Publié : sam. 25/mars/2006 13:42
par scaraber
J'ai reussi je c pas coment ce que jai fait a force d'essayer des truc sa a marcher

Publié : sam. 25/mars/2006 14:27
par scaraber
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 ?

Publié : sam. 25/mars/2006 21:11
par Droopy
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 ... ???

Publié : sam. 25/mars/2006 22:37
par scaraber
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

Publié : dim. 26/mars/2006 8:51
par scaraber
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

Publié : dim. 26/mars/2006 19:42
par scaraber
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

Re: [Dropy lib]Send Email

Publié : lun. 12/déc./2011 22:19
par Golfy
Qu'est devenu cette Lib ? je ne la trouve pas dans la Droopy Lib ? :cry:

Re: [Dropy lib]Send Email

Publié : lun. 12/déc./2011 22:49
par Droopy
Les fonctions d'envoie de mail sont inclus dans la v4.
Alors je l'ai enlevé de ma lib :wink:

Re: [Dropy lib]Send Email

Publié : mar. 13/déc./2011 18:51
par Golfy
Oh la honte pour moi :oops:
merci :wink:
Fuseau horaire sur UTC+01:00
Page 1 sur 1

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

Traduction française officielle © Qiaeru