Bagaimana cara mengirim / email berbagai sel melalui Outlook dari Excel?
Pernahkah Anda mengalami masalah setelah menyelesaikan laporan di lembar kerja, dan Anda perlu mengirim ke berbagai sel di lembar kerja ini yang berisi beberapa data penting untuk penerima spesifik Anda. Adakah cara cepat bagi Anda untuk mengirim email tentang rentang ini dari Excel tanpa membuka Outlook?
Kirim rentang sel sebagai lampiran dari Excel dengan kode VBA
Kirim rentang sel sebagai badan dari Excel dengan kode VBA
Kirim rentang sel sebagai lampiran dari Excel dengan kode VBA
Kode VBA berikut dapat membantu Anda mengirim rentang pilihan Anda sebagai lampiran di Excel. Harap lakukan seperti ini:
1. Buka buku kerja Anda lalu tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: kirim rentang sel sebagai lampiran dari Excel
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 = "information of kte"
.Body = "hello, 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
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Note: Pada kode di atas, Anda dapat mengubah informasi berikut sesuai kebutuhan Anda.
- .Untuk = ""
- .CC = ""
- .BCC = ""
- .Subject = "informasi kte"
- .Body = "halo, silakan periksa dan baca dokumen ini."
3. Lalu klik F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memilih rentang yang ingin Anda kirim. Lihat tangkapan layar:
4. Lalu klik OK, dan kotak prompt akan muncul, setelah bilah kemajuan selesai, klik mengizinkan, lalu rentang sel tertentu telah dikirim ke penerima Anda sebagai lampiran.
Kirim rentang sel sebagai badan dari Excel dengan kode VBA
Jika Anda ingin mengirim rentang tertentu sebagai bagian dari badan pesan dari Excel, Anda juga dapat menerapkan kode VBA berikut untuk menyelesaikannya.
Kutools untuk Excel, dengan lebih dari 120 fungsi praktis, membuat pekerjaan Anda lebih mudah. | ||
1. Aktifkan lembar kerja Anda dan tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: kirim rentang sel sebagai badan dari Excel
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 = ""
.Item.Subject = "information of kte"
.Item.Send
End With
Application.ScreenUpdating = True
End Sub
Catatan: Dalam kode di atas, Anda dapat mengubah informasi berikut sesuai kebutuhan Anda.
- .Introduction = "Silakan baca email ini."
- .Item.Ke = ""
- .Item.Subject = "informasi kte"
3. Lalu klik F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda untuk memilih rentang yang ingin Anda kirim.
4. Kemudian klik OK, dan kotak prompt akan muncul, setelah bilah kemajuan selesai, klik mengizinkan, dan kemudian rentang sel tertentu telah dikirim ke penerima Anda sebagai badan pesan.
Catatan:
1. Kode-kode ini hanya tersedia saat Outlook sebagai program email Anda.
2. Setelah mengirim lembar kerja saat ini, Anda dapat membuka Outlook Anda untuk memastikan apakah email telah berhasil dikirim.
Artikel terkait:
Bagaimana cara mengirim lembar kerja hanya melalui Outlook dari Excel?
Bagaimana cara mengirim buku kerja saat ini melalui Outlook dari Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!