Любой язык - [решено] Автоматическая отправка файлов на почтовый ящик

Iska · Отправлено: **20:44, 30-10-2018** | #2

shaman18, с учётом реалий нынешнего дня — WSH/PowerShell. Если, разумеется, под:

Цитата shaman18:

отправка файлов на почтовый ящик »

подразумевается электронное письмо с прикреплёнными к нему файлами, которые отправляются из Вашего почтового ящика кому-то.

Казбек · Конфигурация компьютера

shaman18,

Blat
Blat run from a Batch file

Iska · Отправлено: **21:00, 30-10-2018** | #4

Казбек, сейчас сложно найти почтовый сервер, с которым бы blat работало бы без установки и настройки stunnel. Посему теряется весь смысл в использовании blat.

shaman18 · Отправлено: **21:00, 30-10-2018** | #5

Цитата Iska:

подразумевается электронное письмо с прикреплёнными к нему файлами, которые отправляются из Вашего почтового ящика кому-то. »

есть определенный файл который будет отправляться постоянно на другую почту ( ну естественно с моей почты )
ну грубо, есть папка в ней файл ( который меняется только датой ) и нужно чтобы автоматом он отправился на ящик друга
ну так и получается создается электронное письмо с прикрепленным файлом
ну и чтобы работало на Windows 7, 10, Server 2008-2017

Вот еще кое что нашел но опять не то , как то можно сделать из этого что надо? Написана на VBA для Excel
Для регистрации jmail.dll нужно его скопировать в обе папки Windows\system32 и Windows\syswow64. Затем войти в консоль с повышенными правами и ввести команду:
regsvr32 "%windir%\syswow64\jmail.dll" Это я так понял для jmail почты

Скрытый текст

Function Send_Email(Adresat$, AdrHidden$, Subj$, BodyMail$, Attach) As Boolean
On Error GoTo ErrH
Dim att
Dim Jmail

Set Jmail = CreateObject("JMail.Message")
With Jmail
.Charset = "windows-1251" ' кодировка
.AddRecipient Adresat ' адрес получателя
.From = "login@yandex.ru" ' адрес отправителя
.Body = BodyMail ' перевод на новую строку - & vbCrLf
.Subject = Subj ' тема письма
.EnableCharsetTranslation = False ' так надо...
If IsArray(Attach) Then
For Each att In Attach
.AddAttachment att 'Прикрепить файл
Next
End If
.MailServerUserName = "login" ' логин
.MailServerPassword = "pasword" ' пароль
.Send ("smtp.yandex.ru") ' лети!...
End With
Set Jmail = Nothing

Send_Email = (Err = 0)
Err.Clear

'MsgBox "Сообщение отправлено адресатам: " & UBound(Split(AdrHidden, ";")) + 2
Exit Function
ErrH:
Debug.Print Err.Description
Resume Next
End Function

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

Цитата shaman18:

есть определенный файл который будет отправляться постоянно на другую почту ( ну естественно с моей почты )
ну грубо, есть папка в ней файл ( который меняется только датой ) и нужно чтобы автоматом он отправился на ящик друга
ну так и получается создается электронное письмо с прикрепленным файлом
ну и чтобы работало на Windows 7, 10, Server 2008-2017 »

shaman18, ну, например.

P.S. Может потребоваться установка библиотеки CDO.

P.P.S. Для отправки через GMail дополнительно потребуется разрешить доступ: Как разрешить небезопасным приложениям доступ к аккаунту - Cправка - Аккаунт Google.

shaman18 · Отправлено: **21:53, 30-10-2018** | #7

Цитата Iska:

P.S. Может потребоваться установка библиотеки CDO.
P.P.S. Для отправки через GMail дополнительно потребуется разрешить доступ: Как разрешить небезопасным приложениям доступ к аккаунту - Cправка - Аккаунт Google. »

Спасибо, сейчас буду пробовать, мне в основном на mail.ru

библиотеки CDO это откуда взять?
и как правильно указать путь к файлу? подскажите еще, p.s не увидел вначале сейчас разберусь

не получается, не срабатывает

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

Цитата shaman18:

библиотеки CDO это откуда взять? »

Например, на сайте Microsoft: Download Collaboration Data Objects, version 1.2.1 from Official Microsoft Download Center. Сначала проверьте работу скрипта без установки библиотеки по ссылке (поскольку она уже может быть установлена и зарегистрирована).

Цитата shaman18:

и как правильно указать путь к файлу? »

Код:

strSourceFile = "C:\Мои проекты\0135\Sample.txt"

shaman18 · Отправлено: **22:06, 30-10-2018** | #9

E:\Винда>With WScript.CreateObject("Scripting.FileSystemObject")
"With" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
Непредвиденное появление: Then.

E:\Винда> IF .FileExists(strSourceFile) Then

и расширения файлов это rar, zip, будет а также .dt
тут вижу .txt может поэтому не срабатывает
вот так прописано

Код:

strSourceFile = "d:\TORRENTS\Исправление шрифтов\Новая папка\themify-icons-font.zip"

Iska · Отправлено: **22:15, 30-10-2018** | #10

Цитата shaman18:

E:\Винда>With WScript.CreateObject("Scripting.FileSystemObject")
"With" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
Непредвиденное появление: Then.
E:\Винда> IF .FileExists(strSourceFile) Then »

Это скрипт WSH. Сохраните код в файл с расширением .vbs.

Цитата shaman18:

и расширения файлов это rar, zip, будет а также .dt
тут вижу .txt может поэтому не срабатывает »

Указывайте вместо «C:\Мои проекты\0135\Sample.txt» полный путь к Вашему файлу. Если будет несколько файлов — перечислите здесь их полные пути, я адаптирую код.