Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Sử dụng phối thư , chúng tôi có thể tạo một bộ sưu tập các tài liệu mà mỗi người nhận nhận được riêng lẻ. Nếu bạn đang tìm kiếm một số thủ thuật đặc biệt để phối thư từ Excel sang Outlook với tệp đính kèm, bạn đã đến đúng nơi. Có nhiều cách để phối thư từ Excel sang Outlook với tệp đính kèm. Bài viết này sẽ thảo luận về hai ví dụ phù hợp để phối thư từ Excel sang Outlook với tệp đính kèm. Hãy làm theo hướng dẫn đầy đủ để tìm hiểu tất cả những điều này.

2 Ví dụ Thích hợp để Kết hợp Thư từ Excel sang Outlook với Tệp đính kèm

Chúng tôi sẽ sử dụng hai cách hiệu quả và phức tạp để phối thư từ Excel sang Outlook với tệp đính kèm. Phần này cung cấp thông tin chi tiết về hai cách. Bạn có thể sử dụng một trong hai cho mục đích của mình, chúng có nhiều tính linh hoạt khi tùy chỉnh. Bạn nên học và áp dụng tất cả những điều này, vì chúng cải thiện khả năng tư duy và kiến thức Excel của bạn. Chúng tôi sử dụng Microsoft Office 365 phiên bản ở đây, nhưng bạn có thể sử dụng bất kỳ phiên bản nào khác tùy theo sở thích của mình.

1. Kết hợp thư từ Excel sang Outlook với một tệp đính kèm

Ở đây, chúng tôi sẽ trình bày cách phối thư từ Excel sang Outlook với một tệp đính kèm duy nhất. Trước tiên, hãy để chúng tôi giới thiệu với bạn về tập dữ liệu Excel của chúng tôi để bạn có thể hiểu những gì chúng tôi đang cố gắng đạt được với bài viết này. Chúng tôi có một tập dữ liệu hiển thị tên của một người, id email và tệp yêu cầu của người đó.

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Bạn có thể sử dụng Visual Basic For Applications (VBA) để phối thư từ Excel sang Outlook bằng một tệp đính kèm. Để thực hiện việc này, bạn cần tab Nhà phát triển để hiển thị trên dải băng của bạn. Sau đó, bạn phải làm theo các bước sau để phối thư từ Excel sang Outlook.

📌 Các bước:

Đầu tiên, từ ruy-băng, hãy chuyển đến Nhà phát triển tab.
Sau đó, chọn Visual Basic từ Mã nhóm.
Hoặc, bạn phải nhấn Alt + F11 để mở trình chỉnh sửa VBA.

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Trong cửa sổ VBA, đi tới Chèn và chọn Mô-đun .

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Tiếp theo, bạn phải nhập mã sau đây

Sub Single_attachment()
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
mailto = mailto & Cells(2, 2) & ";"
source = "F:\SOFTEKO\61-0055\New folder\" & Cells(2, 3)
Email.attachments.Add source
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."
Email.Display
End Sub

Sau đó, đóng cửa sổ Visual Basic và nhấn Alt + F8.
Khi Macro hộp thoại mở ra, chọn Single_attachment trong Tên macro . Nhấp vào Chạy .

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Do đó, một cửa sổ Outlook sẽ xuất hiện và bạn sẽ thấy tệp đính kèm mong muốn

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

🔎 Giải thích mã VBA

Sub Single_attachment()

Trước hết, hãy cung cấp tên cho thủ tục con của macro.

Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String

Tiếp theo, khai báo biến cần thiết cho macro.

Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)

Ở đây, từ khóa set được sử dụng để tạo các đối tượng mới có tên là appOutlook và Email.

mailto = mailto & Cells(2, 2) & ";"

Biến này sẽ chứa người gửi thư.

source = "F:\SOFTEKO\61-0055\New folder\" & Cells(2, 3)

Biến này sẽ chứa id email của người đó từ một thư mục được chỉ định.

ThisWorkbook.Save

Việc lưu chung này sẽ lưu sổ làm việc.

source = ThisWorkbook.FullName

Biến này sẽ chứa tên sổ làm việc này.

Email.attachments.Add source

Phương thức Thêm này sẽ thêm một nguồn vào một đối tượng bộ sưu tập.

Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."

Biến này sẽ trả về văn bản “Trang tính quan trọng” làm chủ đề email và văn bản “Xin chào mọi người, Vui lòng xem qua trang tính, liên quan đến nội dung Email.

Email.Display

Phương thức Hiển thị này sẽ hiển thị Email.

End Sub

Cuối cùng, kết thúc thủ tục con của macro.

Lưu ý:

