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.
Hello all!
I am running Hmail Server on WinServ2003. One forum (set up years ago) is using (I believe) cdosys to send messages. Another forum needs mail service now, and I would like to add Hmailserver to the list. Should I try to get cdosys to send the mail for this forum (with which I am possibly having issues), or can I add code for hmailserver to do the job?
I'll start with some sample code from inc_mail:
Now an example components list from admin_config_email (with the string HmailServer instead of "jmail" or the like:
Can anyone point me in the right direction for altering this code to fulfill the requirements for hmailserver, as well as identifying other bits of code that may be involved?
I am running Hmail Server on WinServ2003. One forum (set up years ago) is using (I believe) cdosys to send messages. Another forum needs mail service now, and I would like to add Hmailserver to the list. Should I try to get cdosys to send the mail for this forum (with which I am possibly having issues), or can I add code for hmailserver to do the job?
I'll start with some sample code from inc_mail:
Code:
case "jmail"
Set objNewMail = Server.CreateObject("Jmail.smtpmail")
objNewMail.ServerAddress = strMailServer
objNewMail.AddRecipient strRecipients
objNewMail.Sender = strSender
objNewMail.Subject = strSubject
objNewMail.body = strMessage
objNewMail.priority = 3
on error resume next '## Ignore Errors
objNewMail.execute
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End ifNow an example components list from admin_config_email (with the string HmailServer instead of "jmail" or the like:
Code:
'## the components
theComponent(13) = "HmailServer"
'## the name of the components
theComponentName(13) = "HmailServer"
'## the value of the components
theComponentValue(13) = "HmailServer"
Can anyone point me in the right direction for altering this code to fulfill the requirements for hmailserver, as well as identifying other bits of code that may be involved?
نوشته شده در
Don't have my code tools in front of me to write the exact code for you, but if anyone wants to help you out, here is a sample script to send a message with hmail using the Message api: http://www.hmailserver.com/documentation/v5.3/?page=com_example_message_send
Here are the details on the Message object: http://www.hmailserver.com/documentation/v5.3/?page=com_object_message
Here are the details on the Message object: http://www.hmailserver.com/documentation/v5.3/?page=com_object_message
نوشته شده در
Ok, since no one else stepped in, here is the code you would put in inc_mail.asp. After line 356 (right before the "end select") paste this bit of code:
In admin_config_email.asp, change lines 100 - 102 to this (increasing the 20 to 21):
After line 125, add the code in red:
After line 148, add the code in red:
After line 171, add the code in red:
That's it. Test it and let me know if it works.
Code:
case "hmail"
Set objNewMail = CreateObject("hMailServer.Message")
objNewMail.From = strFromName
objNewMail.FromAddress = strSender
objNewMail.AddRecipient strRecipientsName, strRecipients
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
objNewMail.Save
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End ifIn admin_config_email.asp, change lines 100 - 102 to this (increasing the 20 to 21):
Code:
Dim theComponent(21)
Dim theComponentName(21)
Dim theComponentValue(21)After line 125, add the code in red:
Code:
theComponent(20) = "VSEmail.SMTPSendMail"
theComponent(21) = "hMailServer.Message"After line 148, add the code in red:
Code:
theComponentName(20) = "VSEmail"
theComponentName(21) = "hMailServer"After line 171, add the code in red:
Code:
theComponentValue(20) = "vsemail"
theComponentValue(21) = "hmail"That's it. Test it and let me know if it works.
نوشته شده در
Thanks Davio!
I have been out at sea for a few days, so I have not been able to check in.
I will edit the code (and certainly check out these links).
I hate not knowing code and structure of .asp, php, or even much HTML. I am so lost, I wasn't even sure that "theComponent" was an array. Apparently, arrays in .asp use () instead of [].
I have been out at sea for a few days, so I have not been able to check in.
I will edit the code (and certainly check out these links).
I hate not knowing code and structure of .asp, php, or even much HTML. I am so lost, I wasn't even sure that "theComponent" was an array. Apparently, arrays in .asp use () instead of [].
نوشته شده در
Hmmm.
Well, I patched in the code, and for whatever reason when in the email config screen in the forum I only have CDOSYS (IIS 5/5.5/6) that shows up. Any hints as to why?
Well, I patched in the code, and for whatever reason when in the email config screen in the forum I only have CDOSYS (IIS 5/5.5/6) that shows up. Any hints as to why?
نوشته شده در
Hmm, maybe the code isn't correct.
Just had a quick chat with a dev on their IRC channel. He said the examples aren't accurate and need updating, and that I need to authenticate before I call the COM API.
I'm going to download and install hMail and test it locally. Quicker to help you that way.
Just had a quick chat with a dev on their IRC channel. He said the examples aren't accurate and need updating, and that I need to authenticate before I call the COM API.
I'm going to download and install hMail and test it locally. Quicker to help you that way.
