HMGforum.com

Code: Select all

#xcommand TRY              => BEGIN SEQUENCE WITH {|o| break(o)}
#xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
#xcommand FINALLY          => ALWAYS
	
	//Please note, when using the :AddAttachment method in your scripts you must use a fully qualified pathname as the argument to the method.  Using just a file name or a relative path will produce the error The specified protocol is unknown
	//By repeating the :AddAttachment method you can attach more than one file.
	//sm_priority:=2 is for High; =1 for Normal; =0 for Low
	//sm_confirm_read:=.T. is for return receipt
	TRY
	
	loCfg := CREATEOBJECT( "CDO.Configuration" )
	WITH OBJECT loCfg:Fields
		:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" )      :Value := sm_servsmtp
		:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" )  :Value := sm_portsmtp
		:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" )       :Value := 2
		:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .T.
		:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" )      :Value := lSSL
		:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" )    :Value := sm_userauth
		:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" )    :Value := sm_passauth
		:Update()
	END WITH

	loMsg := CREATEOBJECT ( "CDO.Message" )

	WITH OBJECT loMsg
		:BodyPart:Charset := "utf-8"
		:Configuration := loCfg
 		:From          := sm_from
		:To            := sm_to
		:Subject       := sm_subject
		:Bcc 		:= sm_bcc
		:Cc 			:= sm_cc
		:HTMLBody 	:= sm_Body
		:HTMLBodyPart:Charset := "utf-8"
		:AddAttachment :="c:\temp\readme.txt"
		WITH OBJECT loMsg:Fields
			:Item("urn:schemas:httpmail:importance"):Value := sm_priority
			:Item("urn:schemas:mailheader:X-Priority"):Value := sm_priority-1
			IF sm_confirm_read
				:Item("urn:schemas:mailheader:return-receipt-to"):Value := sm_from
				:Item("urn:schemas:mailheader:disposition-notification-to"):Value := sm_from
			ENDIF
			:Update()
		ENDWITH
		:DSNOptions := 0
		:Send()
	ENDWITH

	CATCH oError
		lsm:=.F.
		MsgStop ( "The email was not sent."+CRLF+;
				"Error:      "+TRANSFORM(oError:GenCode, NIL)+CRLF+;
				"SubCode:   "+TRANSFORM(oError:SubCode, NIL)+CRLF+;
				"OSCode:    "+TRANSFORM(oError:OsCode, NIL)+CRLF+;
				"SubSystem: "+TRANSFORM(oError:SubSystem, NIL)+CRLF+;
				"Description:      "+oError:Description)
	END

Code: Select all

lSSL := .T.
sm_portsmtp := 465 

Code: Select all

#include <hmg.ch>

#xcommand TRY              => BEGIN SEQUENCE WITH {|o| break(o)}
#xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
#xcommand FINALLY          => ALWAYS
	
	//Please note, when using the :AddAttachment method in your scripts you must use a fully qualified pathname as the argument to the method.  Using just a file name or a relative path will produce the error The specified protocol is unknown
	//By repeating the :AddAttachment method you can attach more than one file.
	sm_priority:=1 //is for High; =1 for Normal; =0 for Low
	sm_confirm_read:=.T. //is for return receipt
	sm_servsmtp := 'smtp.gmail.com'
	sm_portsmtp := 465
	lSSL := .T.
	sm_from := 'MY@gmail.com'
	sm_to := 'MY@gmail.com'
	sm_subject := 'tr'
	sm_bcc:= ''
	sm_cc := ''
	sm_body := 'tr'
	sm_priority := 2
	sm_userauth := 'MY@gmail.com'
	sm_passauth := 'MYPASS'

	TRY
	
	loCfg := CREATEOBJECT( "CDO.Configuration" )
	WITH OBJECT loCfg:Fields
		:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" )      :Value := sm_servsmtp
		:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" )  :Value := sm_portsmtp
		:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" )       :Value := 2
		:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .T.
		:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" )      :Value := lssL
		:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" )    :Value := sm_userauth
		:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" )    :Value := sm_passauth
		:Update()
	END WITH

	loMsg := CREATEOBJECT ( "CDO.Message" )

	WITH OBJECT loMsg
		:BodyPart:Charset := "utf-8"
		:Configuration := loCfg
 		:From          := sm_from
		:To            := sm_to
		:Subject       := sm_subject
		:Bcc 		:= sm_bcc
		:Cc 		:= sm_cc
		:HTMLBody 	:= sm_Body
		:HTMLBodyPart:Charset := "utf-8"
		:AddAttachment :=   "c:\temp\readme.txt"
		WITH OBJECT loMsg:Fields
			:Item("urn:schemas:httpmail:importance"):Value := sm_priority
			:Item("urn:schemas:mailheader:X-Priority"):Value := sm_priority-1
			IF sm_confirm_read  
				:Item("urn:schemas:mailheader:return-receipt-to"):Value := sm_from
				:Item("urn:schemas:mailheader:disposition-notification-to"):Value := sm_from
			ENDIF
			:Update()
		ENDWITH
		:DSNOptions := 0
		:Send()
	ENDWITH

	CATCH oError
		lsm:=.F.
		MsgStop ( "The email was not sent."+CRLF+;
				"Error:      "+TRANSFORM(oError:GenCode, NIL)+CRLF+;
				"SubCode:   "+TRANSFORM(oError:SubCode, NIL)+CRLF+;
				"OSCode:    "+TRANSFORM(oError:OsCode, NIL)+CRLF+;
				"SubSystem: "+TRANSFORM(oError:SubSystem, NIL)+CRLF+;
				"Description: "+oError:Description)
	end
//Return

Code: Select all

sm_body := "<html> Test </html>"