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

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

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

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

Код макроса

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.

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

  1. Активируйте редактор Visual Basic, нажав ALT + F11.
  2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
  3. Выберите Insert➜Module.
  4. Введите или вставьте код.
Оцените статью
Добавить комментарий