;
; ------------------------------------------------------------
;
;   PureBasic - Mail example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

InitNetwork()
OpenConsole()

If CreateMail(0, "fred@purebasic.com", "Hello !")

  SetMailBody(0, "Hello   "+Chr(10)+"This is a mail !")
  
  AddMailAttachment(0, "My description", "c:\brook_3d.png")
  AddMailAttachment(0, "My description 2", "c:\test.bmp")
  
  
  AddMailRecipient(0, "test@yourdomain.com", #PB_Mail_To)
  AddMailRecipient(0, "test2@yourdomain.com", #PB_Mail_Cc)
  
  Result = SendMail(0, "smtp.free.fr", 25, 1)
  
  Repeat
    Debug MailProgress(0)
    Delay(300)
  Until MailProgress(0) = -3 Or MailProgress(0) = -2

  Input()
  
EndIf