CMD/BAT

Iska · Отправлено: **06:09, 30-04-2018** | #2

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

Дело в том, что напрямую то же приложение blat.exe с GMail использовать не получится, для обязательного использования SSL потребуется ещё устанавливать и настраивать STunnel. И всё это вместо одного скрипта. Впрочем, если хотите — делайте, расжёванной информации даже на русском выше крыши, например:
Отправка писем из командной строки Windows используя аккаунт GMail
Как отправить почту на SMTP сервер Gmail (Google) через программу Blat ~ Страницы Интернета
и т.п.

Цитата Alexander_88:

В поиске куча инструкций, но не получается найти готового бат для gmail. »

Он весь состоит ровно из одной-единственной строки с потребными параметрами blat.exe.

Alexander_88 · Отправлено: **06:31, 30-04-2018** | #3

Цитата Iska:

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

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

Iska · Отправлено: **06:45, 30-04-2018** | #4

Цитата Alexander_88:

У меня макрос работает »

На чём написан макрос?

Alexander_88 · Отправлено: **06:49, 30-04-2018** | #5

Цитата Iska:

На чём написан макрос? »

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

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

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

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

Iska · Отправлено: **07:21, 30-04-2018** | #6

Цитата Alexander_88:

Нашел как написано способ, через vbscript
http://forum.script-coding.com/viewtopic.php?id=7232 »

Там группа связанных скриптов, и все — на JScript

.

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

Alexander_88 · Отправлено: **08:14, 30-04-2018** | #7

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

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

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

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

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

Iska · Отправлено: **08:30, 30-04-2018** | #8

Цитата Alexander_88:

а как просто отправить текст »

В той же самой теме, сообщение #17; если вложение не нужно, можно убрать строки кода с ним связанные:

Код:

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 · Отправлено: **10:20, 30-04-2018** | #9

Цитата Iska:

Option Explicit »

Цитата Iska:

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