Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để chỉ gửi trang tính qua Outlook từ Excel?

Nếu bạn muốn gửi email một trang tính từ sổ làm việc trong Excel qua Outlook, bạn có thể gửi trang tính dưới dạng tệp đính kèm, dưới dạng nội dung cơ thể hoặc dưới dạng tệp PDF. Nhưng có cách nào nhanh hơn để bạn giải quyết vấn đề này trong Excel không?

Gửi một bảng tính dưới dạng nội dung từ Excel với lệnh Gửi tới Người nhận Thư

Gửi một bảng tính dưới dạng tệp đính kèm từ Excel với mã VBA

Gửi một bảng tính dưới dạng tệp PDF từ Excel với mã VBA


mũi tên màu xanh bong bóng bên phải Gửi một bảng tính dưới dạng nội dung từ Excel với lệnh Gửi tới Người nhận Thư

Excel hỗ trợ chúng tôi gửi trang tính đang hoạt động qua email dưới dạng nội dung nội dung bằng cách sử dụng lệnh Gửi tới Người nhận Thư. Bạn có thể làm như sau:

Nếu bạn sử dụng Excel 2007, 2010 hoặc 2013, bạn cần thêm Gửi đến Người nhận Thư lệnh cho Thanh công cụ truy cập nhanh đầu tiên.

1. Nhấp vào biểu tượng của Tùy chỉnh thanh công cụ truy cập nhanh, và lựa chọn Các lệnh khác, xem ảnh chụp màn hình:

doc-email-sheet1

2. Và trong Tùy chọn Excel hộp thoại, chọn Các lệnh không có trong ruy-băng trong Chọn lệnh từ danh sách thả xuống, sau đó chọn Gửi đến Người nhận Thư và nhấp vào Thêm >> để thêm lệnh này, ở lần nhấp cuối cùng OK để lưu cài đặt này. Xem ảnh chụp màn hình:

doc-email-sheet2

3. Mô hình Gửi đến Người nhận Thư lệnh đã được chèn vào Thanh công cụ truy cập nhanh, xem ảnh chụp màn hình:

doc-email-sheet3

4. Sau đó bấm vào đây Gửi đến Người nhận Thư nút biểu tượng và hộp nhắc nhở bật ra, trong E-mail hộp nhắc nhở, kiểm tra Gửi trang tính hiện tại dưới dạng nội dung thư, Và nhấp vào OK. Xem ảnh chụp màn hình:

doc-email-sheet4

5. Và một hộp soạn thảo email được hiển thị phía trên dữ liệu trang tính, bạn có thể nhập người nhận, chủ đề và phần giới thiệu của mình vào hộp văn bản tương ứng. Xem ảnh chụp màn hình:

doc-email-sheet5

6. Sau đó nhấn vào Gửi Shee nàyt để gửi trang tính hoạt động này dưới dạng nội dung thư cho người cụ thể của bạn.


mũi tên màu xanh bong bóng bên phải Gửi một bảng tính dưới dạng tệp đính kèm từ Excel với mã VBA

Nếu bạn muốn gửi trang tính đang hoạt động qua email dưới dạng tệp đính kèm, thì mã VBA sau có thể giúp bạn.

1. Kích hoạt trang tính của bạn mà bạn muốn gửi.

2. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: gửi trang tính hiện tại dưới dạng tệp đính kèm từ Excel

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.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 = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

Chú thích: Trong đoạn mã trên, bạn có thể thay đổi các thông tin sau theo nhu cầu của riêng bạn.

  • .To = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Subject = "kte tính năng"
  • .Body = "Vui lòng kiểm tra và đọc tài liệu này."

4. Sau đó nhấn vào F5 để chạy mã này và một hộp nhắc sẽ bật ra, hãy nhấp vào Cho phép khi thanh tiến trình kết thúc, và sau đó trang tính hiện tại đã được gửi đến người nhận của bạn dưới dạng tệp đính kèm.

doc-email-sheet6


mũi tên màu xanh bong bóng bên phải Gửi một bảng tính dưới dạng tệp PDF từ Excel với mã VBA

Đôi khi, bạn cần gửi báo cáo trang tính của mình cho người khác nhưng không muốn người khác sửa đổi. Trong trường hợp này, bạn có thể gửi trang tính dưới dạng tệp PDF từ Excel.

1. Kích hoạt trang tính của bạn mà bạn muốn gửi.

2. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: gửi trang tính hiện tại dưới dạng tệp PDF từ Excel

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

Lưu ý: Trong mã trên, bạn có thể thay đổi các thông tin sau theo nhu cầu của bạn.

  • .To = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Subject = "kte tính năng"
  • .Body = "Vui lòng kiểm tra và đọc tài liệu này."

4. Sau đó nhấn F5 và một hộp nhắc sẽ bật ra, hãy nhấp vào Cho phép sau khi thanh tiến trình kết thúc, thì trang tính đang hoạt động đã được gửi đến người cụ thể dưới dạng tệp PDF.

doc-email-sheet6

Ghi chú:

1. Các phương pháp này chỉ khả dụng khi bạn sử dụng Outlook làm chương trình thư của mình.

2. Sau khi gửi trang tính hiện tại, bạn có thể vào Outlook của mình để đảm bảo rằng email đã được gửi thành công.


Tạo danh sách gửi thư sau đó gửi email

Mô hình Kutools cho Excel's Tạo danh sách gửi thư và Gửi Email tiện ích có thể nhanh chóng tạo danh sách gửi thư trong một trang tính, sau đó gửi cùng chủ đề, cùng nội dung và cùng tệp đính kèm đến nhiều địa chỉ email.
doc danh sách gửi thư 1
mũi tên doc xuống
doc danh sách gửi thư 2

Các bài liên quan:

Làm cách nào để gửi sổ làm việc hiện tại qua Outlook từ Excel?

Làm thế nào để gửi / gửi email phạm vi ô thông qua outlook từ Excel?


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (33)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để bạn thêm nhiều người nhận trong ví dụ thứ hai bằng mã VBA?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
điều này hoạt động, nhưng làm thế nào chúng tôi có thể tự động thêm vào trong cc người gửi?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Khi tôi sử dụng mã VBA để gửi dưới dạng pdf, email sẽ gửi tốt, tuy nhiên không có tệp đính kèm. Tôi đang làm gì sai? Cảm ơn, Chanda
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn đã nhận được một anser cho điều này? Tôi cũng gặp khó khăn tương tự.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi chỉ muốn gửi các ô đã chọn thông qua một nút lệnh trong excel tới biên nhận thông qua outlook.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã đính kèm tính năng gửi tới người nhận thư, nhưng không được kích hoạt khi tôi nhấp vào để gửi excel. Tôi đang làm gì sai?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang cố gắng Gửi Nhiều Phạm vi Tên trong các sổ làm việc nhất định dưới dạng PDF qua Outlook. Tự động mở và đóng nhiều sổ làm việc. Tôi không chắc chắn về cách sửa đổi mã đã nêu bên dưới, mã này hoạt động tốt khi gửi một trang tính với Tất cả các phiên bản mới trên Máy tính xách tay. Tôi đã gửi nhiều báo cáo mỗi đêm trên mặt bàn Windows 7 Excel và Outlook 10 Adobe Acrobat Pro 10 và cố gắng cấu hình lại để làm điều tương tự trên máy tính xách tay có phiên bản nâng cấp của windows 8.1 Office 15 và adobe acrobat Xl. Mã đề xuất của bạn để gửi bảng tính con SendWorkSheetToPDF () 'Cập nhật 20131209 Dim Wb As Workbook Dim FileName As String Dim OutlookApp As Object Dim OutlookMail As Object On Error Resume Next Set Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev ( FileName, ".") Nếu xIndex> 1 Thì FileName = VBA.Left (FileName, xIndex - 1) FileName = FileName & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Loại: = xlTypePDF, FileName: = FileName Đặt OutlookApp = CreateObject ("Outlook.Application") Đặt OutlookMail = OutlookApp.CreateItem (0) Với OutlookMail .To = "jbristow1@gmail.com" .CC = "" .BCC = "" .Subject = "Outlook Code" .Body = "Vui lòng kiểm tra và đọc tài liệu này." .Attachments.Add FileName .Send End With Kill FileName Đặt OutlookMail = Không có gì Đặt OutlookApp = Không có gì Kết thúc Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Jim, Bạn cần thêm; đằng sau địa chỉ email và thêm một địa chỉ khác, hãy xem ví dụ bên dưới: .To = "jbristow1@gmail.com; someone@gmail.com; onemorewoman@gmail.com"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đang sử dụng mã này nhưng tôi gặp bất kỳ sự cố nào khi gửi. Đó không phải là một vấn đề lớn nhưng tôi không thích nó :-) Trước tiên, tôi tự động lưu tệp vào một vị trí nhất định thông qua VBA trước khi gửi tệp qua thư. Tệp đã có tên kết thúc bằng .xlsx Khi gửi tệp qua email, tệp đính kèm đọc .xlsx.xlsx, vì vậy nó thêm .xslx vào tệp. Có ai biết liệu tôi có thể bỏ qua việc lưu trước khi gửi dưới dạng tệp đính kèm không? Tôi đã lưu nó trước khi gửi ... Cảm ơn,
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang sử dụng ví dụ thứ hai ở trên để gửi một trang tính ra khỏi sổ làm việc, nhưng nó đang gửi toàn bộ sổ làm việc. Tôi đã sao chép ví dụ trên và phần duy nhất tôi thay đổi là địa chỉ email. Tôi không chắc chắn những gì là sai.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang sử dụng mã ở trên để gửi một trang tính dưới dạng tệp đính kèm excel, vấn đề tôi đang gặp phải là nó đang gửi toàn bộ sổ làm việc, không chỉ một trang tính duy nhất. Tôi chỉ thay đổi "Tới", "Chủ đề" và "Nội dung" cho email. Tôi không chắc chắn điều gì đã xảy ra. Xin hãy giúp đỡ! :buồn:
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Tôi đang sử dụng đoạn mã trên để gửi một trang tính dưới dạng tệp đính kèm excel, vấn đề tôi đang gặp phải là nó đang gửi toàn bộ sổ làm việc, không chỉ một trang tính duy nhất. Tôi chỉ thay đổi "Tới", "Chủ đề" và "Nội dung" cho email. Tôi không chắc chắn điều gì đã xảy ra. Xin hãy giúp đỡ! :buồn:Bởi Janet[/ quote] Xin chào, vui lòng cho tôi biết thông tin phiên bản của hệ thống máy tính và văn phòng của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đang sử dụng Office 2010 và Windows 7. Cảm ơn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Xin chào, tôi đang sử dụng Office 2010 và Windows 7. Xin cảm ơn!Bởi Janet[/ quote] Xin chào, VBA này OK với Office 2010 trong Window 7. Vui lòng đảm bảo rằng bạn đã mở Outlook trước khi chạy VBA này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang cố gắng sử dụng mã này để gửi một bảng tính bằng cách sử dụng tệp mẫu * .ost do cá nhân tạo ra nằm trên ổ đĩa c: \. Dường như không thể tìm ra cách điều chỉnh đoạn mã trên cho điều đó. Bất kỳ gợi ý?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Gửi một bảng tính dưới dạng tệp đính kèm từ Excel với mã VBA: Mã VBA tuyệt vời. Hoạt động TUYỆT VỜI !!! Cảm ơn bạn!!! :-) Thay vì nhập các e-mail Tới: & CC: theo cách thủ công, tôi muốn kéo các địa chỉ e-mail từ một trang tính riêng có tên là "E-Mail List". (A1) có địa chỉ e-mail "Tới" và (b1) có địa chỉ e-mail "CC". Tôi biết điều này tương đối đơn giản để giải quyết nhưng tôi không thể tìm ra những gì tôi đang làm sai. Cảm ơn mọi người trước. Wb2.SaveAs FilePath & FileName & xFile, FileFormat: = xFormat Với ​​OutlookMail .To = "skyyang @extendoffice.com ".CC =" ".BCC =" ".Subject =" kte features ".Body =" Vui lòng kiểm tra và đọc tài liệu này. ".Attachments.Add Wb2.FullName .Send End With Wb2. Đóng Kill FilePath & FileName & xFile Set OutlookMail = Nothing Set OutlookApp = Nothing Application.ScreenUpdating = True End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này, tôi đang sử dụng quy trình tự động hóa trong công ty của mình. Tôi cần nâng cấp tất cả máy tính của mình bằng excel và outlook 2010 Tôi có mã trong windows xp với mã này tôi đang gửi một trang tính bằng outlook express mã đang hoạt động tốt trong xp nhưng bây giờ tôi cần phải nâng cấp nó với windows 7. Tôi đã thử rất nhiều nhưng tôi không thể gửi trang tính, vì vậy xin hãy giúp đỡ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào. Macro hoạt động hoàn toàn tốt đối với tôi. Tôi chưa bao giờ sử dụng macro trước đó, có ai có thể vui lòng đưa tôi đi đúng hướng - Tôi đang cố gắng gửi thư này cho nhiều người nhưng không chắc làm thế nào để đặt thêm các địa chỉ email trong phần "tới" của macro. Cảm ơn trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào, tôi là người Pháp, xin lỗi vì tiếng anh của tôi. Làm cách nào để có thể đặt ô giá trị của trang tính của tôi trong .too / .CC ... Tôi nghĩ nó giống như: Sub SendWorkSheet () 'Cập nhật 20131209 Dim xFile As String Dim xFormat As Long Dim Wb As Workbook Dim Wb2 As Workbook Dim FilePath As String Dim FileName As String Dim OutlookApp As Object Dim OutlookMail As Object On Error Resume Next Application.ScreenUpdating = False Set Wb = Application.ActiveWorkbook ActiveSheet.Copy Set Wb2 = Application.ActiveWorkbook Chọn Case Wb.FileFormat Case xlOpenXMLWorkbook: xFile = ".xlsx" xFormat = xlOpenXMLWorkbook Case xlOpenXMLWorkbookMacroEnabled: If Wb2.HasVBProject Then xFile = ".xlsm" xFormat = xlOpenXMLWorkbookMacroEnabled Else xFormat Case = ".xlsx" xFormat = x8. Caselbookxlsxpen if xFormat = xWlbook. : xFile = ".xlsb" xFormat = xlExcel8 End Chọn FilePath = Environ $ ("temp") & "\" FileName = Wb.Name & Format (Bây giờ, "dd-mmm-yy h-mm-ss") Đặt OutlookApp = CreateObject ("Outlook.Application") Đặt OutlookMail = OutlookApp.Cre ateItem (12) Wb12.SaveAs FilePath & FileName & xFile, FileFormat: = xFormat Với ​​OutlookMail .To = "skyyang @extendoffice.com "& RANGE (" AVIVA! b12 ") .CC =" "& RANGE (" AVIVA! c12 ") .BCC =" ".Subject =" NOUVEAU DOSSIER ".body =" Vui lòng kiểm tra và đọc tài liệu này. " .Attachments.Add Wb2.FullName .DISPLAY .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Nothing Set OutlookApp = Nothing Application.ScreenUpdating = True End Sub cảm ơn bạn đã giúp đỡ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúng tôi có thể cho phép người dùng thêm ID email với mã được đề cập ở trên không ... Nó hoạt động thực sự tốt nếu chúng tôi đề cập đến id Gửi email ...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thưa ông, tôi có thể gửi trang tính đã chọn dưới dạng tệp đính kèm bằng cách bao gồm chủ đề & Văn bản. Nhưng tên tệp được hiển thị là book1-02-apr-2016 .... Thay vào đó, tôi muốn đặt tên tệp trong mã của chính nó (cùng tên để tiếp tục mỗi khi tôi gửi) Vui lòng trợ giúp
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vui lòng giúp tôi khẩn cấp. Đây là lần đầu tiên tôi sử dụng gửi trang tính hiện tại dưới dạng PDF nhưng mã bên dưới hoàn toàn không hoạt động và hộp thoại cho phép không hiển thị khi tôi nhấn ctrl + G. Tôi cũng muốn biết những gì cần thay đổi để tham chiếu ô chứa địa chỉ email thay vì "tới một địa chỉ email cụ thể. Sub SendWorkSheetToPDF () 'Update 20131209 Dim Wb As Workbook Dim FileName As String Dim OutlookApp As Object Dim OutlookMail As Object On Lỗi Tiếp tục Đặt tiếp theo Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev (FileName, ".") Nếu xIndex> 1 Thì FileName = VBA.Left (FileName, xIndex - 1) FileName = FileName & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Loại: = xlTypePDF, FileName: = FileName Đặt OutlookApp = CreateObject ("Outlook.Application") Đặt OutlookMail = OutlookApp.CreateItem (0) Với OutlookMail .To = "skyyang @extendoffice.com ".CC =" ".BCC =" ".Subject =" kte features ".Body =" Vui lòng kiểm tra và đọc tài liệu này. ".Attachments.Add FileName .Send End With Kill FileName Đặt OutlookMail = Không có gì Đặt OutlookApp = Không có gì Kết thúc Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã này hoạt động tốt, tuy nhiên, có ai biết cách tự động hóa một trường dưới dạng cảnh báo để email tự động đi dựa trên cột ngày tháng không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào! Có thể sử dụng mã này, nhưng thay vì gửi ngay lập tức, nó sẽ mở ra thư?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể thử mã này:
Sub SendWorkSheet ()
'Cập nhật 20180109
Dim xFile dưới dạng chuỗi
Dim xFormat càng lâu càng tốt
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
Làm mờ đường dẫn tệp dưới dạng chuỗi
Tên tệp mờ dưới dạng chuỗi
Làm mờ OutlookApp làm đối tượng
Làm mờ OutlookMail dưới dạng đối tượng
On Error Resume Next
Application.ScreenUpdating = Sai
Đặt Wb = Application.ActiveWorkbook
ActiveSheet.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
Cuối Nếu
Trường hợp Excel8:
xFile = ".xls"
xFormat = Excel8
Trường hợp xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Kết thúc 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 = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.Subject = "kte tính năng"
.Body = "Vui lòng kiểm tra và đọc tài liệu này."
.Attachments.Add Wb2.FullName
.Trưng bày
' .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ì
Application.ScreenUpdating = True
End Sub

Xin vui lòng cho tôi biết nếu nó làm việc cho bạn, cảm ơn bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Dù sao tôi có thể dễ dàng gửi một bảng tính excel thông qua triển vọng của mình mà không cần tất cả những thứ này ?? Tôi có thể gửi ngữ cảnh trang tính, nhưng không có sổ làm việc nào dưới dạng tệp đính kèm. Trên máy tính cơ quan, tôi có thể gửi từ word và excel, nhưng tôi đang gặp sự cố ở nhà.
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL