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.
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) -
above that, add -
and replace 'emailaddress1' and 'Name1' with your own. Of course, you can add further options if required.
Finally, around line 149, find -
and replace it with -
Job 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 = strSenderand replace it with -
Code:
strFrom = trim(Request.Form("email_from"))Job done !
<
Postet den
Thank you endomorph. 
Even the little MODs make a big difference.
Thanks for sharing your code.
Cheers,
Etymon
<
Even the little MODs make a big difference.
Thanks for sharing your code.
Cheers,
Etymon
<