Можно ли с программы отправить Email?

Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Const navOpenInNewTab = &H800
 
Sub GoToWebSite()
    Dim sURL: sURL = "https://mail.yandex.ru/neo2/#compose"
    Dim t, appIE 'As SHDocVw.InternetExplorer
    Set appIE = Nothing
    
    FindIEWindow "", appIE ' подключение к запущенной IE Instance
    If appIE Is Nothing Then Set appIE = CreateObject("InternetExplorer.Application") ' если не запущена
 
    appIE.Visible = True
    appIE.Silent = True
    appIE.Navigate2 sURL, navOpenInNewTab ' в новой вкладке
    
    t = Timer: Do
        mySleep 500
        FindIEWindow sURL, appIE ' переопределяю окно новой вкладки
    Loop Until StrComp(appIE.LocationURL, sURL, 1) = 0 Or (Timer - t) > 20  ' создание окна
    
    With appIE
        'Do While (.Busy Or .readyState <> 4): mySleep 500: Loop ' // Отключено. Действие выполнится, как только эл-т будет прогружен
        Dim D As MSHTML.HTMLDocument
        Set D = .document
        
        Dim eInput As MSHTML.HTMLInputElement
        Dim collInput As MSHTML.IHTMLElementCollection
        Set collInput = Nothing
        t = Timer: Do
            Set collInput = D.getElementsByTagName("INPUT")
            mySleep 500
        Loop While (collInput Is Nothing) And (Timer - t) < 20  ' прогрузка эл-тов интерфейса
        If collInput Is Nothing Then MsgBox "Connection Error.": Exit Sub
        
        t = Timer: Do Until collInput.Length Or (Timer - t) > 20 ' прогрузка эл-та INPUT
            mySleep 500
            Set collInput = D.getElementsByTagName("INPUT")
        Loop
        If collInput.Length = 0 Then MsgBox "Connection Error.": Exit Sub
    
        For Each eInput In collInput
            With eInput
                If .Type = "file" Then
                    'Debug.Print .Type, .className, .Value
                    eInput.Focus
                    eInput.Click ' вызов синхронен
'                    mySleep 1000
'                    CreateObject("WScript.Shell").SendKeys "c:\1 1\args.exe"
'                    mySleep 1000
'                    CreateObject("WScript.Shell").SendKeys "{ENTER}"
'                    mySleep 1000
                    Exit For
                End If
            End With
        Next
    End With
End Sub
 
Sub mySleep(ms) ' задержка в мс.
    Sleep ms 'Win API
    'WScript.Sleep ms
End Sub
 
Sub FindIEWindow(site, wnd) ' подключение к экземпляру IE. [site] - Опционально. Идентификация по адресу загружаемой страницы.
    Dim Window, oShell, IEPath_x64, IEPath_x32
    Set oShell = CreateObject("WScript.Shell")
    IEPath_x64 = oShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\Internet Explorer\IExplore.exe"
    IEPath_x32 = oShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\Internet Explorer\IExplore.exe"
    For Each Window In CreateObject("Shell.Application").Windows
        With Window
            If StrComp(.FullName, IEPath_x64, 1) = 0 Or StrComp(.FullName, IEPath_x32, 1) = 0 Then ' ищу по расположению IE на диске
                If site = "" Then ' первое окно
                    Set wnd = Window
                    Exit For
                Else
                    If StrComp(.LocationURL, site, 1) = 0 Then ' по имени сайта
                        Set wnd = Window
                        'Exit For ' не останавливаемся - ищем самое свежее окно
                    End If
                End If
            End If
        End With
    Next
End Sub

Dim jmail As Object
    Set jmail = CreateObject("JMail.Message")
    With jmail
        .Charset = "windows-1251"               ' кодировка
        .AddRecipient "megapolis2004@yandex.ru" ' адрес получателя
        .From = "login@yandex.ru"               ' адрес отправителя
        .Body = "Текст письма..."               ' перевод на новую строку - & vbCrLf
        .Subject = "OPERsa"                     ' тема письма
        .EnableCharsetTranslation = False       ' так надо...
        .MailServerUserName = "megapolis2004"   ' логин
        .MailServerPassword = "0675467603"      ' пароль
        .Send ("smtp.yandex.ru")                ' лети!...
    End With
    Set jmail = Nothing

Err.Clear
On Error Resume Next
 
Dim o_Mess, v_Conf
    v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
    Set o_Mess = CreateObject("CDO.Message")
 
With o_Mess
    .To = "oleksandr.nosar@gmail.com" 'куда отправляем
    .From = "Test@gmail.com " 'имя отправителя + Email
    .Subject = "Test" 'Тема письма
    .TextBody = "Hi 2" 'Сообщение
    .TextBodyPart.Charset = "windows-1251" 'русская кодировка
With .Configuration.Fields
    
    
    .Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
    .Item(v_Conf & "smtpserver") = "smtp.gmail.com" 'Адрес SMTP-сервера
    .Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
    .Item(v_Conf & "sendusername") = "oleksandr.nosar@gmail.com" 'здесь имя пользователя с!!!! @, например 
    .Item(v_Conf & "sendpassword") = "xxx-xxxx-xxxxx-xxxx" 'пароль
    .Item(v_Conf & "smtpserverport") = 465 'порт (альтернативные для других серверов 25, [B]587[/B])
    .Item(v_Conf & "smtpusessl") = True 'использовать ли шифрованое подключение SSL
    .Item(v_Conf & "smtpconnectiontimeout") = 15 'Максимальное время ожидания ответа от сервера
    .Update
 
End With
 
    Debug.Print "Err.LastDllError:" & Err.LastDllError
    Debug.Print "Err             :" & Err
    Debug.Print "Error           :" & Error(Err)
    
    If Err <> 0 Then
        MsgBox "Sent Error:" & Error(Err)
    Else
        MsgBox "Sent ok"
    End If
    
End With
Set o_Mess = Nothing
End

.Item(v_Conf & "sendusername") = "oleksandr.nosar@gmail.com" 'здесь имя пользователя с!!!! @, например

.From = "Ваше имя или никнейм <login@gmail.com>" 'имя отправителя + Email

Dim jmail As Object
    Set jmail = CreateObject("JMail.Message")
    With jmail
        .Charset = "windows-1251"               ' кодировка
        .AddRecipient "megapolis2004@yandex.ru" ' адрес получателя
        .From = "login@yandex.ru"               ' адрес отправителя
        .Body = "Текст письма..."               ' перевод на новую строку - & vbCrLf
        .Subject = "OPERsa"                     ' тема письма
        .EnableCharsetTranslation = False       ' так надо...
        .MailServerUserName = "megapolis2004"   ' логин
        .MailServerPassword = "0675467603"      ' пароль
        .Send ("smtp.yandex.ru")                ' лети!...
    End With
    Set jmail = Nothing