HMGforum.com

Code: Select all

function SendMail
	param cSubject, cBody
	LOCAL oMail, cData, i, oAttach
	local lret
	local xto := "akord@mol-systemy.nazwa.pl"
	local cFrom := "akord@kern-liebers.nazwa.pl"
	local cServer := "kern-liebers.nazwa.pl"
	local nPort := 587
	local xCC := "mol@pro.onet.pl"
	local xBCC := "mol68@tlen.pl"
	local aFiles := NIL
	local cUser := "akord@kern-liebers.nazwa.pl"
	local cPass := "************"
	local cPopServer := "kern-liebers.nazwa.pl"
	local nPriority := 1
	local lRead := .f.	//  confirmation request
	local bTrace := .f.		//create transmission log?
	local lPopAuth := .f.	// login into POP server
	local lNoAuth := .f.
	local nTimeOut := 500
	local cReplyTo := ""
	local lTLS := .f.  	// do not change! causes crash!
	local cSMTPPass := "***********"
	local cCharset := "windows-1250"
	local cEncoding := ""
	
	cBody += eol + dtoC(date())+" "+time()
	WAIT WINDOW "Trwa wysyłanie wiadomości e-mail: " + cBody NOWAIT
	lret := 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 ) 
 /*
   cServer    -> Required. IP or domain name of the mail server
   nPort      -> Optional. Port used my email server
   cFrom      -> Required. Email address of the sender
   xTo        -> Required. Character string or array of email addresses to send the email to
   xCC        -> Optional. Character string or array of email adresses for CC (Carbon Copy)
   xBCC       -> Optional. Character string or array of email adresses for BCC (Blind Carbon Copy)
   cBody      -> Optional. The body message of the email as text, or the filename of the HTML message to send.
   cSubject   -> Optional. Subject of the sending email
   aFiles     -> Optional. Array of attachments to the email to send
   cUser      -> Required. User name for the POP3 server
   cPass      -> Required. Password for cUser
   cPopServer -> Required. POP3 server name or address
   nPriority  -> Optional. Email priority: 1=High, 3=Normal (Standard), 5=Low
   lRead      -> Optional. If set to .T., a confirmation request is send. Standard setting is .F.
   bTrace     -> Optional. If set to .T., a log file is created (smtp-<nNr>.log). Standard setting is NIL.
                           If a block is passed, it will be called for each log event with the message a string, no param on session close.
   lPopAuth   -> Optional. Do POP3 authentication before sending mail.
   lNoAuth    -> Optional. Disable Autentication methods
   nTimeOut   -> Optional. Number os ms to wait default 20000 (20s)
   cReplyTo   -> Optional.
   */ 
  WAIT CLEAR
RETURN lret