Simple function to send an email message using CDO

by Roderick Thompson (12 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 1^st February 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Simple function to send an email message using CDO



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

Download this snippet Add to My Saved Code

Simple function to send an email message using CDO Comments

No comments have been posted about Simple function to send an email message using CDO. Why not be the first to post a comment about 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 Comments

Post your comment

Difficulty