Як швидко надіслати електронний лист на основі дати в комірці Excel?
Ви коли-небудь пробували надіслати електронне повідомлення на основі дати в комірці Excel? Наприклад, ось список дат у стовпці А, а потім ви хочете надіслати електронний лист із темою, тілом повідомлення одержувачу (також можна CC та BCC іншим), як ви можете з цим обробляти?
Надіслати електронний лист за датою за допомогою VBA
Надіслати електронний лист за датою за допомогою VBA
Щоб надіслати електронний лист на основі дати в Excel, можна застосувати лише макрокод.
1. Увімкніть аркуш, що містить дані та дату, яку ви використовуєте, та натисніть Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модуліі вставте код нижче в порожній сценарій.
VBA: Надіслати за датою
Sub email()
'UpdatebyExtendoffice20170831
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
Dim xMail_Object, xMail_Single As Object
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xRgEach In xRg
If xRgEach.Value = Date Then
xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
If xEmail_Send_To = "" Then Exit Sub
xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
Set xMail_Object = CreateObject("Outlook.Application")
Set xMail_Single = xMail_Object.CreateItem(0)
With xMail_Single
.Subject = xEmail_Subject
.To = xEmail_Send_To
.cc = xEmail_Cc
.BCC = xEmail_Bcc
.Body = xEmail_Body
.Send
End With
End If
Next
End Sub
3. клацання прогін кнопку або натисніть F5 клавіша для виконання коду, вискакує діалогове вікно, що нагадує вам про вибір списку дат. Дивіться знімок екрана:
4. Клацніть OK і продовжуйте вказувати тему електронної пошти, адресу електронної пошти відправника, адресу електронної пошти одержувача, CC, BCC та тіло повідомлення. Дивіться знімок екрана:
5. клацання OK > OK до останнього, а потім електронний лист надіслано.
Примітка: електронна адреса відправника повинна бути обліковим записом за замовчуванням у вашому Outlook.
Створення списку розсилки та надсилання електронних листів |
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!