Коли користувачі відправляють електронні листи своїм клієнтам або начальству, досить складно встежити за цим. В такому випадку Excel стає в нагоді. Тому "відправляти автоматичні листи з Excel до Перспективи" доведено, що такий підхід економить час. Макроси Excel VBA та HYPERLINK можна надсилати автоматичні електронні листи або створювати чернетку, використовуючи записи в Excel.

Припустимо, ми маємо Реструктуризація заробітної плати працівника дані в Excel, і ми хочемо відправити автоматичну електронну пошту, використовуючи Перспективи .

У цій статті ми продемонструємо декілька варіантів Макроси VBA та HYPERLINK функція автоматичної відправки електронних листів з Excel до Перспективи .

Завантажити книгу Excel

⧭ Відкриття Microsoft Visual Basic та вставка коду в модуль

Перш ніж приступити до демонстрації будь-яких прийомів, необхідно знати способи відкриття і вставки Модуль в Microsoft Visual Basic в Excel.

🔄 Відкриття Microsoft Visual Basic: В основному це 3 шляхи відкриття Microsoft Visual Basic вікно.

1. за допомогою комбінацій клавіш: Преса ALT+F11 всього відкрити Microsoft Visual Basic вікно.

2. За допомогою вкладки "Розробник": На аркуші Excel перейдіть до Вкладка "Розробник Вибрати Visual Basic "У нас тут є Microsoft Visual Basic з'являється вікно.

3. за допомогою вкладки "Робочий аркуш": Перейдіть на будь-який аркуш, Клацніть правою кнопкою миші на ньому> Виберіть Переглянути код (за матеріалами Контекст Меню ).

🔄 Вставка модуля в Microsoft Visual Basic: Існують 2 способи вставки Модуль в Microsoft Visual Basic вікно,

1. Використання опцій аркуша: Після відкриття Microsoft Visual Basic у вікні, виберіть пункт Робочий аркуш > Клацніть правою кнопкою миші на ньому> Виберіть Вставка (за матеріалами Контекстне меню )> потім виберіть Модуль .

2. За допомогою панелі інструментів: Ви також можете зробити це, обравши Вставка (за матеріалами Панель інструментів )> потім обираємо Модуль .

4 простих способи автоматичної відправки електронної пошти з Excel в Outlook

Спосіб 1: Використання макросу VBA для автоматичної відправки електронної пошти за допомогою Outlook вибраним одержувачам

Ми хочемо створити виконання макросу Кнопка за допомогою якого ми можемо просто надсилати пошту обраним адресатам одним кліком миші.

Крок 1: Перейдіть на сторінку Вставка вкладка> Форми Виберіть будь-яку із запропонованих форм (тобто, Прямокутні: закруглені кути ).

Крок 2: Перетягніть Іконка "Плюс в будь-якому місці, де ви хочете вставити Форма як показано на зображенні нижче.

Крок 3: Оберіть бажаний Фігурна заливка і Конспект Колір потім клацніть по ньому правою кнопкою миші. Натисніть на Редагувати текст щоб вставити текст.

Крок 4: Скористайтеся кнопкою інструкція відкрити Microsoft Visual Basic і вставити Модуль Вставте наступний макрос в поле Модуль .

 Sub ExcelToOutlookSR() Dim mApp As Object Dim mMail As Object Dim SendToMail As String Dim MailSubject As String Dim mMailBody As String For Each r In Selection SendToMail = Range("C" & r.Row) MailSubject = Range("F" & r.Row) mMailBody = Range("G" & r.Row) Set mApp = CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) With mMail .To = SendToMail .Subject = MailSubject.Body = mMailBody .Display ' Можна використовувати .Send End With Next r End Sub 

➤ у коді,

1 - почати макропроцедуру з оголошення змінних як Об'єкт і Рядок .

