'функция отправки мыла с всеми указанными параметрами
'с помощу CDO
Function SendSimpleMail(ByVal stFrom As String, ByVal stTo As String, ByVal stSubject As String, ByVal stCharset As String, ByVal strBodyText As String, ByVal TipeMsg As String, ByVal FileAtach As String, _
ByVal sendusing As String, ByVal smtpserver As String, ByVal smtpserverport As Long, ByVal sendusername As String, _
ByVal sendpassword As String, ByVal smtpauthenticate As String, ByVal smtpusessl As String, ByVal smtpconnectiontimeout As String) As Boolean
On Error GoTo Err_SendSimpleMail
        Dim cdoConfig As New CDO.Configuration
        Dim cdoMessage As New CDO.Message
        
        sch = "http://schemas.microsoft.com/cdo/configuration/"
        With cdoConfig.Fields
            .Item(sch & "sendusing") = sendusing
            .Item(sch & "smtpserver") = smtpserver
            .Item(sch & "smtpserverport") = smtpserverport
            .Item(sch & "sendusername") = sendusername
            .Item(sch & "sendpassword") = sendpassword
            .Item(sch & "smtpauthenticate") = smtpauthenticate
            .Item(sch & "smtpusessl") = smtpusessl
            .Item(sch & "smtpconnectiontimeout") = smtpconnectiontimeout
            .Update
        End With
        
        With cdoMessage
            Set .Configuration = cdoConfig
            .From = stFrom
            .Subject = stSubject
            If TipeMsg = "TextBody" Then
                .TextBody = strBodyText
            Else
                .HTMLBody = strBodyText
            End If
            .TextBodyPart.Charset = stCharset
            If Len(FileAtach) > 0 Then .AddAttachment FileAtach
            .DSNOptions = cdoDSNSuccessFailOrDelay
              .To = stTo
              .Fields.Update
              .Send
              SendSimpleMail = True
        End With
        
        Set cdoMessage = Nothing
        Set cdoConfig = Nothing
Exit_SendSimpleMail:
    Exit Function
Err_SendSimpleMail:
     SendSimpleMail = False
     Resume Exit_SendSimpleMail
End Function

Из компа-сервера (который раздает инет) отправляет нормально, нео когда грузят локальные машины программу, то не отправляет. Думал файрволы.. но даже при отключении.. ничего!  Пишет "Транспорту не удалось подключиться к серверу"

Побогите, люди добрые. Аутлук не хочу использовать в данных целях.

фанат