powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматическая отправка файла с помощью Outlook
1 сообщений из 1, страница 1 из 1
Автоматическая отправка файла с помощью Outlook
    #37690515
Анон
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте, уважаемые мастера. Передо мной стоит задача сделать так, чтобы при щелчке правой кнопки мыши по любому файлу в выпадающем спике, в разделе "Отправить" был пункт "Отправить с помощью Outlook", при выборе которого этот файл отправлялся бы по нескольким адресам, хранящимся в .txt файле. Стоит Outlook 2007.
В папке SendTo создал ярлык Outlook с добавлением "/a". При его запуске, создается пустое письмо с прикрепленным файлом. Мне нужно, чтобы в этом письме прописывались адреса. До этого задания я не был знаком с VBA, поэтому смог написать код только для создания нового письма с нужными адресами.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
  Sub Pr1()
    Dim Adr
      Open "F:\Prob\Adress.txt" For Input As #1
       Do While Not EOF(1)
        Adr = Adr & Input(1, #1)
       Loop
      Close #1
    Dim objOL As Outlook.Application
    Dim objMail As MailItem
    Set objOL = Outlook.Application
    Set objMail = objOL.CreateItem(oMailItem)
      With objMail
        .To = Adr
        .Subject = "Text"
        .Body = "Text"
        .Display
     End With
  End Sub



Как эти адреса вписывать в письмо с прикрепленным файлом, которое создается при запуске ярлыка? Или я кардинально неправильно подхожу к этому заданию?
Прошу прощения за простой вопрос. Надеюсь на вашу помощь. Заранее спасибо.
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматическая отправка файла с помощью Outlook
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]