Как да изпратите имейл, ако бутонът е щракнат в Excel?
Да предположим, че трябва да изпратите имейл през Outlook, като щракнете върху бутон в работния лист на Excel, как можете да го направите? Тази статия ще представи метод на VBA за постигането му в детайли.
Изпращане на имейл, ако се щракне върху бутона с VBA код
Изпращане на имейл, ако се щракне върху бутона с VBA код
Моля, направете следното, за да изпратите имейл през Outlook, ако бъде щракнат команден бутон в работната книга на Excel.
1. Вмъкнете команден бутон във вашия работен лист, като щракнете Софтуерен Инженер > Поставете > Команден бутон (ActiveX Control). Вижте екранна снимка:
2. Щракнете с десния бутон върху вмъкнатия команден бутон, след което щракнете Преглед на кода от менюто с десен бутон, както е показано на екранната снимка по-долу.
3. В откриването Microsoft Visual Basic за приложения прозорец, моля, заменете оригиналния код в прозореца на кода със следния VBA скрипт.
VBA код: Изпращане на имейл, ако се щракне върху бутона в Excel
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
бележки:
1). Моля, променете тялото на имейла според нуждите си в xMailBody ред в кода.
2). Сменете Имейл Адрес с имейл адреса на получателя в ред .To = "Имейл адрес".
3). Посочете получателите на Cc и Bcc, както трябва .CC = "" намлява .Bcc = "" секции.
4). Променете темата на имейла в ред .Subject = "Тест имейл, изпратен чрез щракване върху бутон".
4. Натисни Друг + Q клавиши едновременно, за да затворите Microsoft Visual Basic за приложения прозорец.
5. Изключете режима на проектиране, като щракнете Софтуерен Инженер > Режим на проектиране. Вижте екранна снимка:
Отсега нататък всеки път, когато щракнете върху командния бутон, автоматично ще се създава имейл с определени получатели, тема и текст. Моля, изпратете имейла, като щракнете върху Изпрати бутон.
Забележка: VBA кодът работи само когато използвате Outlook като своя имейл програма.
Изпратете лесно имейл през Outlook въз основа на полетата на създадения пощенски списък в Excel:
- Изпращане на имейли полезност на Kutools за Excel помага за изпращане на имейл през Outlook въз основа на полетата на създаден пощенски списък в Excel.
Изтеглете и опитайте сега! (30-дневна безплатна пътека)
Още по темата:
- Как автоматично да изпращате имейл въз основа на стойността на клетката в Excel?
- Как да изпратите имейл през Outlook, когато работната книга е запазена в Excel?
- Как да изпратите имейл, ако определена клетка е променена в Excel?
- Как да изпратите имейл, ако срокът е спазен в Excel?
- Как да изпратите имейл напомняне или известие, ако работната книга е актуализирана в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!