Gửi Email từ Excel

Mục lục

Đây là một ví dụ đơn giản về cách gửi email từ Excel.

Bấm vào đây để xem một ví dụ phức tạp hơn: Gửi trang tính qua email dưới dạng một sổ làm việc riêng biệt. Ví dụ này cũng đề cập đến bảo vệ bằng mật khẩu và các vấn đề phổ biến khác.

12345678910111213141516171819202122232425262728 Sub Mail_Workbook ()Application.ScreenUpdating = SaiLàm mờ ứng dụng dưới dạng đối tượngDim OutMail As Object'Tạo các biến ban đầuĐặt OutApp = CreateObject ("Outlook.Application")Đặt OutMail = OutApp.CreateItem (0)'E-mailKhi có lỗi Tiếp tục tiếp theoVới OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Chủ đề".Body = "Nội dung"'.Attachments.Add (FilePath)' Tùy chọn nếu bạn có tệp đính kèm.Trưng bày'.Gửi' Tùy chọn để tự động gửi email.Kết thúc vớiLỗi GoTo 0Set OutMail = Không có gìĐặt OutApp = Không có gìApplication.ScreenUpdating = TrueKết thúc Sub
wave wave wave wave wave