2 - запустити VBA FOR цикл для кожного рядка у виділенні, щоб привласнити адреси електронної пошти Надіслати на адресу , Тема і Тіло за допомогою рядкових записів.

3 - присвоювати змінні.

4 - виконати VBA With заява для заповнення Перспективи такі предмети, як Надіслати на адресу , Тема листа і т.д. Тут макрос виконує тільки команду Дисплей команду вивести Перспективи з чернеткою електронною поштою. Однак, якщо Надіслати команда використовується на місці або після Дисплей, Перспективи відправить створений лист обраним одержувачам.

5 - закінчити VBA FOR петля.

Крок 5: Поверніться на робочий аркуш і клацніть правою кнопкою миші на Форма потім виберіть Призначити макрос від Контекстне меню варіанти.

Крок 6: Виберіть Макрос (тобто, ExcelToOutlookSR ) в рамках Угоди про асоціацію між Україною та Європейським Союзом Назва макросу та обирайте Макро в опція як Цей робочий зошит Натисніть на ГАРАЗД. .

Крок 7: Тепер на робочому аркуші виберіть одного або декількох співробітників і натисніть на кнопку Кнопка форми .

Крок 8: Підказки Excel Перспективи на обід і створює або надсилає електронні листи обраним співробітникам. При цьому ви обираєте двох співробітників, Перспективи генерує два різних проекти листа, готових до відправки.

Оскільки макрос надає лише Дисплей командування, Перспективи просто відображає чернетку листа, не надсилаючи його. Надіслати команда для автоматичної відправки листів з Excel до Перспективи за допомогою записів у клітинках.

Читати далі: Макрос Excel для автоматичного надсилання електронної пошти (3 відповідні приклади)

Спосіб 2: Автоматичне надсилання електронної пошти з Excel в Outlook залежно від конкретного значення комірки

Що робити, якщо ми хочемо надсилати автоматичні листи після досягнення цілей з Excel до Перспективи Макрокод може з легкістю виконати цю роботу.

Припустимо, ми маємо Квартальні дані про продажі як показано нижче, після досягнення мети (тобто, Продажі 2000 року ) автоматично запропонує Перспективи відправити лист з Excel на призначену адресу електронної пошти.

Крок 1: Введіть наступний макрокод у будь-якому місці Модуль .

 Option Explicit Dim Rng As Range Sub Worksheet_Change(ByVal mRng As Range) On Error Resume Next If mRng.Cells.Count> 1 Then Exit Sub Set Rng = Intersect(Range("F17"), mRng) If Rng Is Nothing Then Exit Sub If IsNumeric(mRng.Value) And Target.Value> 2000 Then Call ExcelToOutlook End If End Sub Sub ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody As String Set mApp =CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Вітаємо, пане" & vbNewLine & vbNewLine & _ "Наша торгова точка має квартальні продажі більше, ніж заплановано." & vbNewLine & _ "Це лист-підтвердження." & vbNewLine & vbNewLine & _ "З повагою" & vbNewLine & _ "Команда торгової точки" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Повідомлення про досягнення плану продажів" .Body = mMailBody .Display 'або можна використовувати .Send End With On Error GoTo 0 Set mMail = Нічого Set mApp = Нічого End Sub 

➤ З наведеного вище зображення, в розрізах,

1 - привласнити комірку (тобто, F17 ) в межах діапазону для виконання VBA IF Якщо в результаті перевірки буде встановлено, що Правда макрос викликає на виконання інший макрос.

2 - оголосити типи змінних та призначити їх для заповнення Перспективи "Записи".

3 - виступати VBA With для присвоєння змінних елементам листа. Використовуйте оператор Надіслати команду замість Дисплей у випадку, якщо ви хочете безпосередньо відправляти листи без їх перегляду. Електронна пошта одержувача вставляється в макрос. Використовуйте альтернативні методи, якщо вам потрібна автоматична вставка електронної пошти одержувача.

4 - очистити певні змінні від присвоєння.

Крок 2: Скористайтеся кнопкою F5 Щоб запустити макрос, за мить Excel отримає Перспективи з автоматично створеним проектом листа, як показано нижче. Ви можете натиснути на Надіслати або автовідправка за допомогою Надіслати в макросі.

Читати далі: Автоматична відправка електронних листів з Excel на основі вмісту комірок (2 способи)

Схожі читання

• Як побачити, хто знаходиться в спільному файлі Excel (з короткими кроками)
• Увімкнути спільний доступ до книги в Excel
• Як надати спільний доступ до файлу Excel кільком користувачам
• Як застосувати макрос для відправки листа з Excel з вкладенням

Спосіб 3: Використання макросу VBA для надсилання електронної пошти з активним аркушем з Excel за допомогою Outlook

Крім того, можуть бути випадки, коли нам потрібно відправити цілий Активний лист В такому випадку ми можемо використовувати Користувацька функція VBA для виклику в межах макросу.

Крок 1: Вставте наведений нижче макрос в Модуль .

 Function ExcelOutlook(mTo, mSub As String, Optional mCC As String, Optional mBd As String) As Boolean On Error Resume Next Dim mApp As Object Dim rItem As Object Set mApp = CreateObject("Outlook.Application") Set rItem = mApp.CreateItem(0) With rItem .To = mTo .CC = "" .Subject = mSub .Body = mBd .Attachments.Add ActiveWorkbook.FullName .Display 'або можна використати .Send End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Quarterly Sales Data" mBd = "Greetings Sir" & vbNewLine & vbNewLine & _ "Kindly find Outlet's Quarterly Sales Data attached to this mail." & vbNewLine & _ "This is a notification mail." & vbNewLine & vbNewLine & & & & & & & & & & & & & & &vbNewLine & _ "Вихідна команда" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Успішно створено чернетку листа або відправлено" End If End Sub 

➤ З наведеного вище зображення, розділи коду,

1 - оголошувати та встановлювати змінні.

2 - призначити команди за допомогою кнопки VBA With Використовуйте заяву. Використовуйте Дисплей або Надіслати для перегляду або безпосереднього відправлення електронних листів відповідно.

3 - очистити раніше встановлені змінні.

4 - привласнити VBA With команди з текстами.

5 - виконати Користувацька функція VBA .

Крок 2: Для виконання макросу натисніть F5 і миттєво Excel виводить на екран Перспективи з проектом листа для ознайомлення, подібним до наведеного нижче зображення. Після цього ви можете надсилати його.

Читати далі: Як надсилати масові розсилки з Outlook за допомогою Excel (3 способи)

Спосіб 4: Надсилання автоматичного електронного листа з Excel в Outlook за допомогою функції HYPERLINK

На сьогоднішній день, на жаль, це не так. HYPERLINK функція генерує в комірках Excel посилання, на яке можна натиснути, щоб вивести на екран Перспективи як засіб для автоматичного надсилання електронних листів з Excel.

Крок 1: Введіть в комірку наступну формулу H5 .

На сьогоднішній день, на жаль, це не так. HYPERLINK функція приймає "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 як link_location і "Натисніть тут" як ім'я_друга .

Крок 2: Хіт ENTER вставити посилання, після чого перейти за посиланням.

Крок 3: Excel переносить вас до Перспективи І ти бачиш всі ці Перспективи записи заповнюються призначеними даними з Excel. Натисніть на кнопку Надіслати .

Крок 4: Перетягніть Ручка наповнення щоб застосувати формулу до інших комірок.

Читати далі: Як автоматично надсилати електронний лист при виконанні умови в Excel

Висновок

Варіанти макросів VBA і HYPERLINK може бути корисною при надсиланні автоматичних листів з Excel в Outlook. Сподіваємось, ви знайдете свій спосіб серед описаних вище. Коментуйте, якщо у вас виникли додаткові запитання або є що додати.