Mod: Email All Members

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/62861?pagenum=1
05 November 2025, 01:37

Topic


endomorph
Mod: Email All Members
24 September 2006, 16:19


I though I would post this up as I have found it very useful. I'm not sure if this was a MOD in itself, the "Email All Users", but here's what I've done.
I often needed to email all the members from different "departments" and hence a different email address. As standard the "Email all users" send the email from the forum default email address.
So, in admin_pop_mail.asp and find (around line 200) -

Code:
"              <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Subject:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input maxLength=""60"" name=""Subject"" tabindex=""1"" value="""" size=""35""></td>" & vbNewLine & _
" </tr>" & vbNewLine & _

above that, add -


Code:
"              <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>From:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """> <select name=""email_from"" id=""email_from""><option value=""emailaddress1"">Name1</option><option value=""emailaddress2"">Name1</option><option selected=""selected"">Please Select</option></select></td>" & vbNewLine & _
" </tr>" & vbNewLine & _

and replace 'emailaddress1' and 'Name1' with your own. Of course, you can add further options if required.
Finally, around line 149, find -

Code:
strFrom = strSender

and replace it with -

Code:
strFrom = trim(Request.Form("email_from"))

Job done !

<

 

Replies ...


Etymon
28 September 2006, 22:56


Thank you endomorph. smile
Even the little MODs make a big difference.
Thanks for sharing your code.
Cheers,

Etymon
<
© 2000-2021 Snitz™ Communications