Автоматическая ежедневная отправка письма в одно время

@bbv1970 · Регистрация: 09.10.2015

Author24 — интернет-сервис помощи студентам

Аутлук включается каждый день приблизительно в одно и то же время. Есть одно письмо которое отправляется каждый день до с 8-45 до 9-00, причем к письму нужно приклеить отчет (внешний файл). Подскажите как сделать, чтобы данное письмо создавалось само и в течении этого времени отправлялось само на заданный адрес?

Добавлено через 12 минут
Или ... есть макрос который все это делает. Вопрос как сделать чтобы макрос запускался во время с 8-45 до 9-00 ?

@alexeydemidenko · 01.12.2015, 19:50

как вариант, можно создать цикличную встречу "отправить отчет" с напоминанием в 8.45.

и следующим макросом отслеживать напоминание встречи "отправить отчет" и если оно, то отправлять письмо с вложением.
важно не забыть отменить напоминание после отправки, есть шанс отложить на 5-10 минут на автомате напоминалку и тогда через это время адресату снова улетит файл

код мориторинга встречи

Visual Basic

'----В СЕССИЮ
Private Sub Application_Reminder(ByVal Item As Object)
  Dim objMsg As MailItem
  Set objMsg = Application.CreateItem(olMailItem)
 
'IPM.TaskItem to watch for Task Reminders
If Item.MessageClass <> "IPM.Appointment" Then
  Exit Sub
End If
 
If Item.Subject <> "отправить отчет" Then
  Exit Sub
End If
 
 
  objMsg.To = "k@A.Ru;" 'кому отправляем
  objMsg.BCC = "a@b.ru" 'скрытая копия
  objMsg.Importance = olImportanceHigh 'важность письма
  objMsg.Subject = Item.Subject 'тему берем из встречи
  objMsg.Body = Item.Body 'текст берем из встречи
  objMsg.Attachments.Add GetAttach 'добавляем вложение, которое генерится процедурой GetAttach
  objMsg.Send
 
 
  Set objMsg = Nothing
End Sub

код создания вложения

Visual Basic

Function GetAttach()
  Dim strPath
  Dim arrFiles
  Dim k As Variant
    strPath = "C:\temp"
    Set arrFiles = CreateObject("Shell.Application").NameSpace(strPath).Items
    arrFiles.Filter 64, "*.log"
    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

@bbv1970 0 / 0 / 0 Регистрация: 09.10.2015 Сообщений: 3
		1
	Автоматическая ежедневная отправка письма в одно время 09.10.2015, 14:01. Показов 20441. Ответов 1 Метки нет (Все метки) Аутлук включается каждый день приблизительно в одно и то же время. Есть одно письмо которое отправляется каждый день до с 8-45 до 9-00, причем к письму нужно приклеить отчет (внешний файл). Подскажите как сделать, чтобы данное письмо создавалось само и в течении этого времени отправлялось само на заданный адрес? Добавлено через 12 минут Или ... есть макрос который все это делает. Вопрос как сделать чтобы макрос запускался во время с 8-45 до 9-00 ? 0

	01.12.2015, 19:50