Note: The other languages of the website are Google-translated. Back to English

Як надіслати електронне повідомлення в певний час доби в Excel?

У деяких випадках вам може знадобитися відкласти надсилання електронного листа в певний час під час роботи. Чи знаєте ви, як цього досягти? У цій статті буде показано спосіб надсилання електронного листа в Excel в певний час доби.

Надішліть електронне повідомлення в певний час доби із кодом VBA


Надішліть електронне повідомлення в певний час доби із кодом VBA

Наступні коди VBA можуть допомогти вам надіслати електронне повідомлення в певний час доби в Excel. Будь ласка, виконайте наступне.

1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте код VBA у вікно модуля.

Код VBA 1: Надішліть електронне повідомлення в певний час доби в Excel

Sub SendEmail()
'Updated by Extendoffice 2018/3/5
Set olApp = CreateObject("Outlook.application")
Set objMail = olApp.CreateItem(olMailItem)
With objMail
 .Display
 .To = "Email address"
 .Subject = "Send email"
 'HTML for fun
 '.BodyFormat = olFormatHTML
 .HTMLBody = "<HTML><H2>Email Body</BODY></HTML>"
 '.Send
 
End With
End Sub

3. Двічі клацніть ThisWorkbook на лівій панелі, щоб відкрити вікно ThisWorkbook (Code). А потім скопіюйте нижче код VBA 2 у вікно. Дивіться знімок екрана:

Код VBA 2: Надішліть електронне повідомлення в певний час доби в Excel

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
    Application.OnTime TimeValue("11:00:00"), "SendEmail"
End Sub

примітки: У коді 2, будь ласка, вкажіть час надсилання, скільки вам потрібно.

4 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.

5. клацання філе > Зберегти як > перегорнути.

6 В Зберегти як діалогове вікно, прохання вибрати папку для збереження книги, назвіть її, як вам потрібно, виберіть Книга Excel з підтримкою макросів формат з Зберегти як і, нарешті, клацніть на зберегти кнопку. Дивіться знімок екрана:

Відтепер, як тільки настане певний час, певна електронна пошта відображатиметься автоматично. Клацніть на Відправити кнопку, щоб надіслати цей електронний лист.

Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (1)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
У мене є список адрес електронної пошти в Excel, на які мені потрібно надсилати електронні листи. Тема та основний текст знаходяться в клітинках, окрім адреси електронної пошти, і в мене є сценарій нижче, але мені потрібно надсилати 100 електронних листів на 1 годину, як я можу та який код використання для цього, будь ласка, ваша підтримка



Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Клітинки(Рядки.Кількість, "A").Кінець(xlUp).Рядок
Встановити Mail_Object = CreateObject("Outlook.Application")
Для i = 2 До lr
З Mail_Object.CreateItem(o)
.Subject = Range("B" & i).Value
.To = Діапазон("A" & i).Значення

.Body = Range("C" & i).Value
.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
.Надіслати

'.display 'вимкнути відображення та увімкнути автоматичне надсилання
Кінець з
Далі я
MsgBox "Електронний лист успішно надіслано", 64
Application.DisplayAlerts = False
Встановіть Mail_Object = Нічого
End Sub
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL