Отправка почты на email чрезез VBS
 

Доброго времени суток.
Нужно отправить через VBS скрипт письмо на gmail.com.
Перепробовал кучу скриптов, никакой не работает :( .
Нужна отсылка логов.

Приведите пример одного из таких "никаких".

Такой пробовал:
И такой пробовал но это то же самое:

ymo_4@vk, хотелось бы услышать, как именно выглядит «не работает»? Для второго скрипта сразу скажу, что GMail требует SSL.

Возможно проще будет взять http://www.blat.net/?faq/index.html
Это почтовая программа работающая через CLI.

Мне нужно именно через VBScript. Не хотелось-бы устанавливать дополнения.

Пробовал вот этот код (данные заменил на свои):
вот ошибка: Файл 149846

Покажите именно Ваш код. Замените Ваши реальные данные на ***, наподобие:
Нужны конкретные детали — откуда, куда и как происходит отправление, какие используются сервера, соответствуют ли выбранные порты выбранным серверам и т.п.

ymo_4@vk, попробуйте задать для:
как раз-таки полное имя пользователя, включая @gmail.com.

И что за адрес такой:
(хотя в данном случае пока не важно)?!

это я не так написал.

Давай я тебе на email отправлю скрипт с данными и паролями?
Email напиши ещё.
И ты сделаешь рабочий скрипт? =)

Гмм… Даже не знаю. А не заблокирует ли Gmail учётную запись, если доступ к ней пойдёт не с типичного адреса? Они там любят это дело. Ну, если хотите — отправьте, попробую покрутить, сначала отправку на свой адрес, потом с GMail на Gmail.

Я бы и самолично проверил, но у меня на Google нет учётных записей, и заводить их там я не планирую.

Щёлкаете над любым моим сообщением ссылку Профиль, там — ссылку Отправить сообщение по E-mail, вводите какой-нибудь текст для опознания Вас и отправляете. Я, получив письмо, Вам отвечаю по почте. Так Вы узнаете адрес, на который затем отправите учётные данные в зашифрованном архиве 7-Zip или RAR. Пароль на архив выложите сюда.

ymo_4@vk, письмо получил, ответ отправил.

пароль от архива - DVUAML

Письмо получил, пробую.

Update: попробовал от Вашего имени к себе — работает, письмо получил. Вот код:
Теперь можете попробовать с одного Gmail-адреса отправить на другой Gmail-адрес.

Update2: если сработает — пишите, как лучше отправлять файлы, в примере взят один с жёстко заданным именем.

Спасибо вам большое!
И скажите пожалуйста как добавить текст?

Э… «Спасибо, работает» или «Спасибо, не работает» ;)?

Работает =), и ещё раз спасибо!

Лады. Тогда зачищаю у себя Ваше письмо с явками и паролями.

А что с:
— есть нужда?

Помогите пожалуйста !!!
У всех видимо работает .... а я уже второй день бьюсь и ничего не отправляет !!!
Вот код :
Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"


Dim strSourceFile


strSourceFile = "C:\1\1.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strSourceFile) Then
With WScript.CreateObject("CDO.Message")
.From = "*****@gmail.com"
.To = "*****@gmail.com"
.Subject = "File [" & strSourceFile & "]"

.TextBody = "Мама мыла раму"
.TextBodyPart.Charset = "windows-1251"

.AddAttachment strSourceFile

With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.gmail.com"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 465
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "*****@gmail.com"
.Item(strConstPartOfSchema & "sendpassword") = "*****"
.Item(strConstPartOfSchema & "smtpusessl") = True

.Update
End With

.Send
End With
Else
WScript.Echo "Source file [" & strSourceFile & "] not found."
WScript.Quit 1
End If
End With

WScript.Quit 0

addy2k, идёте сюда: https://myaccount.google.com/lesssecureapps и разрешаете доступ для «Ненадежные приложения, у которых есть доступ…», дабы статус сменился с «Небезопасные приложения заблокированы» на «Небезопасные приложения разрешены». И затем пробуете скрипт заново.