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
