Server with Email Sending Enabled
By following the steps below, you can verify that the server has the mail-sending function enabled.
To ensure that the Netcontent platform can perform this function, you should validate it using the following script.
Dim iMsg, iConf, Flds
Dim sendto, sFrom
Dim lOutputFormats, lOutputFiles
Dim oFormat, outputFiles
Dim sFolderPath, sName
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = **
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = **
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "**"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "***"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "***"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = **
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = **
.Update
End With
sendto = "***"
sFrom = "***"
With iMsg
.MimeFormatted = True
Set .Configuration = iConf
.To = sendto
.From = sFrom
.Subject = "Test"
.TextBody = "Cuerpo del Mailpc mia"
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
It is recommended to save it in a .txt file with a .vbs extension. All ** should be replaced with the correct value of the email to be tested.
Note:
The method mentioned above is just one way to verify if the server has the capability to send emails; if you have another method, you are free to use it.
Note:
It is possible that the email leaves the server but gets blocked by the organization's network where the machine is located. It is recommended to validate this with the IT personnel, ensuring that the server has this function enabled and no type of blocking is in place.
Created with the Personal Edition of HelpNDoc: Transform Your Documentation Workflow with HelpNDoc's Intuitive UI