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 if

	'## the components
	
	theComponent(13) = "HmailServer"
	

	'## the name of the components
	
	theComponentName(13) = "HmailServer"
	
	

	'## the value of the components
	
	
	theComponentValue(13) = "HmailServer"
	

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 if

Dim theComponent(21)
Dim theComponentName(21)
Dim theComponentValue(21)

theComponent(20) = "VSEmail.SMTPSendMail"
theComponent(21) = "hMailServer.Message"

theComponentName(20) = "VSEmail"
theComponentName(21) = "hMailServer"

theComponentValue(20) = "vsemail"
theComponentValue(21) = "hmail"

quote:

---

Start, Run dcomcnfg.
Expand Component Services, Computers, My Computer and DCOM Config.
Right-click hmailserver, select the Security tab.
Under Launch and Activation Permissions, click the Edit button.

If you do not see the Internet Guest Account, then add that:
Click the Add button, then the Advanced button, then the Find Now button.
Scroll down to a user starting with IUSR_, select it, then click Ok
Continue to next step below...

If you do see the Internet Guest Account, then make sure that Local Launch and Local Activation rights are checked.

---