Làm cách nào để chèn chữ ký Outlook khi gửi email trong Excel?

Giả sử bạn muốn gửi email trực tiếp trong Excel, làm cách nào bạn có thể thêm chữ ký Outlook mặc định trong email? Bài viết này cung cấp hai phương pháp giúp bạn thêm chữ ký Outlook khi gửi email trong Excel.

Chèn chữ ký vào email Outlook khi gửi bằng Excel VBA
Dễ dàng chèn chữ ký Outlook khi gửi email trong Excel với một công cụ tuyệt vời
Các hướng dẫn khác để gửi thư trong Excel ...

Chèn chữ ký vào email Outlook khi gửi bằng Excel VBA

Ví dụ: có một danh sách các địa chỉ email trong một trang tính, để gửi email đến tất cả các địa chỉ này trong Excel và thêm chữ ký Outlook mặc định trong email. Vui lòng áp dụng mã VBA dưới đây để đạt được nó.

1. Mở trang tính chứa danh sách địa chỉ email bạn muốn gửi email đến, sau đó nhấn Khác + F11 phím.

2. Trong phần mở đầu Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > mô-đun, và sau đó sao chép bên dưới VBA 2 vào cửa sổ Mã mô-đun.

3. Bây giờ bạn cần thay thế .Thân hình xếp hàng vào VBA 2 với mã trong VBA 1. Sau đó, di chuyển dòng .Trưng bày dưới dòng Với xMailOut.

VBA 1: Mẫu gửi email với chữ ký mặc định của Outlook trong Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: Gửi email đến các địa chỉ email được chỉ định trong các ô trong Excel

Sub SendEmailToAddressInCells()
    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
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Ảnh chụp màn hình sau có thể giúp bạn dễ dàng tìm thấy sự khác biệt sau khi thay đổi mã VBA.

4. Nhấn nút F5 phím để chạy mã. Sau đó a Kutools cho Excel hộp chọn bật lên, vui lòng chọn địa chỉ email bạn sẽ gửi email đến, sau đó nhấp vào OK.

Sau đó, các email được tạo. Bạn có thể thấy chữ ký mặc định của Outlook được thêm vào cuối nội dung email.

Lời khuyên:

• 1. Bạn có thể thay đổi nội dung email trong mã VBA 1 dựa trên nhu cầu của bạn.
• 2. Sau khi chạy mã, nếu hộp thoại lỗi bật lên cảnh báo rằng kiểu Người dùng xác định không được xác định, vui lòng đóng hộp thoại này, sau đó nhấp vào CÔNG CỤ > dự án trong Microsoft Visual Basic cho các ứng dụng cửa sổ. Trong phần mở đầu Tài liệu tham khảo - VBAProject cửa sổ, kiểm tra Thư viện đối tượng Microsoft Outlook hộp và nhấp vào OK. Và sau đó chạy lại mã.
  

Dễ dàng chèn chữ ký Outlook khi gửi email trong Excel với một công cụ tuyệt vời

Nếu bạn là một thành viên mới trong VBA, đây rất khuyến khích Gửi email tiện ích của Kutools cho Excel cho bạn. Với tính năng này, bạn có thể dễ dàng gửi email dựa trên các trường nhất định trong Excel và thêm chữ ký Outlook vào chúng. Hãy làm như sau.

Trước tiên, bạn cần tạo một danh sách gửi thư với các trường khác nhau mà bạn sẽ gửi email dựa trên.

Bạn có thể tạo danh sách gửi thư theo cách thủ công khi cần hoặc áp dụng tính năng Tạo danh sách gửi thư để nhanh chóng hoàn thành công việc.

1. nhấp chuột Kutools Plus > Tạo danh sách gửi thư.

2. bên trong Tạo danh sách gửi thư hộp thoại, chỉ định các trường bạn cần, chọn nơi xuất danh sách, sau đó bấm vào OK .

3. Bây giờ một mẫu danh sách gửi thư được tạo. Vì đây là danh sách mẫu, bạn cần thay đổi các trường thành nội dung cần thiết nhất định. (nhiều hàng được phép)

4. Sau đó, chọn toàn bộ danh sách (bao gồm tiêu đề), nhấp vào Kutools Plus > Gửi email.

5. bên trong Gửi email hộp thoại:

• 5.1) Các mục trong danh sách gửi thư đã chọn được tự động đặt vào các trường tương ứng;
• 5.2) Hoàn thành nội dung email;
• 5.3) Kiểm tra cả hai Gửi email qua Outlook và Sử dụng cài đặt chữ ký của Outlook những cái hộp;
• 5.4) Nhấp vào Gửi cái nút. Xem ảnh chụp màn hình:

Bây giờ các email đã được gửi đi. Và chữ ký Outlook mặc định được thêm vào cuối nội dung email.

Các bài liên quan:

---

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

• Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
• Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
• Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
• Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
• Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
• Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
• Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
• Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
• Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào... 

---

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!

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào...