HMGforum.com

Code: Select all

#include <hmg.ch>

Function Main
local cServer := "smma.dataone.in"
private cFrom := "srgiri@dataone.in"
define window mail at 0,0 width 300 height 300 main
   define label tolabel
      row 10
      col 10
      width 50
      value "To"
   end label
   define textbox toaddress
      row 10
      col 60
      width 150
   end textbox
   define label subjectlabel
      row 40
      col 10
      width 50
      value "Subject"
   end label
   define textbox subject
      row 40
      col 60
      width 150
   end textbox
   define label bodylabel
      row 70
      col 10
      width 50
      value "Body"
   end label
   define editbox body
      row 70
      col 60
      width 150
      height 100
   end textbox
   define label smtplabel
      row 180
      col 10
      width 50
      value "SMTP Server"
   end label
   define textbox smtp
      row 180
      col 60
      width 150
      value cServer
   end textbox
   define button send
      row 220
      col 10
      caption "Send Mail"
      action sendmail()
   end button 
end window 
on key ESCAPE of mail action mail.release()

mail.center
mail.activate      

Return


function sendmail

&&hb_SendMail( cServer, nPort, cFrom, xTo, xCC, xBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer, nPriority, lRead, bTrace, lPopAuth, lNoAuth, nTimeOut, cReplyTo, lTLS, cSMTPPass, cCharset, cEncoding )
local cServer := mail.smtp.value
local xTo := mail.toaddress.value
local cSubject := mail.subject.value
local cBody := mail.body.value
local lOk := .f. 
lOk := hb_sendmail(cServer,,cFrom,xTo,,,cBody,cSubject,,,,,,,.f.)
if .not. lOk
   msgstop("Sending mail failed!")
else
   msginfo("Mail Sent successfully!")
endif
return nil