error '8004020f'

/forums/inc_mail.asp, line 142

if trim(strFromName) = "" then
	strFromName = strForumTitle
end if

case "cdosys"
	        Set iConf = Server.CreateObject ("CDO.Configuration")
        	Set Flds = iConf.Fields 

	        'Set and update fields properties
        	Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
	        Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer
		Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic
		Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxx@xxxx.xxx"
		Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxx"
        	Flds.Update

	        Set objNewMail = Server.CreateObject("CDO.Message")
        	Set objNewMail.Configuration = iConf

	        'Format and send message
        	Err.Clear 

		objNewMail.To = strRecipients
		objNewMail.From = strSender
		objNewMail.Subject = strSubject
		objNewMail.TextBody = strMessage
        	On Error goto 0 'Resume Next
		objNewMail.Send
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
		End if

Set objNewMail = Nothing

on error goto 0
%>

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"

quote:

---

Originally posted by daveo

I implemented the original version of the mod as posted with .06 and it works great. Too 10 minutes and fixed a problem I just had occur.

---

quote:

---

small improvement of your mod, just to add one more field in MEMBERS table, lets say M_ALLOWEMAIL yes/no and modify your code accordingly.

---

Please don't tell my wife I said that.

strSql = "SELECT M_NAME, M_POSTS, M_ALLOWEMAIL  FROM " & strMemberTablePrefix & "MEMBERS M"
   strSql = strSql & " WHERE M.MEMBER_ID = " & MemberID

   set rs = my_Conn.Execute (strSql)

   If Not rs.EOF then
      intMPosts = rs("M_POSTS")
      intAllowEmail = rs("M_ALLOWEMAIL")
	
      if intMPosts < 10 and intAllowEmail="0" then

[ALTER]
MEMBERS
ADD#M_ALLOWEMAIL#INT#NULL#1
[END]