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: Mail Configuration
 From Email		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

leatherlips
Senior Member

USA
1838 Posts
Posted - 29 April 2008 :  15:11:42  Show Profile  Visit leatherlips's Homepage
I had a post years ago here that told me how to do this with cdosys. I now need it to work with cdonts.

I want the email sent to users from the forum to have my forum title instead of the forum email address. Here what I have tried but it will not send at all if I do this. The part in red below was originally strSender.

case "cdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
on error resume next '## Ignore Errors
objNewMail.Send strFromName, strRecipients, strSubject, strMessage
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

What do I need to change?
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD

Shaggy
Support Moderator

Ireland
6780 Posts
Posted - 30 April 2008 :  04:10:09  Show Profile
objNewMail.Send strFromName&" <"&strSender&">", strRecipients, strSubject, strMessage
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 30 April 2008 :  04:40:45  Show Profile
Quality!
On that premise, can the same be done for CDOSYS

case "cdosys"
	        Set iConf = Server.CreateObject ("CDO.Configuration")
        	Set Flds = iConf.Fields 

	        'Set and update fields properties
        	Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
	        Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer
		'Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
		'Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
		'Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
        	Flds.Update

	        Set objNewMail = Server.CreateObject("CDO.Message")
        	Set objNewMail.Configuration = iConf

	        'Format and send message
        	Err.Clear 

		objNewMail.To = strRecipients
		'objNewMail.From = strSender
                objNewMail.From = StrForumTitle
		objNewMail.Subject = strSubject
		objNewMail.TextBody = strMessage
        	On Error Resume Next
		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

Where original in red, change in orange
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts
Posted - 30 April 2008 :  04:47:33  Show Profile
objNewMail.From = strForumTitle&" <"&strSender&">"
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”
Edited by - Shaggy on 30 April 2008 04:47:54
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 30 April 2008 :  04:59:23  Show Profile
brill thanxx
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts
Posted - 30 April 2008 :  06:29:26  Show Profile
You're welcome.
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 30 April 2008 :  09:12:11  Show Profile  Visit leatherlips's Homepage
As always Shaggy, thank you for your help!
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts
Posted - 30 April 2008 :  11:05:28  Show Profile
No worries

Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”
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.17 seconds. Powered By: Snitz Forums 2000 Version 3.4.07