[Сеть, интернет] Отправка электронной почты без использования внешних программ

#include <INet.au3>

$s_SmtpServer = "imap.yandex.ru" ; SMTP-сервер электронной почты
$s_FromName = "Oleg"  ; имя отправителя
$s_FromAddress = "[email protected]" ; адрес отправителя
$s_ToAddress = "[email protected]" ; адрес получателя
$s_Subject = "aaaaaaa UDF" ; тема письма
$s_helo = @ComputerName
$s_first = @CRLF
;Dim $s_Body[2]
$s_Body = "Testing the new email udf" ;текст письма
;$s_Body[1] = "Second Line"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body, $s_helo, $s_first)
$err = @error
If $Response = 1 Then
    MsgBox(0, "Success!", "Mail sent")
Else
    MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf

_send("тааакс", "кое что новое", "")
Func _send($Body, $Subject, $Attachment)
$FromAddress = '***@yandex.ru'
$ToAddress = '****@yandex.ru'
$Body = ' '
$SMTPServer = 'smtp.yandex.ru'
$Username = '***@yandex.ru'
$Password = "pass"
$Port = '25'

$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
    With $hMAIL
        .From = $FromAddress
        .To = $ToAddress
        .Subject = $Subject
        .TextBody = $Body
        .AddAttachment ($Attachment)
    EndWith
    With $hMAIL.Configuration.Fields
        .Item ($str & "sendusing") = 2
        .Item ($str & "smtpserver") = $SMTPServer
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = $Username
        .Item ($str & "sendpassword") = $Password
        .Item ($str & "smtpserverport") = $Port
        .Update
    EndWith
$hMAIL.Send
EndFunc

$ToAddress = '****@mail.ru'
$Body = '******'
$AttachFiles = 'C:\Users\*****\Pictures\SNC00166.jpg'
$SMTPServer = 'smtp.yandex.ru'