Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Sending HTML newsletters?
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Etymon
Advanced Member

United States
2385 Posts

Posted - 31 March 2006 :  22:43:19  Show Profile  Visit Etymon's Homepage
I can send plain text email newsletters fine, but I am having trouble sending HTML newsletters.

Is there a certain setup that I need to use to send HTML newsletters? I am using CDOSYS (IIS 5/5.1/6) and the newsletter mod.

Cheers,

Etymon

JBaldwin
Junior Member

USA
137 Posts

Posted - 03 April 2006 :  19:54:24  Show Profile
I just modified my inc_mail.asp to send HTML Emails instead of plain text. I needed to do this because the Newsletter Mod I installed had a timeout problem when I tried to send the Newsletters (about 400 members at that time) I gave up on it. So I went the round about way. Now I just type up my newsletters in my text editor; copy/paste it using the "email all users" option, and voila, perfecto!

AbsolutelyFreerolls.com - Poker Freeroll Listings, Poker Forum and Poker News


Go to Top of Page

Etymon
Advanced Member

United States
2385 Posts

Posted - 03 April 2006 :  23:50:21  Show Profile  Visit Etymon's Homepage
Do you mind sharing your code for this?

Etymon
Go to Top of Page

JBaldwin
Junior Member

USA
137 Posts

Posted - 04 April 2006 :  08:16:36  Show Profile
Here is the base of the code I use for my HTML email. I know you said you use CDOSYS, I use CDONTS. Not sure if it's possible for you to switch to CDONTS. This is in your inc_mail.asp (I'm sure it's something similar with CDOSYS http://support.microsoft.com/default.aspx?scid=kb;en-us;Q286431)

	case "cdonts"
		Set objNewMail = Server.CreateObject ("CDONTS.NewMail")

    	Dim HTML

	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
    	HTML = HTML & "<html>"
   	HTML = HTML & "<body>"
    	HTML = HTML & strMessage
   	HTML = HTML & "</body>"
    	HTML = HTML & "</html>"

    	objNewMail.From = strSender
    	objNewMail.To = strRecipients
    	objNewMail.Subject = strSubject
    	objNewMail.BodyFormat = 0
    	objNewMail.MailFormat = 0
    	objNewMail.Body = HTML
	on error resume next '## Ignore Errors
    	objNewMail.Send
	If Err <> 0 Then 
		Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
	End if
	on error resume next '## Ignore Errors

AbsolutelyFreerolls.com - Poker Freeroll Listings, Poker Forum and Poker News



Edited by - JBaldwin on 04 April 2006 09:08:12
Go to Top of Page

Etymon
Advanced Member

United States
2385 Posts

Posted - 04 April 2006 :  17:22:08  Show Profile  Visit Etymon's Homepage
Hey, thanks! That's fine. I think I can figure it out.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.29 seconds. Powered By: Snitz Forums 2000 Version 3.4.07