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