отправка почты

[Alexander_88]

Здравствуйте. Есть ли какие - нибудь готовые bat шаблоны, для отправки почты с адреса gmail на адрес gmail ? Где нужно просто переправить адреса и пароли на свои..
В поиске куча инструкций, но не получается найти готового бат для gmail. В письме необходимо просто указать нужный текст (тело), больше ничего не нужно..
Планируется использовать на Windows XP

[Iska]

Alexander_88, почему именно пакетные файлы? Можно использовать WSH (используя/установив компонент CDO), можно установить и пользовать PowerShell.

Дело в том, что напрямую то же приложение blat.exe с GMail использовать не получится, для обязательного использования SSL потребуется ещё устанавливать и настраивать STunnel. И всё это вместо одного скрипта. Впрочем, если хотите — делайте, расжёванной информации даже на русском выше крыши, например:
Отправка писем из командной строки Windows используя аккаунт GMail (https://nemcd.com/2009/05/otpravka-pisem-windows/)
Как отправить почту на SMTP сервер Gmail (Google) через программу Blat ~ Страницы Интернета (http://internet-pages.blogspot.ru/2017/07/smtp-gmail-google-blat.html)
и т.п.

В поиске куча инструкций, но не получается найти готового бат для gmail. »
Он весь состоит ровно из одной-единственной строки с потребными параметрами blat.exe.

[Alexander_88]

Alexander_88, почему именно пакетные файлы? Можно использовать WSH (используя/установив компонент CDO), можно установить и пользовать PowerShell. »

Да не важно через что.. лишь бы проще было и для WinXP подходило. У меня макрос работает, в каких - то случаях он должен отправить почту.. у него такой ф-ции нету.. зато есть ф-ция "открыть файл", я хотел открыть bat файл таким образом, чтобы он отправил почту, но можно и любой другой файл открыть, лишь бы дополнительных действий не требовалось.. просто открыл файл.. и почта отправилась.

[Iska]

У меня макрос работает »
На чём написан макрос?

[Alexander_88]

На чём написан макрос? »
Это программа Jibit macro recoder, я через него сделал макрос

Нашел как написано способ, через vbscript

http://forum.script-coding.com/viewtopic.php?id=7232

в коде, который там представлен, изменил адрес и пароль отправителя и адрес получателя.. и ввел это в файл .vbs
Но при запуске вижу ошибку.. код "800A0400"

[Iska]

Нашел как написано способ, через vbscript
http://forum.script-coding.com/viewtopic.php?id=7232 »
Там группа связанных скриптов, и все — на JScript ;).

Тем не менее, работать должно. Если же Вам ближе именно VBScript — смотрите аналогичные примеры, например, в этой теме: VBS/WSH/JS - [решено] Отправка почты на email чрезез VBS (http://forum.oszone.net/thread-331618.html).

[Alexander_88]

Попробовал
http://forum.oszone.net/thread-331618.html

Хорошо работает, но только если есть файл, путь которого указан.. а как просто отправить текст, поля я переименовал.. заголовок и тело теперь отправляется как надо, но работает только, если есть файл.. Я попробовал удалить строчку\

strSourceFile = "C:\Мои проекты\0135\Sample.txt"
но тогда вообще ошибка возникает и ничего не отправляется :)

а так с файлом все четко работает на WinXP без всяких дополнительных установок, запустил.. и письмо уже на почте, макрос также запускает файл, и уже на почте... быстро и просто, как и требовалось :)


А.. все.... методом тыка поубирал что - то, и вроде теперь работает без всяких файлов... спасибо за помощь :)

[Iska]

а как просто отправить текст »
В той же самой теме, сообщение #17 (http://forum.oszone.net/post-2782124.html#post2782124); если вложение не нужно, можно убрать строки кода с ним связанные:
Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

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


With WScript.CreateObject("CDO.Message")
.From = "***@gmail.com"
.To = "***@yandex.ru"
.Subject = "Заголовок"

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

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

WScript.Quit 0

[Alexander_88]

Option Explicit »

WScript.Quit 0 »


а эти строки обязательно указывать ? у меня просто без них работает.. ничего страшного не случиться если их удалить?

[alpap]

Alexander_88,
я пользуюсь для отправки этим, проверено:
(в архиве еще раз код, утилита и текстовый файл с ссылкой, по которой надо в браузере выполнить разрешение)

:: nircmd.exe скачать, установить и кинуть в system32
"nircmd.exe" win hide title "%comspec%"
@echo off
:: Тут утилита
set "mailsender=D:\Soft\mailsend1.19.exe"
set "smtpserver=smtp.gmail.com"
set "smtpport=465"
set "smtpuser=LOGIN@gmail.com"
set "smtppwd=Пароль аккаунта"
:: Себе же
set "smtpsender=LOGIN@gmail.com"
set "subject=Заголовок письма"
:: Сообщение в теле письма
set "body="
set "d1=Путь к папке, откуда надо отправить файлы"

pushd "%d1%"
for /f "delims=" %%a in ('2^>nul dir /a-d/b "*.*"') do (
"%mailsender%" -smtp "%smtpserver%" -port "%smtpport%" -ssl -auth -user "%smtpuser%" -pass "%smtppwd%" -t "%smtpuser%" -f "%smtpsender%" -name "%smtpuser%" -rt "%smtpuser%" +cc +bc -q -sub "%subject%" -M "%body%" -attach "%%a"
)
popd
exit

152325

[Iska]

а эти строки обязательно указывать ? у меня просто без них работает.. ничего страшного не случиться если их удалить? »
Option Explicit указывает на требование обязательного предварительного объявления переменных. Наличие этого оператора позволяет избежать множества глупых ошибок при написании кода. Я использую его в обязательном порядке.

WScript.Quit осуществляет завершение работы скрипта и позволяет указать код возврата, который может быть проанализирован родительским процессом для выводов о корректности исполнения скрипта.