MyTetra Share
Делитесь знаниями!
Как отправить письмо со ссылкой на наши файлы
12.10.2019
20:26
Раздел: !Закладки - VBA - Outlook

Как отправить письмо со ссылкой на наши файлы

Автор Дмитрий Якушев На чтение3 мин. Просмотров85

Что делает макрос: Иногда вам не нужно, отправлять вложение всем. Вместо этого, вы просто хотите автоматизированно отправить электронное письмо со ссылкой на файл. Этот макрос делает это.
Обратите внимание, что ваши пользователи или клиенты должны будут иметь доступ к сети.

Содержание

  1. Как макрос работает
  2. Код макроса
  3. Как этот код работает
  4. Как использовать

Как макрос работает

Поскольку этот код запускается из Excel, нам нужно установить ссылку на объект Microsoft Outlook Library.. Мы можем установить ссылку, открыв редактор Visual Basic в Excel и выбрав Tools➜References. Прокрутите вниз, пока мы не найдете запись Microsoft Outlook XX Object Library, где XX — это ваша версия Outlook. Поставьте флажок в поле рядом с записью.

Код макроса


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

Sub OtpravitPismoSSsilkoiNaFail()

'Шаг 1: Объявляем переменные

Dim OLApp As Outlook.Application

Dim OLMail As Object

 

'Шаг 2: Откройте Outlook, запустите новое сообщение

Set OLApp = New Outlook.Application

Set OLMail = OLApp.CreateItem(0)

OLApp.Session.Logon

 

'Шаг 3: Строим наше сообщение и отправляем

With OLMail

    .To = "admin@datapigtechnologies.com; mike@datapigtechnologies.com"

    .CC = ""

    .BCC = "

    .Subject = "Ежемесячный отчет по электронной почте со ссылкой"

    .HTMLBody = _

    "<p>Ежемесячный отчет готов. Нажмите на ссылку, чтобы получить его.

   </p>" &amp; _

    "<p><a href=" &amp; Chr(34) &amp; "Z:\Downloads\Ежемесячный Отчет.xlsx" &amp; _

Chr(34) &amp; ">Download Now</a></p>"

    .Display

End With

 

'Шаг 4: Очистка памяти

Set OLMail = Nothing

Set OLApp = Nothing

End Sub

Как этот код работает

  1. Шаг 1 сначала объявляет две переменные. OLApp — это объектная переменная, которая предоставляет Application Outlook . OLMail — это объектная переменная, которая содержит почтовый элемент.
  2. Шаг 2 активирует Outlook и начинает новый сеанс. Обратите внимание, что мы используем OLApp.Session. Войдите в систему, чтобы войти в текущий сеанс MAPI (Messaging Programming Interface Application) с учетными данными по умолчанию. Он также создает почтовое сообщение. Это эквивалентно выбору кнопки «Новое сообщение» в Outlook.
  3. Шаг 3 создает профиль нашего почтового отправления. Это включает в себя получателей, получателей CC, получателей BCC, тему и HTMLBody. Чтобы создать гиперссылку, нам нужно использовать свойство HTMLBody для передачи тегов HTML. Мы можем замените путь к файлу, указанный в макросе, на адрес нашего файла. Обратите внимание, макрос использует метод .Display, который открывает электронное письмо для просмотра. Мы можем замените .Display на .Send для автоматического запуска электронной почты без проверки.
  4. Как правило, рекомендуется освобождать объекты, назначенные нашим переменным. Это уменьшает вероятность любых проблем, вызванных объектами, которые могут оставаться открытыми в памяти. В коде мы просто устанавливаем переменную Nothing.
Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования