CAUSE
This behavior can occur if the anonymous user account is not granted at least CHANGE permissions to the SMTP mail server folders.

RESOLUTION
To resolve this error, follow these

Steps:

1. Open the Windows NT Explorer and browse to your mail folders. By default, this is the X:\InetPub\MailRoot folder, where X: is the drive that you specified during the installation of NTOP.
2. Right-click the Pickup folder, and then click Properties.
3. On the Security tab, click Permissions.
4. If the IIS user accounts are listed, IUSR_<computer> and IWAM_<computer> are the defaults, skip to step 13.
5. Click Add.
6. Select your computer in the List Names From: drop-down menu.
7. Click Show Users.
8. Highlight the IUSR_<computer> Internet guest account and the IWAM_<computer> impersonation account, then click Add.
9. Click Change in the Type Of Access drop-down menu.
10. Click OK to close the Add Users And Groups dialog.
11. Click OK to close the Directory Permissions dialog.
12. Click OK to close the Directory Properties dialog.
13. Repeat steps 2 through 12 for each folder under the MailRoot folder.

The post CDONTS: Fix for error ‘800a0046’ Permission denied appeared first on Hivelocity Hosting.

Dim objMsg
Dim objConfig
Set objMsg = CreateObject(“CDO.Message”)
Set objConfig = CreateObject(“CDO.Configuration”)
Dim objFields
Set objFields = objConfig.Fields
‘ Setup server information. Comment out if using localhost
objFields(“https://schemas.microsoft.com/cdo/configuration/smtpserver”) = “mail.mysmtpserver.com”
objFields(“https://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
objFields(“https://schemas.microsoft.com/cdo/configuration/sendusing”) = 2

‘ Setup server login information if your server require it. Comment out if using localhost
objFields(“https://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = 1
objFields(“https://schemas.microsoft.com/cdo/configuration/sendusername”) = “SMTPAUTHUser”
objFields(“https://schemas.microsoft.com/cdo/configuration/sendpassword”) = “SMTPAUTHPassword”

‘uncomment if using localhost.
‘objFields(“https://schemas.microsoft.com/cdo/configuration/sendusing”) = 1
‘objFields(“https://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory”)=”c:\inetpub\mailroot\pickup”

objFields.Update

‘ Now you can setup message to send
Set objMsg.Configuration = objConfig
objMsg.To = “tosomeone@somewhere.com”
objMsg.From = “fromme@domain.com”
objMsg.Subject = “Some subject”
objMsg.TextBody = txMessage

objMsg.Send
set objMsg = NOTHING

The post How do I use CDOSYS? appeared first on Hivelocity Hosting.