Note: You must be registered in order to post a reply. To register, click here. Registration is FREE! Before posting, make sure you have read this topic!
T O P I C R E V I E W
Andy Humm
Posted - 19 June 2008 : 04:19:15 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<
5 L A T E S T R E P L I E S (Newest First)
Andy Humm
Posted - 20 June 2008 : 09:24:47 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 <
philsbbs
Posted - 19 June 2008 : 14:34:02 reason for trouble is this post says AFTER and it works the post you linked to says post BEFORE and that dont.<
leatherlips
Posted - 19 June 2008 : 09:25:44 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:
'<!-- 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 -->
Change the parts in red to your own subject line and message text.<
leatherlips
Posted - 19 June 2008 : 09:10:32 The one on this page does work. I got it working on my forum just fine.