Cách gửi Email trực tiếp trên file Excel (có thể đính kèm file)

Trong thời đại công nghệ 4.0 như hiện nay, chúng ta cần gì khi sử dụng các ứng dụng văn phòng? Vâng!  đó chính là sự linh hoạt, nhanh chóng và chính xác !

Trong bài hướng dẫn về Excel ngày hôm nay, mình sẽ chia sẻ với các bạn thủ thuật gửi Email đính kèm, hay một đoạn nội dung bảng tính…  ngay trên ứng dụng Excel, mà không cần phải mở Gmail hoặc Outlook để thực hiện việc sao chép, hay upload tệp.

Hỗ trợ các bạn trao đổi công việc qua mail nhanh chóng ngay trên Excel. Nghe có vẻ khá thú vị phải không nào 😀 Okay, vậy thì vào việc luôn thôi…

Đọc thêm:

• Tạo link liên kết Hyperlink trên Excel bằng công thức hàm
• Cách tô màu giá trị MIN, MAX trên bảng tính Excel, đơn giản!
• Cách sử dụng hàm chấm công, trừ ngày nghỉ thứ bảy, chủ nhật..

#1. Cách gửi Email trực tiếp trên Excel

+ Bước 1: Đầu tiên bạn mở file Excel của bạn lên.

Tại đây bạn bôi đen, tạo vùng chọn cho bảng tính => Sau đó mở tab Developer => rồi chọn Visual Basic. Hoặc bạn có thể sử dụng nhanh tổ hợp phím Alt + F11 để mở trình VBA.

+ Bước 2: Hộp thoại Micoroft Visual Basic for Applications hiện lên => tại đây bạn mở tab menu Insert => và chọn Module.

+ Bước 3: Rồi bạn Copy đoạn mã Code sau:

Sub SendRange()
‘Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = “KutoolsforExcel”
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox(“Range”, xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = “.xlsx”
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = “.xlsm”
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = “.xlsx”
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = “.xls”
xFormat = Excel8
Case xlExcel12:
xFile = “.xlsb”
xFormat = xlExcel12
End Select
FilePath = Environ$(“temp”) & “\”
FileName = Wb.Name & Format(Now, “dd-mmm-yy h-mm-ss”)
Set OutlookApp = CreateObject(“Outlook.Application”)
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = “”
.CC = “”
.BCC = “”
.Subject = “”
.Body = “”
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

+ Bước 4: Sau đó Paste vào hộp thoại Module1 (Code) => và thực hiện chỉnh sửa các thông số:

+ To = “Email người nhận”
+ CC = “Email (nếu có)”
+ BCC = “Email (nếu có)”
+ Subject = “Chủ đề Email”
+ Body = “Nội dung Email”

=> Và nhấn Run để chạy code.

+ Bước 5: Sau đó nhấn OK để xác nhận vùng nội dung đính kèm tại hộp thoại KutoolsforExcel.

=> Và nhấn Allow tại hộp thoại Microsoft Outlook để cho phép.

Lưu ý: Để thực hiện thành công mã Code này bạn cần cấu hình Outlook trước nhé.

Note: Nếu bạn chưa cấu hình tài khoản Gmail vào Outlook thì có thể tham khảo bài viết Hướng dẫn cấu hình, quản lý Gmail trên Microsoft Outlook chuẩn nhất.

+ Bước 6: Và đây là kết quả sau khi mình thực hiện Test thử:

#2. Cách gửi một đoạn bảng tính qua Email ngay trên Excel

Trong một bài viết gần đây mình đã hướng dẫn các bạn cách gửi bảng tính trên Gmail vẫn giữ được định dạng gốc rồi.

Và với cách sử dụng VBA này, các bạn sẽ không cần mở Gmail để thực hiện như trước nữa nhé.

Thực hiện:

+ Bước 1: Để làm được điều đó trước tiên bạn cần tạo/ bôi đen vùng chọn bảng tính Excel cần gửi => sau đó mở tab Deverlop => và chọn Visual Basic. Hoặc nhấn Alt + F11 cho nhanh.

+ Bước 2: Sau đó chọn Insert => chọn Module như hình bên dưới.

+ Bước 3: Và copy đoạn Code sau:

Sub EmailRange()
‘Update 20131209
Dim WorkRng As Range
On Error Resume Next
xTitleId = “KutoolsforExcel”
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox(“Range”, xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = “Please read this email.”
.Item.To = “[email protected]”
.Item.Subject = “information of kte”
.Item.Send
End With
Application.ScreenUpdating = True
End Sub

=> Rồi Paste vào hộp thoại Module1 (Code) => sau đó chỉnh sửa các thông số:

+ Introduction = “Nội dung Email”
+ Item.To = “Email người nhận”
+ Item.Subject = “Chủ đề Email”

+ Bước 4: Và nhấn Run để chạy code.

+ Bước 5: Tiếp đó bạn click OK tại hộp thoại KutoolsforExcel để xác nhận phạm vi bảng tính.

+ Bước 6: Rồi nhấn Allow để Microsoft Outlook thực thi gửi Email theo chỉ định.

Cuối cùng ta được kết quả Email người nhận như hình dưới.

#3. Lời Kết

Okay vậy là xong, mình vừa hướng dẫn rất chi tiết với các bạn cách sử dụng Code VBA trên Excel để gửi tệp đính kèm, hoặc gửi một phần nội dụng của bảng tính Excel qua Email mà không cần mở Gmail, hay Outlook rồi đấy.

Và đến đây thì bài hướng dẫn của mình cũng xin được tạm dừng. Hi vọng thủ thuật này sẽ hữu ích trong công việc của các bạn.

Chúc các bạn thành công !

CTV: Lương Trung – Blogchiasekienthuc.com