Dim strErr
Dim objMes
'------------------------------------------------------------------------------

Set objMes = CreateObject("CDO.Message")

objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sys.SmtpServer 'Почтовый сервер или IP адрес
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sys.SendUserName 'Имя пользователя
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sys.SendPassword 'пароль
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = sys.SmtpServerPort 'Порт сервера SMTP
' "smtp.mail.ru" 465 
' "smtp.yandex.ru"  465
' "smtp.qip.ru"  25
' "smtp.gmail.com" 465
objMes.PopSsl = 1 'что мы хотим TLS / SSL

Set bundle = vSubject

For i = vi To bundle.MessageCount - 1
    email = bundle.GetEmail(i)
        
    outFile.WriteLine("From: " & vFrom)
    outFile.WriteLine("Subject: " & vSubject)

Next
objMes.Send

  If Err.Number = 0 then 
   sys.onSend 0
  else
   sys.onSend 1
  End If

Set objMes = Nothing

Function GetVar(Data, Index)
  Select Case Index
    Case "vError" ' номер         
     strErr =  Err.Number
     GetVar  =  strErr           
    Case "vDesc" '  описание
     strErr  = Err.Description              
     GetVar  = strErr
  End Select
End Function 
End Sub