[FantomasAnand]

В итоге помогло это решение.

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