Как автоматично да изпращате имейл въз основа на стойността на клетката в Excel?
Да предположим, че искате да изпратите имейл през Outlook до определен получател въз основа на определена стойност на клетка в Excel. Например, когато стойността на клетка D7 в работен лист е по-голяма от 200, имейлът се създава автоматично. Тази статия представя метод на VBA за бързо решаване на този проблем.
Автоматично изпращане на имейл въз основа на стойност на клетка с VBA код
Автоматично изпращане на имейл въз основа на стойност на клетка с VBA код
Моля, направете следното, за да изпратите имейл въз основа на стойността на клетка в Excel.
1. В работния лист трябва да изпратите имейл въз основа на стойността на клетката (тук казва клетка D7), щракнете с десния бутон върху раздела на листа и изберете Преглед на кода от контекстното меню. Вижте екранна снимка:
2. При изскачане Microsoft Visual Basic за приложения прозорец, моля, копирайте и поставете кода на VBA по-долу в прозореца на кода на листа.
VBA код: Изпратете имейл през Outlook въз основа на стойността на клетка в Excel
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D7"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
бележки:
3. Натисни Друг + Q ключовете заедно, за да затворите Microsoft Visual Basic за приложения прозорец.
От сега нататък, когато стойността, която въвеждате в клетка D7, е по-голяма от 200, имейл с определени получатели и текст ще бъде създаден автоматично в Outlook. Можете да щракнете върху Изпрати бутон, за да изпратите този имейл. Вижте екранна снимка:
бележки:
1. Кодът на VBA работи само когато използвате Outlook като своя имейл програма.
2. Ако въведените данни в клетка D7 са текстова стойност, прозорецът за имейл също ще се появи.
Изпратете лесно имейл през Outlook въз основа на полета от създаден пощенски списък в Excel:
- Изпращане на имейли полезност на Kutools за Excel помага на потребителите да изпращат имейли през Outlook въз основа на създаден пощенски списък в Excel.
Изтеглете и опитайте сега! (30-дневна безплатна пътека)
Още по темата:
- Как да изпратите имейл през Outlook, когато работната книга е запазена в Excel?
- Как да изпратите имейл, ако определена клетка е променена в Excel?
- Как да изпратите имейл, ако бутонът е щракнат в Excel?
- Как да изпратите имейл, ако срокът е спазен в Excel?
- Как да изпратите имейл напомняне или известие, ако работната книга е актуализирана в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!