Làm thế nào để gửi email với nội dung email HTML trong Excel?
Nếu bạn muốn gửi email có nội dung phần thân định dạng HTML trong Excel, một phương pháp trong bài viết này có thể giúp bạn.
Gửi email với nội dung email HTML với mã VBA
Gửi email với nội dung email HTML với mã VBA
Vui lòng làm như sau để gửi email có nội dung định dạng HTML trong Excel.
1. Nhấn nút Khác + F11 đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép mã VBA bên dưới vào cửa sổ Mô-đun.
Mã VBA: Gửi email với nội dung email HTML trong Excel
Sub SendEmailformattext()
'Update by Extendoffice.com
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.Display
.To = xRgVal
.Subject = "Test"
.HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style='font-family:calibri;font-size:25'>Font size</br></p></BODY></HTML>"
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubChú ý:
3. nhấp chuột CÔNG CỤ > dự án, kiểm tra Thư viện đối tượng Microsoft Outlook hộp trong Tài liệu tham khảo - VAProject hộp thoại, sau đó bấm vào OK cái nút. Xem ảnh chụp màn hình:
4. Nhấn nút F5 phím để chạy mã. Trong cửa sổ bật lên Kutools cho Excel hộp thoại, chọn địa chỉ email của người nhận và sau đó nhấp vào OK .
Sau đó, email với các trường được chỉ định và nội dung HTML được tạo. Vui lòng nhấp vào Gửi để gửi nó.
Dễ dàng gửi email qua Outlook dựa trên danh sách gửi thư đã tạo:
Sản phẩm Gửi email tiện ích của Kutools cho Excel giúp người dùng gửi email thông qua Outlook dựa trên danh sách gửi thư đã tạo trong Excel như hình minh họa bên dưới.
Tải xuống và dùng thử ngay bây giờ! (đường mòn miễn phí 30 ngày)
Các bài liên quan:
- Làm cách nào để tự động gửi email dựa trên giá trị ô trong Excel?
- Làm cách nào để chèn chữ ký vào email Outlook khi gửi bằng vba trong Excel?
- Làm thế nào để gửi email với định dạng văn bản đậm / kích thước / màu / gạch dưới được chỉ định trong Excel?
- Làm thế nào để gửi email mà không cần Outlook trong Excel?
- Làm cách nào để gửi một biểu đồ cụ thể trong email bằng vba trong Excel?
- Làm cách nào để gửi email vào thời điểm cụ thể trong ngày trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!