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

Nguồn bài viết: 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 hiện nay, chúng ta cần những gì khi sử dụng các ứng dụng văn phòng? Đúng! Đó là tính linh hoạt, tốc độ và độ chính xác!

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

Hỗ trợ bạn trao đổi công việc qua email nhanh chóng ngay trên Excel. Nghe khá thú vị đúng không Được rồi, chúng ta hãy bắt tay vào làm việc…

Đọc thêm:

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

+ Bước 1: Trước tiên, bạn mở tệp Excel của mình.

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

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

+ Bước 3: Sau đó bạn Copy đoạn mã sau:

Sub SendRange ()
‘Cập nhật 20131209’
Dim xFile As String
Dim xFormat As Long
Làm mờ Wb dưới dạng sổ làm việc
Làm mờ Wb2 dưới dạng sổ làm việc
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Làm mờ OutlookApp làm đối tượng
Làm mờ OutlookMail dưới dạng đối tượng
Dim WorkRng As Range
xTitleId = “KutoolsforExcel”
Đặt WorkRng = Application.Selection
Đặt WorkRng = Application.InputBox (“Phạm vi”, xTitleId, WorkRng.Address, Loại: = 8)
Application.ScreenUpdating = Sai
Application.DisplayAlerts = False
Đặt Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Đặt Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells (1, 1)
Ws.Copy
Đặt Wb2 = Application.ActiveWorkbook
Chọn Case Wb.FileFormat
Trường hợp xlOpenXMLWorkbook:
xFile = “.xlsx”
xFormat = xlOpenXMLWorkbook
Trường hợp xlOpenXMLWorkbookMacroEnabled:
Nếu Wb2.HasVBProject Thì
xFile = “.xlsm”
xFormat = xlOpenXMLWorkbookMacroEnabled
Khác
xFile = “.xlsx”
xFormat = xlOpenXMLWorkbook
EndIf
Trường hợp Excel8:
xFile = “.xls”
xFormat = Excel8
Trường hợp xlExcel12:
xFile = “.xlsb”
xFormat = xlExcel12
Kết thúc Lựa chọn
FilePath = Môi trường $ (“tạm thời”) & “”
FileName = Wb.Name & Format (Bây giờ, “dd-mmm-yy h-mm-ss”)
Đặt OutlookApp = CreateObject (“Outlook.Application”)
Đặt OutlookMail = OutlookApp.CreateItem (0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat: = xFormat
Với OutlookMail
.To = “”
.CC = “”
.BCC = “”
.Subject = “”
.Body = “”
.Attachments.Add Wb2.FullName
.Gửi
Kết thúc với
Wb2.C Close
Kill FilePath & FileName & xFile
Đặt OutlookMail = Không có gì
Đặt OutlookApp = Không có gì
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Kết thúc Sub

+ Bước 4: Một lát sau Paste vào hộp thoại Module1 (Code) => và chỉnh sửa các thông số:

+ Tới = “Email của người nhận”
+ CC = “Email (nếu có)”
+ BCC = “Email (nếu có)”
+ Chủ đề = “Chủ đề Email”
+ Thân máy = “Nội dung của Email”

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

+ Bước 5: Sau đó nhấn OK để xác nhận khu vực 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.

Ghi chú: Để thực thi thành công Mã này, trước tiên bạn cần phải định cấu hình Outlook.

Ghi chú: Nếu bạn chưa cấu hình tài khoản Gmail trên Outlook thì có thể tham khảo bài viết Cách cấu hình và quản lý Gmail trên Microsoft Outlook chuẩn nhất.

+ Bước 6: Và đây là kết quả sau khi tôi thực hiện kiểm tra:

# 2. Cách gửi 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 mà vẫn giữ nguyên định dạng ban đầu.

Và với việc sử dụng VBA này, bạn sẽ không cần phải mở Gmail để thực hiện như trước đây.

Biểu diễ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 để gửi => sau đó mở tab Deverlop => và chọn Visual Basic. Hoặc nhấn Alt + F11 cho nhanh.

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

+ Bước 3: Và sao chép đoạn văn Code sau:

Email phụRange ()
‘Cập nhật 20131209’
Dim WorkRng As Range
Khi có lỗi Tiếp tục lại tiếp theo
xTitleId = “KutoolsforExcel”
Đặt WorkRng = Application.Selection
Đặt WorkRng = Application.InputBox (“Phạm vi”, xTitleId, WorkRng.Address, Loại: = 8)
Application.ScreenUpdating = Sai
WorkRng.Select
ActiveWorkbook.EnvelopeVosystem = True
Với ActiveSheet.MailEnvelope
.Introduction = “Vui lòng đọc email này.”
.Item.To = “skyyang@extendoffice.com”
.Item.Subject = “thông tin của kte”
.Item.Send
Kết thúc với
Application.ScreenUpdating = True
Kết thúc Sub

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

+ Giới thiệu = “Nội dung của Email”
+ Item.To = “Email của người nhận”
+ Item. = “Chủ đề Email”

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

+ Bước 5: Sau đó, bạn nhấp vào OK tại hộp thoại KutoolsforExcel để xác thực phạm vi trang tính.

+ Bước 6: Sau đó nhấn Allow đến Microsoft Outlook thực hiện gửi Email theo chỉ định.

Cuối cùng, chúng ta nhận được kết quả Email của người nhận như hình bên dưới.

# 3. Phần kết

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

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

Chúc may mắn !

CTV: Lương Trung – congthucexcel.com

Bài viết đạt: 3.7 / 5 sao – (Có 3 lượt đánh giá)

Ghi chú: Bài viết này có hữu ích cho bạn không? Đừng quên đánh giá bài viết, thích và chia sẻ nó với bạn bè và gia đình của bạn!

Những bài viết liên quan : Thủ Thuật Excel

Nguồn : congthucexcel.com

Mọi sự sao chép, trích dẫn vui lòng ghi rõ nguồn: congthucexcel.com

from congthucexcel.com https://ift.tt/3nRgL2b
via Congthucexcel.com