Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Отправка файлов по почте в одном письме с любыми именами, но с расширениями doc,doсx

Ответить
Настройки темы
VBS/WSH/JS - Отправка файлов по почте в одном письме с любыми именами, но с расширениями doc,doсx

Новый участник


Сообщения: 48
Благодарности: 1

Профиль | Отправить PM | Цитировать

Есть скрипт отправки одного файла с любым именем и расширением doc(Есть минус скрипта, если файлов в папке два и более .doc, то скрипт не отправляет). Хочу также чтобы отправляла и файлы с расширением docx.

Path = "\\Directory\"
Set Items = CreateObject("Shell.Application").NameSpace(Path).Items
Items.Filter 192, "*.doc"
If Items.Count = 1 Then
Web = "http://schemas.microsoft.com/cdo/configuration/"
With CreateObject("CDO.Message")
.From = "xxxmail"
.To = "xxxxmail"
.Bcc = "xxxxxmail"
.Subject = "test"
.Textbody = "test"
.AddAttachment Path & Items.Item(0)
.Configuration.Fields.Item (Web & "sendusing") = 2
.Configuration.Fields.Item (Web & "smtpserver") = "xxx-smtp"
.Configuration.Fields.Item (Web & "smtpserverport") = 25
.Configuration.Fields.Update
.Send
End with
with CreateObject("Scripting.FileSystemObject")
.MoveFile "\\Directory\*.doc", "\\Directory\Backup"
end with
end if

Отправлено: 09:06, 04-07-2016

 

Ветеран


Сообщения: 874
Благодарности: 575

Профиль | Отправить PM | Цитировать

Цитата FantomasAnand:
Хочу также чтобы отправляла и файлы с расширением docx. »


Код: Выделить весь код
Items.Filter 192, "*.doc;*.docx"

Отправлено: 10:15, 05-07-2016 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Отправка файлов по почте в одном письме с любыми именами, но с расширениями doc,doсx

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Любой язык - Выборка файлов и отправка по почте JustAnotherFool Скриптовые языки администрирования Windows 0 18-12-2015 12:39
CMD/BAT - Удаление непарных файлов в увеличением в фильтре и отправка по почте через Blat NemoSUN Скриптовые языки администрирования Windows 10 29-05-2013 14:17
CMD/BAT - [решено] Копирование файла по расписанию и его отправка по почте LokkyZ Скриптовые языки администрирования Windows 8 03-10-2011 16:49
Интерфейс - Синхронизация файлов с одинаковыми именами но разного размера. Houre Microsoft Windows 2000/XP 5 20-09-2011 12:32
Отправка файлов по электронной почте grishin dima Хочу все знать 3 06-08-2003 01:10


« Предыдущая тема | Следующая тема »


 
Переход