The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Just been searching for an addon to the PM MOD to see if new users who have completed their registration, receive an automatic Welcome PM. Searching snitz there is some confusing/lengthy dialog, on the subject but no definitive finished and working article. I would appreciate if someone has an addon to assist my next venture. Thank you andy<
نوشته شده در
There's an automatic EMail already, to append a routine there tossing in a PM shouldn't be that difficult.<
نوشته شده در
The one on this page does work. I got it working on my forum just fine.
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66663&SearchTerms=welcome,pm<
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66663&SearchTerms=welcome,pm<
نوشته شده در
Here are the instructions after you go through the fixes in the other thread:
In register.asp look for the first instance of Call DoCount (there are two).
After that add this:
Change the parts in red to your own subject line and message text.<
In register.asp look for the first instance of Call DoCount (there are two).
After that add this:
Code:
'<!-- Send Welcome PM Message -->
' First lets get the members ID
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_EMAIL "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.MEMBER_ID "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_EMAIL like '" & chkString(rsKey("M_EMAIL"),"SQLString") & "'"
set rs = my_Conn.Execute (strSql)
' This is the string for your welcome PM subject
welcomepmsubject = "Welcome To My Site!"
' This is the string for your welcome PM message
welcomepmmessage = "Place your message here."
' Do not change these
strpmtoid = rs("MEMBER_ID")
strpmrid = "1"
TF = "0"
strSql = "INSERT INTO " & strTablePrefix & "PM ("
strSql = strSql & " M_SUBJECT"
strSql = strSql & ", M_MESSAGE"
strSql = strSql & ", M_TO"
strSql = strSql & ", M_FROM"
strSql = strSql & ", M_SENT"
strSql = strSql & ", M_MAIL"
strSql = strSql & ", M_READ"
strSql = strSql & ", M_OUTBOX"
strSql = strSql & ") VALUES ("
strSql = strSql & " '" & welcomepmsubject & "'"
strSql = strSql & ", '" & welcomepmmessage & "'"
strSql = strSql & ", " & strpmtoid
strSql = strSql & ", " & strpmrid
strSql = strSql & ", '" & DateToStr(strForumTimeAdjust) & "'"
strSql = strSql & ", " & TF
strSql = strSql & ", " & "0"
strSql = strSql & ", '" & 0 & "')"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
set rs = nothing
'<!-- Send Welcome PM -->
نوشته شده در
reason for trouble is this post says AFTER and it works the post you linked to says post BEFORE and that dont.<
نوشته شده در
Thank you, its a shame we can not put some paragraph formating in the 'welcomepmmessage' ie line breaks So we could have
Dear M_Name
Thank you for joining the strForumTitle Forum. Blah, Blah, Blah Blah.
Webdesigner
Www.domain.com <
Dear M_Name
Thank you for joining the strForumTitle Forum. Blah, Blah, Blah Blah.
Webdesigner
Www.domain.com <