Страницы: 1
RSS
Отправка Excel to Lotus notes с помощью макроса
 
Добрый день!

На главной есть статья, разбирающая отправку Excel to Outlook с помощью VBA, при ниже есть битая ссылка  Макросы для отправки почты из Excel через Lotus Notes от Dennis Wallentin

Я нашел код, но к сожалению, в силу отсутствия каких-либо навыков VBA программирования не могу адаптировать его под себя:
Скрытый текст

Большая просьба помочь с рядом вопросов:

1.
Код
Const stSubject As String = "Weekly report":
Если тема письма варьируется от недели к неделе, допустим, сейчас это будет Week Results 23, на след недел Week Results 24, какие есть варианты решения?
Я вижу это как: а) всплывающие окно, в котором я указываю номер недели  или б) лучше в коде самостоятельно определяется текущая неделя

2.
Код
Const stPath As String = "c:\Attachments"
Этой срочкой автор указывает путь, где лежит документ с которым он работает?

3.
Код
Sub Send_Active_Sheet()
В примере рассмотрен случай вложения текущего листа в письмо.
Как будет выглядет код, если у меня есть фиксированная директория (например, \Недельные отчёты\2015\Week 24), в которой уже лежат подготовленные отчеты
и мне надо вложить все excel файлы из этой папки в письмо?
Дополнительно стоит указать, что номер папки варьируется (равно как и тема письма) поэтому, по идеи это можно связать. Т.е. в коде определяется номер недели и используется как в stSubject так и в месте, откуда забираются файлы
4.
Код
vaRecipients = VBA.Array("name1@mail.com", "name1@mail.com")

Если у меня постоянный список получателей, я могу вынести их в верхний блок?  Как будет выглядеть код?
Код
Const vaRecipients = VBA.Array("name1@mail.com", "name1@mail.com")

5.
Код
Set noSession = CreateObject("Notes.NotesSession")  
Set noDatabase = noSession.GETDATABASE("", "")
Во второй строчке нужно указать путь к базе лотус?

6. Как добавить просмотр документа перед отправкой?

Видел в примере на главной, что для outlook была использована команда display

Т.е. я меняю
Код
.Send 0, vaRecipients
На
Код
.Display
?

Заранее спасибо, если вы ответите хоть на часть вопросов, либо подскажите направление, где копать
 
На вопросы с 1 по 3 я частично нашел ответ:
Код
Dim noNed As String
noNed = WeekNum(TODAY()) - 1
 stSubject = stSubject & noNed
 stPath = stPath & "\" & noNed

При это я не понимаю как заставить забирать из папки все файлы расширением .xls

4-6 тоже более менее понятны, остается открытым 5
Изменено: Всеволод С - 23.06.2015 15:49:12
 
Тыц_1 и Тыц_2
 
Ivan.kh, спасибо, буду ковырять
Страницы: 1
Наверх