email's are not getting sent. URGENT !!!!
Hi All I am trying to send an email with an attachment using the script which in present in smartbear support artical, but the amils are not getting sent atall. The script executes successful...
Forum Discussion
IT has has a rule to the server that should allow access from specific test machines. I've tried using both examples from the Sending E-Mail From Scripts article and also this article Send an e-mail message which is the original thread topic.
My code is the same as below using appropriate server, smtp port and user credentials.
My code is the same as below using appropriate server, smtp port and user credentials.
Function SendEmail(mFrom, mTo, mSubject, mBody, mAttachment)
Err.Clear
On Error Resume Next
schema = "http://schemas.microsoft.com/cdo/configuration/"
Set mConfig = Sys.OleObject("CDO.Configuration")
mConfig.Fields.Item(schema + "sendusing") = 2 ' cdoSendUsingPort
mConfig.Fields.Item(schema + "smtpserver") = "ServerName" ' SMTP server
mConfig.Fields.Item(schema + "smtpserverport") = 25 ' Port number
' mConfig.Fields.Item(schema + "sendusername") = ""
' User name (if needed)
' mConfig.Fields.Item(schema + "sendpassword") = ""
' User password (if needed)
mConfig.Fields.Update()
Set mMessage = Sys.OleObject("CDO.Message")
mMessage.Configuration = mConfig
mMessage.From = mFrom
mMessage.To = mTo
mMessage.Subject = mSubject
mMessage.HTMLBody = mBody
aqString.ListSeparator = ","
For i = 0 To aqString.GetListLength(mAttachment) - 1
mMessage.AddAttachment aqString.GetListItem(mAttachment, i)
Next
mMessage.Send
If Err.Number > 0 Then
Log.Error "E-mail cannot be sent", Err.Description
SendEMail = False
Else
Log.Message "Message to <" + mTo + "> was successfully sent"
SendEMail = True
End If
End Function
Sub MainTest
If SendEmail("tester@mycompany.com", "boss@mycompany.com", "Subject", _
"Message body", "c:\File1.txt,c:\File2.txt,c:\File3.txt") Then
' Message was sent
Else
' Message was not sent
End If
End Sub