Providers english and USA

Everything else that doesn't fall into one of the other PB categories.
User avatar
SPH
Enthusiast
Enthusiast
Posts: 268
Joined: Tue Jan 04, 2011 6:21 pm

Providers english and USA

Post by SPH »

Code: Select all

InitNetwork() 


comp$= "User : " + UserName()+ #LF$ +"Computer name : " + ComputerName() + #LF$ +"NbCPUs : " + CountCPUs() + #LF$
comp$+ "Physical memory (MB) : " + Str(MemoryStatus(#PB_System_TotalPhysical) / (1024 * 1024))

If CreateMail(0, "", "test : "+message$)
  SetMailBody(0, comp$)
  AddMailRecipient(0, "isabelle.nopi@laposte.net", #PB_Mail_To)
  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.bouygtel.fr", 587, 0)
      If resultat=0
        Resultat = SendMail(0, "smtp.gmail.com", 587, 0)
        If resultat=0
          Resultat = SendMail(0, "smtp.sfr.fr", 465, 0)
          If resultat=0
            Resultat = SendMail(0, "smtp.sfr.fr", 587, 0)
            If resultat=0
              Resultat = SendMail(0, "ssl0.ovh.net", 993, 0)
            EndIf
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf
EndIf

This code should not work because here in France, we do not have the same suppliers of Internet access.
Could you give me the name of your main internet providers in England and the USA?

Thank you 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.73LTS - 32 bits