[FantomasAnand]

Начните с требования обязательного объявления переменных «Option Explicit». »

Прописал, ошибок нет, но также не работает отправка.Точнее Не отправка не работает, а скорее поиск "*.doc". он просто как будто не находит там файла. Допусти если прописать явное имя файла, но которого в папке нет, то он тоже ошибок не даст и ничего не отправит.

Option explicit
dim Path
dim Items
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 = "xxxmail"
.Bcc = "xxxmail"
.Subject = "test"
.Textbody = "test"
.AddAttachment Path & Items.Item(0)
.Configuration.Fields.Item (Web & "sendusing") = 2
.Configuration.Fields.Item (Web & "smtpserver") = "xxxsmtp"
.Configuration.Fields.Item (Web & "smtpserverport") = 25
.Configuration.Fields.Update
.Send
End with
with CreateObject("Scripting.FileSystemObject")
.MoveFile "\\directory\*.doc", "directory\dicrectory1"
end with
end if