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

[FantomasAnand]

Есть скрипт отправки одного файла с любым именем и расширением 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

[Georgio]

Цитата FantomasAnand:



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

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

Код:

Код: Выделить всё

Items.Filter 192, "*.doc;*.docx"