Sekiranya anda ingin menghantar lembaran kerja Excel sebagai e-mel, bukannya menambahkannya ke e-mel sebagai lampiran, anda boleh menggunakan dua kaedah yang diperkenalkan dalam artikel ini.
Kadang-kadang, tidak seperti melampirkan fail Excel ke e-mel sebagai lampiran, anda mungkin ingin memasukkan lembaran kerja Excel secara langsung di badan e-mel, dengan kata lain, hantarkan sebagai e-mel. Sebagai tindak balas kepada keperluan ini, anda boleh menggunakan salah satu daripada 2 cara berikut bergantung pada sama ada anda ingin menghantar MS Excel atau MS Outlook. Sekarang baca untuk mendapatkan operasi terperinci.
Kaedah 1: Hantar dalam Excel
- Pada awalnya, buka fail Excel sumber.
- Kemudian klik pada anak panah ke bawah di Bar Alat Akses Pantas.
- Dari senarai juntai bawah, anda harus memilih "Lebih banyak Perintah".
- Selanjutnya anda harus menambahkan "Kirim ke Penerima Surat" ke Bar Alat Akses Pantas.
- Pertama, pilih "Semua Perintah" dalam senarai pilihan "Pilih perintah dari:".
- Kemudian, cari dan pilih perintah "Kirim ke Penerima Surat".
- Seterusnya klik pada butang "Tambah" di tengah.
- Setelah menambahkannya ke sebelah kanan, klik "OK" untuk menyimpan perubahan.
- Setelah itu, kembali ke tetingkap Excel utama dan klik butang "Kirim ke Penerima Surat" di Bar Alat Akses Pantas.
- Dalam kotak dialog pop timbul, pilih "Kirim lembaran semasa sebagai badan mesej".
- Kemudian bar alat baru akan dipaparkan, seperti tangkapan skrin berikut. Sekarang anda dapat menyusun butiran e-mel mengikut keperluan anda.
- Akhirnya, klik pada butang "Kirim Lembaran ini" untuk menghantar helaian ini sebagai e-mel.
Kaedah 2: Hantar di Outlook
- Pertama, lancarkan program Outlook anda.
- Kemudian tekan butang "Alt + F11" untuk membuka editor Outlook VBA.
- Selepas itu, buka modul baru dan salin kod VBA berikut ke dalamnya.
Sub SendanExcelWorksheetAsEmail()
Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkBook As Excel.Workbook
Dim objExcelWorkSheet As Excel.Worksheet
Dim objMail As Outlook.MailItem
strExcelFile = InputBox("Copy the file path to the specific excel file here:", "Specify Excel file", "E:\Contacts.xlsx")
On Error Resume Next
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
'Change to your own desired email body
objExcelWorkSheet.MailEnvelope.Introduction = "Message Body"
Set objMail = objExcelWorkSheet.MailEnvelope.Item
With objMail
'Change the recipient and subject as per your needs
.To = "frank@datanumen.com"
.Subject = objExcelWorkSheet.Name
'Use .Send to send it out directly
.Save
End With
objExcelApp.Quit
End Sub
- Selepas itu, anda boleh mengklik ikon "Jalankan" di bar alat.
- Sekaligus, makro akan dicetuskan.
- Kemudian anda akan diminta untuk menyalin jalur fail ke fail Excel tertentu ke dalam kotak input dan tekan "OK".
- Akhirnya, e-mel baru yang mengandungi lembaran kerja Excel dalam badan akan disimpan dalam folder mel "Draf". Anda boleh mendapatkannya seperti tangkapan skrin berikut:
Selesaikan Masalah PST yang Menyusahkan
Oleh kerana fail PST Outlook rawan ralat, anda mungkin menghadapi pelbagai masalah dalam Outlook anda. Oleh itu, untuk mengelakkan kesakitan Kerosakan PST, adalah bijak untuk membuat sandaran data biasa untuk fail PST anda. Selain itu, anda mesti menyimpan alat pembaikan yang kuat di sekitarnya, seperti DataNumen Outlook Repair.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk kerosakan sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com