Set objMes = CreateObject(
"CDO.Message"
)
objMes.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
) =
"mail.ru"
objMes.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
) =
25
objMes.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
) =
1
objMes.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/sendusername"
) =
"pochta@mail.ru"
objMessage.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/sendpassword"
) =
"пароль от почты"
objMes.Configuration.Fields.Update
objMes.From =
"pochta@mail.ru"
objMes.To =
"pochta@mail.ru"
objMes.Subject =
"OK"
objMes.Textbody =
"OK"
objMes.AddAttachment
"C:\%appdata%\MyApp\License\application.lic"
objMes.Send