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

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

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

1. Шаг 1 сначала объявляет две переменные. OLApp — это объектная переменная, которая предоставляет Application Outlook . OLMail — это объектная переменная, которая содержит почтовый элемент. 

2. Шаг 2 активирует Outlook. Обратите внимание, что мы используем OLApp.Session. Войдите в систему, чтобы запустить программу (через MAPI (Messaging Programming Interface Application)) с учетными данными, сохраненными по умолчанию. Он также создает почтовое сообщение. Это эквивалентно выбору кнопки «Новое сообщение» в Outlook.

3. Шаг 3 строит профиль почтового сообщения. Он включает в себя получателей, получателей копии, получателей скрытой копии, тему, тело и вложения. Чтобы создать гиперссылку, нам нужно использовать свойство HTMLBody для передачи тегов HTML. Мы можем замените путь к файлу, указанный в макросе, на адрес нашего файла. Обратите внимание, макрос использует метод .Display, который открывает электронное письмо для просмотра. Мы можем замените .Display на .Send для автоматического запуска электронной почты без проверки. 

4. Последним шагом мы очищаем память объектов, присвоенных нашим переменным. Это снижает вероятность каких-либо проблем, вызванных объектами, которые могут остаться открытыми в памяти.

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

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