Недопустимый адрес электронной почты

 
Public Function sendEmail(ByVal emailTo As String, ByVal emailSubject As String, _
                ByVal emailBody As String, Optional FilePril As String, _
                Optional VarDebug As Boolean) As Integer
On Error GoTo Err_sendEmail
    Dim oMSG As Object  'Объявляем переменную для нашего сообщения
    Dim oConfig As Object
    Dim CFields As Object
    Dim strBody As String
'Создаем объект CDO.Message
    Set oMSG = CreateObject("CDO.Message")
    Set oConfig = CreateObject("CDO.Configuration")
    Set CFields = oConfig.Fields
    Set oMSG.Configuration = oConfig
    
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.ХХХ.ХХХ.ХХХ"   '   smtp отправителя
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "login123"    'Login отправителя
    CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль"  'password отправителя
    CFields("urn:schemas:mailheader:content-language") = "windows-1251"
    CFields.Update
'Настраиваем параметры сообщения
    oMSG.To = emailTo   ' 'Кому"
    oMSG.From = "????@mail.ru" ' От кого
    oMSG.Subject = emailSubject    ' 'Заголовок сообщения
    oMSG.BodyPart.Charset = "windows-1251"   ' кодировка
    oMSG.AddAttachment FilePril  ' Добавляем вложение
    oMSG.HTMLBody = "emailBody"   ' Текст сообщения (может быть текстовым или в формате HTML)
    oMSG.Send
    
    sendEmail = 1
Exit_sendEmail:
    Set CFields = Nothing
    Set oConfig = Nothing
    Set oMSG = Nothing
    Exit Function
 
Err_sendEmail:
    sendEmail = 0
    If Not IsNull(VarDebug) Then If VarDebug Then MsgBox (Err.Description) & " " & Err.Number
    
    Resume Exit_sendEmail
End Function