Код:

; отправка почты из коммандной строки
; send MailTo" "MailFrom" "SmtpPort" "Password" "Subj" "BodyText" "Attacment (все вводится через пробел или, если включить обработку, то запятую)
Global Dim PP.s(8)

If CountProgramParameters()
  
  ;MessageRequester("progrParam",Str(CountProgramParameters()))   ;подсчет количества параметров
  If CountProgramParameters()=0 
    Goto exxit
  EndIf

    For i=0 To CountProgramParameters()
                              ; PP(i+1)=ProgramParameter(i)
                              ;If ProgramParameter(i)                ; проверка на пустой параметр
                              ;  PP(i+1)="."
                              ;Else
                              ;If i=6
          PP(i+1)=ProgramParameter(i)                           ; упорядочивание в массив
                              ;  Else 
                              ;    Position = FindString(ProgramParameter(i), ",", 1)                                                            ; обработка запятой в строке (приклеивается в конце)
                              ;    PP(i+1)=Left(ProgramParameter(i),Position-1)   ;Len(ProgramParameter(i))-1);Position-1)   ; очистка от запятой
       ;MessageRequester("Programm Parametr","PP= "+PP(i+1)+Chr(10)+"Len= "+Str(Len(ProgramParameter(i)))+Chr(10)+"Mid= "+Str(Mid(ProgramParameter(i),1,Len(ProgramParameter(i))-1))
                              ;EndIf

    Next i

  MessageRequester("View debug", "PP1= "+PP(1)+Chr(10)+"PP2= "+PP(2)+Chr(10)+"PP3= "+PP(3)+Chr(10)+"PP4= "+PP(4)+Chr(10)+"PP5= "+PP(5)+Chr(10)+"PP6= "+PP(6)+Chr(10)+"PP7= "+PP(7)+Chr(10))
Position = FindString(PP(2), "@", 1)                             ; определение разделителя @

MeilTo.s=PP(1)                                                          ; На этот емейл отправляем письмо.
MeilSend.s=PP(2)                                                      ; С этого мыла отсылаем письмо.
Login.s=Left(PP(2),Position-1)                                     ; Логин мыла-отправителя письма.
MySMTPServer.s ="smtp."+Mid(PP(2),Position+1)         ; Сервер почты-отправителя письма.
MySMTPPort.l = Val(PP(3))                                          ;  25 порт или 587
Password.s=PP(4)                                                      ; Пароль мыла-отправителя письма.
MySubj.s=PP(5)                                                         ;Тема письма
MyTextMail.s=PP(6)                                                    ;Текст письма
SendFile.s=PP(7)                                                       ; Абсолютный путь к прикрепляемому файлу.

;MessageRequester("Result","SMTP="+MySMTPServer+Chr(10)+"Port="+Str(MySMTPPort)+Chr(10)+"To: "+MeilTo+Chr(10)+"From: "+MeilSend+Chr(10)+"Subj: "+MySubj+Chr(10)+"BodyText: "+MyTextMail+Chr(10)+"Login: "+Login+Chr(10)+"Password: "+Password+Chr(10)+"Attachment: "+SendFile)

Result = MessageRequester("Send Database Update","A you really SEND databaseUpdate to "+MeilTo+"?",#PB_MessageRequester_YesNo)     ; последнее китайское предупреждение.
If Result = #PB_MessageRequester_Yes       ; если Yes

If PureSMTP_OpenSMTPConnection(MySMTPServer, MySMTPPort) = #PureSMTP_Ok
        
        MessageRequester ("Connection.","Connection SUCCESS")

        PureSMTP_SetContentType("text/html; charset=windows-1251")
        Status.l = PureSMTP_SendMail(MeilTo, MeilSend, MySubj, MyTextMail, SendFile, Login, Password)

           If Status = #PureSMTP_Ok
             MessageRequester ("SUCCESS.","Mail succesfully Sent.")
           Else
            MessageRequester ("ERROR.","Mail NOT Sent."+ Chr(10)+"Wrong parameters."+ Chr(10)+PureSMTP_GetLastServerMessage())
          EndIf
        PureSMTP_CloseSMTPConnection()
    Else
        MessageRequester ("ERROR.","Connection Failed."+ Chr(10)+"Wrong SMTP server or port."+ Chr(10)+PureSMTP_GetLastServerMessage())
        ;Debug PureSMTP_GetLastServerMessage() ; ID ошибки.
    EndIf
  ElseIf Result = #PB_MessageRequester_No    ; если No 
EndIf
Else
exxit:  
  MessageRequester("ПОМОЩЬ.","Введите е-майл получателя, е-майл отправителя, порт SMTP, пароль отправителя, тему, текст и приложение письма.")     ;+Chr(10)+"В конце юбязательно ставьте запятую.")
EndIf

; IDE Options = PureBasic 4.51 (Windows - x86)
; CursorPosition = 40
; EnableXP
; UseIcon = mail.ico
; Executable = send.exe