Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Mod: Email All Members

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!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
endomorph Posted - 24 September 2006 : 16:19:16
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) -

"              <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 -


"              <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 -

strFrom = strSender


and replace it with -

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


Job done !


<
1   L A T E S T    R E P L I E S    (Newest First)
Etymon Posted - 28 September 2006 : 22:56:45
Thank you endomorph.

Even the little MODs make a big difference.

Thanks for sharing your code.

Cheers,

Etymon
<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.1 seconds. Powered By: Snitz Forums 2000 Version 3.4.07