VBA Gửi email từ Excel | Từng bước mã để gửi email

Mã VBA để gửi email từ Excel

Trong VBA để Gửi Email từ Excel, chúng ta có thể tự động hóa tính năng gửi thư của mình để có thể tự động gửi email cho nhiều người dùng cùng một lúc, để làm như vậy chúng ta cần nhớ rằng nó được thực hiện bằng cách xem một sản phẩm khác của outlook, vì vậy chúng ta cần bật outlook kịch bản trong VBA để làm như vậy và sau khi hoàn tất, chúng tôi sử dụng phương thức .Application để sử dụng các tính năng của outlook.

Tính linh hoạt của VBA thật tuyệt vời. Lý do tại sao các lập trình viên VBA yêu thích excel bởi vì sử dụng VBA, chúng ta không chỉ có thể làm việc trong excel mà chúng ta còn có thể truy cập các công cụ khác của Microsoft. Chúng tôi có thể truy cập PowerPoint, Word và Outlook bằng cách sử dụng VBA. Điều mà tôi ấn tượng là khi tôi nghe nói về “gửi email từ chính excel”. Vâng, đúng là chúng tôi có thể gửi email từ excel. Trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách gửi email từ excel với tệp đính kèm bằng cách sử dụng VBA Coding.

Đặt Tham chiếu cho Thư viện Microsoft Office

Chúng tôi cần gửi email từ Outlook. Vì Outlook là một đối tượng bên ngoài, điều đầu tiên chúng ta cần làm là đặt tham chiếu đối tượng thành “ Thư viện đối tượng Microsoft Outlook 16.0 ”.

  • Trong VBA, đi tới Công cụ> Tham khảo

  • Bây giờ chúng ta sẽ thấy thư viện tham chiếu đối tượng. Trong cửa sổ này, chúng ta cần đặt tham chiếu thành “Thư viện đối tượng Microsoft Outlook 16.0”

  • Sau khi thiết lập tham chiếu đối tượng, nhấp vào Ok.

Bây giờ chúng ta có thể truy cập đối tượng Outlook trong mã hóa VBA.

13 bước đơn giản để gửi email từ Excel

Viết mã để gửi email có tệp đính kèm từ excel là khá phức tạp, nhưng đáng để dành thời gian.

Bạn có thể tải xuống Mẫu VBA Gửi Email Excel này tại đây - Mẫu Excel Gửi Email VBA

Làm theo các bước dưới đây để viết macro excel email đầu tiên của bạn.

Bước 1

Bắt đầu quy trình con trong VBA.

Mã:

 Sub SendEmail_Example1 () End Sub 

Bước 2

Khai báo biến Outlook.Application

Mã:

 Dim EmailApp As Outlook.Application 'Để tham khảo ứng dụng outlook 

Bước 3

Biến trên là một biến đối tượng. Chúng ta cần tạo một thể hiện của một đối tượng mới một cách riêng biệt. Để tạo một phiên bản mới của đối tượng bên ngoài, bên dưới là đoạn mã.

Mã:

 Đặt EmailApp = New Outlook.Application 'Để khởi chạy ứng dụng triển vọng 

Bước 4

Bây giờ để viết email, chúng tôi khai báo một biến nữa là “Outlook.MailItem”.

Mã:

 Dim EmailItem As Outlook.MailItem 'Để tham khảo email triển vọng mới 

Bước # 5

Để khởi chạy một email mới, chúng tôi cần đặt tham chiếu đến biến trước đó của chúng tôi là CreateItem.

Mã:

 Đặt EmailItem = EmailApp.CreateItem (olMailItem) 'Để khởi chạy email triển vọng mới 

Được rồi, bây giờ biến “EmailApp” sẽ khởi chạy triển vọng và trong biến “EmailItem”, chúng ta có thể bắt đầu viết email.

Bước # 6

Bây giờ chúng ta cần nhận thức được những mục chúng ta có trong khi viết email là gì. Điều đầu tiên là chúng ta cần quyết định xem chúng ta sẽ gửi email cho ai. Vì vậy, đối với điều này, chúng ta cần truy cập thuộc tính "TO".

Bước # 7

Nhập Id email của người nhận trong dấu ngoặc kép.

Mã:

EmailItem.To = "[email protected]"

Bước # 8

Sau khi gửi địa chỉ cho người nhận chính, nếu bạn muốn CC cho bất kỳ ai trong email, chúng tôi có thể sử dụng thuộc tính “CC”.

Mã:

EmailItem.CC = "[email protected]"

Bước # 9

Sau CC, chúng tôi cũng có thể đặt id email BCC.

Mã:

EmailItem.BCC = "[email protected]"

Bước # 10

Bây giờ chúng ta cần bao gồm Chủ đề của email chúng ta đang gửi.

Mã:

EmailItem.Subject = "Kiểm tra Email từ Excel VBA"

Bước # 11

Bây giờ chúng ta cần viết phần nội dung của email bằng cách sử dụng kiểu HTML Body.

Mã:

EmailItem.HTMLBody = "Xin chào" & vbNewLine & vbNewLine & "Đây là email đầu tiên của tôi từ Excel" & _ vbNewLine & vbNewLine & _ "Trân trọng," & vbNewLine & _ "VBA Coder" 'VbNewLine là Hằng số VBA để chèn một dòng mới 

Bước # 12

Nếu chúng ta muốn thêm tệp đính kèm làm sổ làm việc hiện tại mà chúng ta đang làm việc thì chúng ta cần sử dụng thuộc tính tệp đính kèm. Đầu tiên, khai báo một nguồn biến dưới dạng một chuỗi.

Mã:

 Nguồn mờ dưới dạng chuỗi 

Sau đó, trong biến này viết ThisWorkbook.FullName sau phần nội dung Email.

Mã:

Nguồn = ThisWorkbook.FullName

Trong Mã VBA này, ThisWorkbook được sử dụng cho sổ làm việc hiện tại và .FullName được sử dụng để lấy tên đầy đủ của trang tính.

Sau đó viết đoạn mã sau để đính kèm tệp.

Mã:

EmailItem.Attachments.Add Nguồn

Bước # 13

Bây giờ cuối cùng chúng ta cần gửi email đến ID email được đề cập. Điều này có thể được thực hiện bằng cách sử dụng phương thức "Gửi".

Mã:

EmailItem.Send

Ok, chúng ta đã hoàn thành phần viết mã.

Mã:

 Sub SendEmail_Example1 () Dim EmailApp As Outlook.Application Dim Source As String Set EmailApp = New Outlook.Application Dim EmailItem As Outlook.MailItem Set EmailItem = EmailApp.CreateItem (olMailItem) EmailItem.To = "[email protected]" EmailItem.CC = "[email protected]" EmailItem.BCC = "[email protected]" EmailItem.Subject = "Kiểm tra Email từ Excel VBA" EmailItem.HTMLBody = "Xin chào," & vbNewLine & vbNewLine & "Đây là email đầu tiên của tôi từ Excel "& _ vbNewLine & vbNewLine & _" Trân trọng, "& vbNewLine & _" VBA Coder "Source = ThisWorkbook.FullName EmailItem.Attachments.Add Source EmailItem.Send End Sub 

Chạy mã trên và nó sẽ gửi email có nội dung email được đề cập với sổ làm việc hiện tại dưới dạng tệp đính kèm.


$config[zx-auto] not found$config[zx-overlay] not found