PDA

Просмотр полной версии : Загрузка файла на почту

sector.404
19.02.2014, 01:00
Есть скрипт на VBS

VBScript highlight


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

Что-то здесь не так потому что оно не работает, помогите
rox@hak
19.02.2014, 01:00
попробуй изменить порт с 25 на 465
SMTP — 465
и сервер не mail.ru а smtp.mail.ru
smtpauthenticate вместо 1 нужно выставлять пароль
sector.404
19.02.2014, 01:00
Цитата:

Сообщение от rox@hak

попробуй изменить порт с 25 на 465
SMTP — 465
и сервер не mail.ru а smtp.mail.ru
smtpauthenticate вместо 1 нужно выставлять пароль

напиши наглядный пример
sector.404
19.02.2014, 01:00
IMAGE (https://hpc.name/redirector.html#http://rghost.ru/52535148/image.png) http://rghost.ru/52535148/image.png

вот что вышло после запуска
sector.404
19.02.2014, 01:00
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"
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль от почты"
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

переписал немного, как теперь указать путь к файлу, а то он кричит что не может найти путь
sector.404
20.02.2014, 01:00
На этом форуме вообще кто нибудь есть?
sector.404
20.02.2014, 01:00
ау?