PureBasic

Forums PureBasic
Nous sommes le Dim 21/Juil/2019 20:17

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 22 messages ]  Aller à la page 1, 2  Suivante
Auteur Message
 Sujet du message: envoi de mail
MessagePosté: Sam 23/Mar/2019 16:46 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3981
Salut,

voyez vous autre chose que ceci pour envoyer un email a coup sur ? :


Code:
InitNetwork()

If CreateMail(0, "", "test d'envoi de mail")
  SetMailBody(0, "Envoyé par "+ComputerName())
  AddMailRecipient(0, "isabelle.nopi@laposte.net", #PB_Mail_To)
  ;          For i=0 To cmb
  ;            AddMailAttachment(0, "save", "save", "")
  ;          Next
  Resultat = SendMail(0, "smtp.orange.fr", 25, 0)
  If resultat=0
    Resultat = SendMail(0, "smtp.free.fr", 25, 0)
    If resultat=0
      Resultat = SendMail(0, "smtp.cegetel.fr", 25, 0)
      If resultat=0
        Resultat = SendMail(0, "smtp.alice.fr", 25, 0)
        If resultat=0
          Resultat = SendMail(0, "smtp.sfr.fr", 25, 0)
          If resultat=0
            Resultat = SendMail(0, "smtp.neuf.fr", 25, 0)
            If resultat=0
              Resultat = SendMail(0, "smtp.noos.fr", 25, 0)
              If resultat=0
                Resultat = SendMail(0, "smtp.tele2.fr", 25, 0)
                If resultat=0
                  Resultat = SendMail(0, "smtp.tiscali.fr", 25, 0)
                  If resultat=0
                    Resultat = SendMail(0, "smtp.wanadoo.fr", 25, 0)
                    If resultat=0
                      Resultat = SendMail(0, "smtp.numericable.fr", 25, 0)
                      If resultat=0
                        Resultat = SendMail(0, "smtp.ovh.fr", 25, 0)
                        If resultat=0
                          MessageRequester("erreur","Email non envoyé")
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf
            EndIf
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Sam 23/Mar/2019 17:51 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 27/Oct/2006 12:19
Messages: 1219
Localisation: Calvados (14)
Salut SPH,

il manque juste un truc c'est que tu ne fais que des envois via le port 25, donc sans SSL, ne pas oublier les ports 465 et 587 :wink:

à l'arrache :
Code:
InitNetwork()
MsgTitle.s="email envoyé"
msgText.s="Votre message a bien été envoyé"
srvSMTP.s=""

If CreateMail(0, "", "test d'envoi de mail")
  SetMailBody(0, "Envoyé par "+ComputerName())
  AddMailRecipient(0, "isabelle.nopi@laposte.net", #PB_Mail_To)
  ;          For i=0 To cmb
  ;            AddMailAttachment(0, "save", "save", "")
  ;          Next
  Resultat=0
  Restore smtpServers
  While Resultat=0
    Read.s srvSMTP
    Resultat = SendMail(0, "smtp."+SrvSMTP, 25, 0)
  Wend
  If resultat=0
    msgTitle="Erreur envoi email"
    msgText="Il y a eu un problème sur l'envoi de votre message !!!"
  EndIf
  MessageRequester(MsgTitle,MsgText)
   
EndIf

End

DataSection
  smtpServers:
  Data.s "orange.fr", "free.fr","cegetel.fr","alice.fr"
  Data.s "sfr.fr","neuf.fr","noos.fr","tele2.fr","tiscali.fr"
  Data.s "wanadoo.fr","numericable.fr","ovh.fr"
EndDataSection

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

_________________
Image

Image


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Sam 23/Mar/2019 17:53 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 27/Oct/2006 12:19
Messages: 1219
Localisation: Calvados (14)
Ce qui serait pas mal dans PB, c'est un opérateur ternaire du genre :
Code:
MsgText=iif(Resultat,"MsgOK","MsgErr")

_________________
Image

Image


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Sam 23/Mar/2019 17:56 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3981
Citation:
ne pas oublier les ports 465 et 587

Ou utilises tu ces ports dans ton code :?:

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Sam 23/Mar/2019 18:24 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 27/Oct/2006 12:19
Messages: 1219
Localisation: Calvados (14)
Nul part, je te dis juste qu'il ne faut pas les oublier, tu peux faire comme ça :

Code:
InitNetwork()
MsgTitle.s="email envoyé"
msgText.s="Votre message a bien été envoyé"
srvSMTP.s=""
Dim ports(2)
ports(0)=25
ports(1)=465
ports(2)=587

 

If CreateMail(0, "", "test d'envoi de mail")
  SetMailBody(0, "Envoyé par "+ComputerName())
  AddMailRecipient(0, "isabelle.nopi@laposte.net", #PB_Mail_To)
  ;          For i=0 To cmb
  ;            AddMailAttachment(0, "save", "save", "")
  ;          Next
  Resultat=0
  Restore smtpServers
  While Resultat=0
    Read.s srvSMTP
    ssl=0
    i=0
    While i<2 And Resultat=0
      If i>0
        ssl=#PB_Mail_UseSSL
      EndIf     
      Resultat = SendMail(0, "smtp."+SrvSMTP, ports(i), ssl)
      i=i+1     
    Wend
  Wend
  If resultat=0
    msgTitle="Erreur envoi email"
    msgText="Il y a eu un problème sur l'envoi de votre message !!!"
  EndIf
  MessageRequester(MsgTitle,MsgText)
   
EndIf

End

DataSection
  smtpServers:
  Data.s "orange.fr", "free.fr","cegetel.fr","alice.fr"
  Data.s "sfr.fr","neuf.fr","noos.fr","tele2.fr","tiscali.fr"
  Data.s "wanadoo.fr","numericable.fr","ovh.fr"
EndDataSection

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

_________________
Image

Image


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Dim 24/Mar/2019 9:02 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2153
Localisation: 50200 Coutances
Merci TazNormand pour le partage, ce programme fonctionne parfaitement.

_________________
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.62, 5.70 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Dim 24/Mar/2019 13:01 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3981
Je ne me rappelle plus du tout comment s'appelle la technique qui permet de lancer une routine en parallele (pour ne pas attendre que le code s'execute)
Car ce code peux mettre plusieurs secondes a s'executer :|

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Dim 24/Mar/2019 14:35 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2153
Localisation: 50200 Coutances
Un thread ?

_________________
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.62, 5.70 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Dim 24/Mar/2019 15:23 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 27/Oct/2006 12:19
Messages: 1219
Localisation: Calvados (14)
@SPH : tu peux utiliser la constante #PB_Mail_Asynchronous dans le sendMail ccomme ça :
Code:
Resultat = SendMail(0, "smtp."+SrvSMTP, ports(i), ssl|#PB_Mail_Asynchronous)

_________________
Image

Image


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Dim 24/Mar/2019 16:32 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3981
Haaaa, un thread, oui

Merci a vous , je teste ca pour choisir le meilleur moyen... 8)

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Dim 24/Mar/2019 16:53 
Hors ligne

Inscription: Sam 08/Fév/2014 15:19
Messages: 1579
Pourquoi essayer tous les SMTP puisque normalement seul le FAI par lequel tu es connecté autorisera le SMTP non authentifié ?

_________________
HP de 2012 - Intel i3-3220 @3.30 GHz, 2 coeurs, 4 threads - RAM 16 Go - Nvidia GT 620 1920x1080 DPI 100%
Windows 10 Famille x64 + Linux (Slackware, Debian sur Oracle VirtualBox 6.0)


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Dim 24/Mar/2019 18:34 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3981
Marc56 a écrit:
Pourquoi essayer tous les SMTP puisque normalement seul le FAI par lequel tu es connecté autorisera le SMTP non authentifié ?

Par exemple, si je fais un logiciel de messagerie, je ne connais pas a l'avance le FAI de l'utilisateur (le miens si, mais pas le siens)

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Lun 25/Mar/2019 7:57 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2153
Localisation: 50200 Coutances
puisque tu connais l'adresse du destinataire :
Code:
Smtp = "smtp." + StringField(Destinataire, 2, "@")

_________________
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.62, 5.70 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Lun 25/Mar/2019 11:54 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 16/Oct/2015 18:22
Messages: 309
Localisation: France
Bonjour,

Une petite application PB disponible ici
Image
CAGE

_________________
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 5.70 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr


Dernière édition par cage le Lun 25/Mar/2019 13:24, édité 1 fois.

Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: envoi de mail
MessagePosté: Lun 25/Mar/2019 12:04 
Hors ligne
Avatar de l’utilisateur

Inscription: Lun 10/Sep/2007 11:13
Messages: 1311
tu veux dire ici ? :lol: :lol:

_________________
ImageImage


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 22 messages ]  Aller à la page 1, 2  Suivante

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Bing [Bot] et 2 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye