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 |