Программирование "удобняшек" на VBScript (Часть 2) - [4] :: Прикладное программирование

Здравствуйте!
Нужно в MS Outlook 2007 организовать автоматическую отправку писем с вложениями. Для этого собираюсь в планировщик засунуть батник, который каждые 5 минут проверяет наличие файла в папке с вложениями (готовыми к отправке) и если такие есть, то запускает Outlook с ключом запуска на выполнение VBA проекта. Имеется скрипт, который умеет отправлять одно письмо с вложением из папки (C:\temp\3):
Код:

Function GetAttach()
Dim strPath
Dim arrFiles
strPath = "C:\temp\3"
Set arrFiles = CreateObject("Shell.Application").NameSpace(strPath).Items
arrFiles.Filter 64, "*.txt"
Select Case arrFiles.Count
Case 0
MsgBox "Отчет для отправки не найден.", 48, "Отправка файла"
WScript.Quit 1
Case 1
GetAttach = arrFiles.Item(0).Path
Case Else
MsgBox "Найдено несколько файлов.", 48, "Отправка файла"
WScript.Quit 1
End Select
End Function

Sub SendReports()
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments

Set myItem = myOlApp.CreateItem(olMailItem) myItem.To = "ivanov@mail.ru"
myItem.Subject = "отчет"
myItem.Body = "С уважением, Иванов Иван"
Set myAttachments = myItem.Attachments
myAttachments.Add GetAttach, _
olByValue
myItem.Send
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Нужен скрипт, который бы работал, если в папке C:\temp\3\ лежит несколько вложений.
Есть два желаемых варианта (устроит любой): 1.- при наличии нескольких вложений скрипт создает одно письмо с несколькими вложениями внутри. 2. - при наличии нескольких вложений скрипт создает несколько писем с одним вложением в каждом. Есть рабочий скрипт с циклом, который сохраняет вложения входящих писем:
Код:

Sub SaveMyMail(objMyItem As Outlook.MailItem)
Set myAttachments = objMyItem.Attachments
For i = 1 To myAttachments.Count
Set myAtt = myAttachments.Item(i)
myAtt.SaveAsFile "C:\temp\3\save\" & "_File" & i & "_" & myAtt.DisplayName
Next
End Sub

Пробывал интуитивно переделать первый скрипт, вставить в него цикл как во втором, получилась неработающая конструкция, т.к. в VBS ничего не понимаю. Просьба помочь.
Прилагаю ужас, котрый я пытался сделать:
Код:

Sub SendReports()
Dim strPath
Dim arrFiles
strPath = "C:\temp\3\send"
Set arrFiles = CreateObject("Shell.Application").NameSpace(strPath).Items
arrFiles.Filter 64, "*.txt"

For i = 1 To arrFiles.Count
Set myArr = arrFiles.Item(i).Path

Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments

Set myItem = myOlApp.CreateItem(olMailItem) myItem.To = "ivanov@mail.ru"
myItem.Subject = "отчет"
myItem.Body = "С уважением, Иванов Иван"
Set myAttachments = myItem.Attachments
myAttachments.Add myArr, _
olByValue
myItem.Send
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Next
End Sub

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67