Email code as a Function

				
'**************************************
' Name: Email code as a Function
' Description:Create a Function for your Email Send form for those repeditive Email calls
' By: Nate T Norris 
'
' Inputs:strMailFrom - Email listed as FROM in email for ReplyTO's
strFromName - Name listed as FROM in email 
strAddAddress - The email address of the recipient
strSubject - Subject line
strBody - Body text
'
' Returns:If no errors, it return TRUE to a variable assignment. No real result other that the email form script being executed
'
' Assumes:This script assumes CDO email code, but can be gutted to template any email code.
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=9377&lngWId=4'for details.'**************************************

'**********************************************
' Description:	CDO Email Form Function
'
' Author:	Nate Norris		
'
' Created:	Monday, October 17, 2005
'
' Inputs:	form elements
' Outputs:	error report - if any
'*********************************************
Function xEmailForm_CDO(strMailFrom,strFromName,strAddAddress,strSubject,strBody)
'##############################################
'Email the contact information to PMA
		'************************************
		if strMailFrom <> "" then
			'
		else 
			strMailFrom = "EMAIL@EMAIL.com"
		End If
	
		'Generate email objects
		Set objEMail = Server.CreateObject("CDO.Message")
		Set objConfig = Server.CreateObject("CDO.Configuration")
		Set Confi = objConfig.Fields
		Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
		Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
		Confi.Update
		Set objEMail.Configuration = objConfig
		objEMail.From = strFromName & "<" & strMailFrom & ">"
		objEMail.Subject = strSubject
		objEMail.TextBody = strBody
		objEMail.HTMLBody = "<p>" & strBody
		
		objEMail.To = strAddAddress 'str can be formatted for multiple i.e. "a@b.com; b@c.com"
			
		
		' REF: http://www.w3schools.com/asp/asp_send_email.asp
		' REF: http://www.paulsadowski.com/WSH/cdo.htm
		'*****************************
'#############################################
	On Error Resume Next
	objEMail.Send	
	'handle the errors
	If Err <> 0 Then
	strEmailErrorHolder = "Error encountered: " & Err.Description
		If instr(Err.Description, "5.5.4 Invalid Address") then 
			strEmailErrorHolder = strEmailErrorHolder & " - [" & xemailx & "] <BR>" 
		End IF
	Else 
		strEmailErrorHolder = "no error"
	End If 
	'destroy the obj
	Set objEMail = Nothing
	'set the result
	xEmailForm_CDO = strEmailErrorHolder
END Function
''PAGE CODE TO CALL AND USE THE FUNCTION
'strMailFrom = "EMAIL@EMAIL.com"
'strFromName = "NAME"
'strAddAddress = "EMAIL@EMAIL.com" 'single address only
'strSubject = "SUBJECT"
'strBody = "<h1>Hi</h1>" 'HTML OK
'
'strEmailError = xEmailForm_CDO(strMailFrom,strFromName,strAddAddress,strSubject,strBody)