How to send mail using CDO

	
			<% 
		
			set objMessage = createobject("cdo.message") 
		
			set objConfig = createobject("cdo.configuration") 
		
			Set Flds = objConfig.Fields 
		
			Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
		
			Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="m##.internetmailserver.net" 
		
			' ' Passing SMTP authentication 
		
			Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 
		
			Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]" 
		
			Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password" 
		
			Flds.update 
		
			Set objMessage.Configuration = objConfig 
		
			objMessage.To = "[email protected]" 
		
			objMessage.From = "[email protected]" 
		
			objMessage.Subject = "New Task" 
		
			objMessage.fields.update 
		
			objMessage.HTMLBody = "This is a test sent from CDO using smtp authentication." 
		
			objMessage.Send 
		
			%>

If you run in to problems using this code, please post in our community forum. Technical support cannot assist with specific coding related issues.

Article ID: 617, Created: 8/14/2009 at 2:35 PM, Modified: 7/10/2019 at 10:01 AM

How to send mail using CDO

Was this article helpful?

Share this article