• Home
 · 
• Internet/HTML
 · 
• Simple function to send an email message using CDO

Simple function to send an email message using CDO

Simple function to send an email message using CDO

Rate Simple function to send an email message using CDO

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Function SendEMail (MsgFrom, MsgTo, MsgSubject, MsgText)
	Dim objCDO As New CDONTS.NewMail
	objCDO.To = MsgTo
	objCDO.From = MsgFrom
	objCDO.Importance = 1 
	objCDO.Subject = MsgSubject	
	objCDO.Body = MsgText
	objCDO.Send
	Set objCDO = Nothing
End Function


For VBScript:
Function SendEMail (MsgFrom, MsgTo, MsgSubject, MsgText)
	Set objCDO = Server.CreateObject("CDONTS.NewMail")
	objCDO.To = MsgTo
	objCDO.From = MsgFrom
	objCDO.Importance = 1 
	objCDO.Subject = MsgSubject	
	objCDO.Body = MsgText
	objCDO.Send
	Set objCDO = Nothing
End Function