Below is the Flex code we are using to send email in the customised screen OE0101. It was working fine for the last 5-6 years but the server has changed last friday and since then, no message is sent. The only thing I have changed is the name of the server.
The Flex code below does not return any error but does not seems to send the email.
I am sure the issue is on the new server but I can't point my finger on it.
Any help would be really appreciated.
Private Sub SendEmailSmtp(strEmailToRecipient As String, strEmailCCRecipient As String, _
strEmailSubject As String, strEmailMessage As String, strFilename As String)
Dim oSMTP As OSSMTP.SMTPSession
On Error GoTo ErrorHandler
Set oSMTP = New OSSMTP.SMTPSession
With oSMTP
.Server = "vorw2ksrv01.vortex-intl.com"
.MailFrom = "NewOrderMail"
.SendTo = strEmailToRecipient
.CC = strEmailCCRecipient
.MessageSubject = strEmailSubject
.MessageText = strEmailMessage
.SendEmail
End With
Set oSMTP = Nothing
Exit Sub
ErrorHandler:
MsgBox "Error No: " & Err.Number & vbCrLf & _
"Error Desc: " & Err.Description, vbCritical, _
"Vortex [Report Error to System Admin]"
Exit Sub
End Sub
The Flex code below does not return any error but does not seems to send the email.
I am sure the issue is on the new server but I can't point my finger on it.
Any help would be really appreciated.
Private Sub SendEmailSmtp(strEmailToRecipient As String, strEmailCCRecipient As String, _
strEmailSubject As String, strEmailMessage As String, strFilename As String)
Dim oSMTP As OSSMTP.SMTPSession
On Error GoTo ErrorHandler
Set oSMTP = New OSSMTP.SMTPSession
With oSMTP
.Server = "vorw2ksrv01.vortex-intl.com"
.MailFrom = "NewOrderMail"
.SendTo = strEmailToRecipient
.CC = strEmailCCRecipient
.MessageSubject = strEmailSubject
.MessageText = strEmailMessage
.SendEmail
End With
Set oSMTP = Nothing
Exit Sub
ErrorHandler:
MsgBox "Error No: " & Err.Number & vbCrLf & _
"Error Desc: " & Err.Description, vbCritical, _
"Vortex [Report Error to System Admin]"
Exit Sub
End Sub