Bạn cần lưu tệp Excel và tệp tài liệu trong một thư mục. Nếu không, phương pháp này sẽ không hoạt động.

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Đọc thêm: Kết hợp thư trong Excel mà không cần Word (2 cách thích hợp)

2. Phối thư từ Excel sang Outlook với nhiều tệp đính kèm

Ở đây, chúng tôi sẽ trình bày cách phối thư từ Excel sang Outlook với nhiều tệp đính kèm. Trước tiên, hãy để chúng tôi giới thiệu với bạn về tập dữ liệu Excel của chúng tôi để bạn có thể hiểu những gì chúng tôi đang cố gắng đạt được với bài viết này. Chúng tôi có tập dữ liệu hiển thị tên, id email và tệp yêu cầu của một số người.

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Bạn có thể sử dụng Visual Basic For Applications (VBA) để phối thư từ Excel sang Outlook với nhiều tệp đính kèm. Để thực hiện việc này, bạn cần tab Nhà phát triển để hiển thị trên dải băng của bạn. Sau đó, bạn phải làm theo các bước sau để phối thư từ Excel

📌 Các bước:

Đầu tiên, từ ruy-băng, hãy chuyển đến Nhà phát triển tab.
Sau đó, chọn Trực quan Cơ bản từ Mã nhóm.
Hoặc, bạn phải nhấn Alt + F11 để mở trình chỉnh sửa VBA.

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Trong cửa sổ VBA, đi tới Chèn và chọn Mô-đun .

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Tiếp theo, bạn phải nhập mã sau đây

Sub attachments()
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
For j = 2 To 5
    source = "F:\SOFTEKO\61-0055\New folder\" & Cells(j, 3)
    Email.attachments.Add source
Next
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."
Email.Display
End Sub

Sau đó, đóng cửa sổ Visual Basic và nhấn Alt + F8.
Khi Macro hộp thoại mở ra, chọn tệp đính kèm trong Tên macro . Nhấp vào Chạy .

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Do đó, một cửa sổ Outlook sẽ xuất hiện và bạn sẽ thấy phần đính kèm tệp mong muốn

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

🔎 Giải thích mã VBA

Sub attachments()

Trước hết, hãy cung cấp tên cho thủ tục con của macro.

Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Dim i, j As Integer

Tiếp theo, khai báo biến cần thiết cho macro.

Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)

Ở đây, từ khóa set được sử dụng để tạo các đối tượng mới có tên là appOutlook và Email.

For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
For j = 2 To 5
    source = "F:\SOFTEKO\61-0055\New folder\" & Cells(j, 3)

Sau đó, bắt đầu For Loop. mailto biến sẽ chứa người gửi thư. Biến nguồn sẽ chứa id email của người đó từ một thư mục được chỉ định.

Next

Sau đó, bạn phải thực hiện từng lần lặp lại For Loop.

ThisWorkbook.Save

Lệnh lưu này sẽ lưu sổ làm việc.

source = ThisWorkbook.FullName

Biến này sẽ chứa tên sổ làm việc này.

Email.attachments.Add source

Phương thức Thêm này sẽ thêm một nguồn vào một đối tượng bộ sưu tập.

Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."

Email.Display

Phương thức Hiển thị này sẽ hiển thị Email.

End Sub

Cuối cùng, kết thúc thủ tục con của macro.

Lưu ý:

Bạn cần lưu tệp Excel và tệp tài liệu trong một thư mục. Nếu không, phương pháp này sẽ không hoạt động.

Cách kết hợp thư từ Excel sang Outlook với tệp đính kèm (2 Ví dụ)

Đọc thêm: Macro để điền tài liệu kết hợp thư từ Excel

Kết luận

Đó là phần cuối của phiên hôm nay. Tôi thực sự tin rằng từ bây giờ, bạn có thể phối thư từ Excel sang Outlook với các tệp đính kèm. Nếu bạn có bất kỳ thắc mắc hoặc đề xuất nào, vui lòng chia sẻ chúng trong phần bình luận bên dưới.

Đừng quên kiểm tra trang web Exceldemy.com của chúng tôi cho các vấn đề và giải pháp liên quan đến Excel khác nhau. Tiếp tục học các phương pháp mới và tiếp tục phát triển!

Các bài viết liên quan

Cách hợp nhất tệp Excel vào nhãn gửi thư (Với các bước dễ dàng)
Cách Kết hợp Thư từ Excel sang Word (2 Cách Dễ dàng)
Kết hợp Thư từ Excel sang Word Envelopes (2 Phương pháp Dễ dàng)
Cách Thay đổi Định dạng Ngày trong Kết hợp Thư trong Excel (với các Bước Nhanh)