Attribute VB_Name = "Mdl"
Option Explicit

Private Sub Main()
Dim Msg As Object
Dim Max As Integer
Dim Tmp As Integer
Dim Text As String
Dim Arr() As String

On Error Resume Next
If Len(Command) > 0 Then
Open App.Path & "\Tmp.txt" For Input Access Read As 1
Text = Input(LOF(1), #1)
Close
Text = Text & vbCrLf & vbCrLf & vbCrLf & String$(30, "_") & vbCrLf & "Почтовый клиент GovzPeople.ru"
Arr = Split(Command, "|")

'Отправить сообщение с помощью локальной службы SMTP
Set Msg = CreateObject("CDO.Message")

With Msg.Configuration.Fields
' Секция настроек SMTP сервера для отправки почты.
.Item("http://schemas.microsoft.com/cdo/conf
iguration/sendusing") = 2
' Имя или IP адрес SMTP Server
.Item("http://schemas.microsoft.com/cdo/conf
iguration/smtpserver") = Arr(0) 'smtp.mail.ru
' Порт SMTP Server port (обычно 25, но может быть и другим)
.Item("http://schemas.microsoft.com/cdo/conf
iguration/smtpserverport") = 25
' Тип авторизации cdoAnonymous=0, Base64 encoded cdoBasic=1, cdoNTLM=2
.Item("http://schemas.microsoft.com/cdo/conf
iguration/smtpauthenticate") = 1
' Авторизация на SMTP server
.Item("http://schemas.microsoft.com/cdo/conf
iguration/sendusername") = Arr(1) '"adamis@list.ru"
' Пароль SMTP server
.Item("http://schemas.microsoft.com/cdo/conf
iguration/sendpassword") = Arr(2) 'пароль к ящику
' Использование SSL для соединения (False или True)
'.Item("http://schemas.microsoft.com/cdo
/configuration/smtpusessl") = False
' Время ожидания соединения с почтовым сервером
.Item("http://schemas.microsoft.com/cdo/conf
iguration/smtpconnectiontimeout") = 60
' Руссификация
.Item("http://schemas.microsoft.com/cdo/conf
iguration/languagecode") = 1049
'.Item("http://schemas.microsoft.com/cdo
/configuration/usemessageresponsetext") = True
' Сохранить настройки CDO для отправки сообщения
.Update
End With

Max = UBound(Arr)
With Msg
.AddAttachment App.Path & "\Tmp.txt"
If Max > 4 Then
' Добавляем файл - вложение для отправки отчета по EMail
For Tmp = 5 To Max
.AddAttachment Arr(Tmp)
Next
End If
' Тема сообщения и адрес отправителя
.From = Arr(1)
.Subject = Arr(3)
' Получатели письма указываются через "; "
.To = Arr(4)
' Содержимое тела письма.
.TextBody = Text

' Отправить созданное почтовое сообщение с вложением по указанному адресу
.Send
End With

End If
If Err.LastDllError <> 0 Or Err.Number <> 0 Then MsgBox Err.Number & Str$(Err.LastDllError) & vbCrLf & vbCrLf & Err.Description, vbCritical, "Ошибка отправки на: " & Arr(1)
Err.Clear

End
End Sub