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

Bagaimana cara mengirim lembar kerja hanya melalui Outlook dari Excel?

Jika Anda ingin mengirim satu lembar kerja melalui email dari buku kerja di Excel melalui Outlook, Anda dapat mengirim lembar kerja sebagai lampiran, sebagai konten isi atau sebagai file PDF. Tapi adakah cara yang lebih cepat bagi Anda untuk mengatasi masalah ini di Excel?

Kirim satu lembar kerja sebagai isi dari Excel dengan perintah Kirim ke Penerima Email

Kirim lembar kerja tunggal sebagai lampiran dari Excel dengan kode VBA

Kirim satu lembar kerja sebagai file PDF dari Excel dengan kode VBA


panah gelembung kanan biru Kirim satu lembar kerja sebagai isi dari Excel dengan perintah Kirim ke Penerima Email

Excel mendukung kami untuk mengirim lembar kerja aktif melalui email sebagai konten tubuh dengan menggunakan perintah Kirim ke Penerima Surat. Anda dapat melakukan sebagai berikut:

Jika Anda menggunakan Excel 2007, 2010 atau 2013, Anda perlu menambahkan ini Kirim ke Penerima Email perintah ke Quick Access Toolbar pertama.

1. Klik ikon dari Sesuaikan Bilah Alat Akses Cepat, dan pilih Lebih Banyak Perintah, lihat tangkapan layar:

doc-email-sheet1

2. Dan di Opsi Excel kotak dialog, pilih Perintah Tidak di Pita dalam Pilih Perintah dari daftar drop-down, lalu pilih Kirim ke Penerima Email opsi, dan klik Tambahkan >> tombol untuk menambahkan perintah ini, di klik terakhir OK untuk menyimpan pengaturan ini. Lihat tangkapan layar:

doc-email-sheet2

3. The Kirim ke Penerima Email perintah telah dimasukkan ke dalam Quick Access Toolbar, lihat tangkapan layar:

doc-email-sheet3

4. Lalu klik ini Kirim ke Penerima Email ikon tombol, dan kotak prompt muncul, di E-mail kotak prompt, centang Kirim sheet saat ini sebagai badan pesan, Dan klik OK. Lihat tangkapan layar:

doc-email-sheet4

5. Dan kotak edit email ditampilkan di atas data lembar kerja, Anda dapat memasukkan penerima, subjek, dan pengantar ke dalam kotak teks yang sesuai. Lihat tangkapan layar:

doc-email-sheet5

6. Kemudian klik Kirim Shee init untuk mengirim lembar kerja aktif ini sebagai badan pesan ke orang tertentu Anda.


panah gelembung kanan biru Kirim lembar kerja tunggal sebagai lampiran dari Excel dengan kode VBA

Jika Anda ingin mengirim lembar kerja aktif melalui email sebagai lampiran, kode VBA berikut dapat membantu Anda.

1. Aktifkan lembar kerja Anda yang ingin Anda kirim.

2. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: kirim lembar kerja saat ini sebagai lampiran dari 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

Note: Pada kode di atas, Anda dapat mengubah informasi berikut sesuai kebutuhan Anda.

  • .To = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Subject = "fitur kte"
  • .Body = "Silakan periksa dan baca dokumen ini."

4. Lalu klik F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul, klik mengizinkan ketika bilah kemajuan selesai, dan kemudian lembar kerja saat ini telah dikirim ke penerima Anda sebagai lampiran.

doc-email-sheet6


panah gelembung kanan biru Kirim satu lembar kerja sebagai file PDF dari Excel dengan kode VBA

Terkadang, Anda perlu mengirim laporan lembar kerja Anda ke orang lain tetapi tidak ingin orang lain mengubahnya. Dalam hal ini, Anda dapat mengirim lembar kerja sebagai file PDF dari Excel.

1. Aktifkan lembar kerja Anda yang ingin Anda kirim.

2. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: kirim lembar kerja saat ini sebagai file PDF dari 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

Catatan: Dalam kode di atas, Anda dapat mengubah informasi berikut sesuai kebutuhan Anda.

  • .To = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Subject = "fitur kte"
  • .Body = "Silakan periksa dan baca dokumen ini."

4. Lalu tekan F5 kunci, dan kotak prompt akan muncul, klik mengizinkan setelah bilah kemajuan selesai, maka lembar kerja aktif telah dikirim ke orang tertentu sebagai file PDF.

doc-email-sheet6

Catatan:

1. Metode ini hanya tersedia saat Anda menggunakan Outlook sebagai program email Anda.

2. Setelah mengirim lembar kerja saat ini, Anda dapat membuka Outlook untuk memastikan email berhasil dikirim.


Buat Milis Lalu Kirim Email

The Kutools untuk Excel's Buat Milis serta Kirim Email utilitas dapat dengan cepat membuat milis di lembar kerja, lalu mengirim subjek yang sama, konten yang sama, dan lampiran yang sama ke beberapa alamat email.
doc milis 1
doc panah ke bawah
doc milis 2

Artikel terkait:

Bagaimana cara mengirim buku kerja saat ini melalui Outlook dari Excel?

Bagaimana cara mengirim / email berbagai sel melalui Outlook dari Excel?


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (31)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda menambahkan banyak penerima dalam contoh kedua menggunakan kode VBA?
Komentar ini diminimalkan oleh moderator di situs
ini berfungsi, tetapi bagaimana kita bisa menambahkan secara otomatis di cc pengirim?
Komentar ini diminimalkan oleh moderator di situs
Ketika saya menggunakan kode VBA untuk mengirim sebagai pdf, email terkirim dengan baik, namun tidak ada lampiran. Apa yang saya lakukan salah? Terima kasih, Chanda
Komentar ini diminimalkan oleh moderator di situs
Apakah Anda mendapatkan anser untuk ini? Saya juga mengalami kesulitan yang sama.
Komentar ini diminimalkan oleh moderator di situs
Hai, saya hanya ingin mengirim sel yang dipilih melalui tombol perintah di excel ke tanda terima melalui pandangan.
Komentar ini diminimalkan oleh moderator di situs
Saya telah melampirkan kirim ke penerima email, tetapi tidak diaktifkan ketika saya mengklik untuk mengirim excel. Apa yang saya lakukan salah?
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba untuk Mengirim Beberapa Rentang Nama dalam buku kerja yang diberikan sebagai PDF melalui Outlook. Mengotomatiskan membuka dan menutup banyak buku kerja. Saya tidak yakin bagaimana mengubah kode yang disebutkan di bawah ini yang berfungsi dengan baik mengirim lembar kerja dengan Semua versi baru di Laptop. Saya mengirim beberapa laporan setiap malam dari atas meja saya Windows 7 Excel dan Outlook 10 Adobe Acrobat Pro 10 dan mencoba mengkonfigurasi ulang untuk melakukan hal yang sama pada laptop dengan versi Windows 8.1 Office 15 yang ditingkatkan dan adobe acrobat Xl. Kode yang Direkomendasikan untuk Mengirim Lembar Kerja Sub SendWorkSheetToPDF() 'Update 20131209 Redupkan Wb As Workbook Redupkan FileName As String Redupkan OutlookApp As Object Redup OutlookMail As Object On Error Resume Next Set Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev( FileName, ".") Jika xIndex > 1 Kemudian FileName = VBA.Left(FileName, xIndex - 1) FileName = FileName & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= FileName Atur OutlookApp = CreateObject("Outlook.Application") Atur OutlookMail = OutlookApp.CreateItem(0) Dengan OutlookMail .To = "jbristow1@gmail.com" .CC = "" .BCC = "" .Subject = "Outlook Code" .Body = "Silakan periksa dan baca dokumen ini." .Attachments.Add FileName .Send End With Kill FileName Set OutlookMail = Tidak Ada yang Ditetapkan OutlookApp = Tidak Ada Sub Akhir
Komentar ini diminimalkan oleh moderator di situs
Jim, Anda perlu menambahkan ; di belakang alamat email dan tambahkan yang lain, lihat contoh di bawah ini: .To = "jbristow1@gmail.com; someone@gmail.com; onemoreperson@gmail.com"
Komentar ini diminimalkan oleh moderator di situs
Hai, saya menggunakan kode ini tetapi saya memiliki masalah saat mengirim. Itu bukan masalah besar tapi saya tidak menyukainya :-) Saya pertama kali menyimpan file secara otomatis ke lokasi tertentu melalui VBA sebelum mengirim file melalui surat. File sudah memiliki nama yang diakhiri dengan .xlsx Saat mengirim file melalui email, lampiran membaca .xlsx.xlsx sehingga menambahkan .xslx ke file. Adakah yang tahu apakah saya dapat mengabaikan penyimpanan sebelum mengirimnya sebagai lampiran? Saya sudah menyimpannya sebelum dikirim... Terima kasih,
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan contoh kedua di atas untuk mengirim satu lembar keluar dari buku kerja, tetapi mengirimkan seluruh buku kerja. Saya menyalin contoh di atas dan satu-satunya bagian yang saya ubah adalah alamat email. Saya tidak yakin apa yang salah.
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan kode di atas untuk mengirim satu lembar sebagai lampiran excel, masalah yang saya alami, adalah mengirim seluruh buku kerja, bukan hanya satu lembar kerja. Saya hanya mengubah "To", "Subject" dan "Body" untuk email. Saya tidak yakin apa yang salah. Tolonglah! :sedih:
Komentar ini diminimalkan oleh moderator di situs
[quote]Saya menggunakan kode di atas untuk mengirim satu lembar sebagai lampiran excel, masalah yang saya alami, adalah mengirim seluruh buku kerja, bukan hanya satu lembar kerja. Saya hanya mengubah "To", "Subject" dan "Body" untuk email. Saya tidak yakin apa yang salah. Tolonglah! :sedih:Oleh Janet[/quote] Halo, tolong beri tahu saya informasi versi Office dan sistem komputer Anda.
Komentar ini diminimalkan oleh moderator di situs
Hai, saya menggunakan Office 2010 dan Windows 7. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
[quote]Hai, saya menggunakan Office 2010 dan Windows 7. Terima kasih!Oleh Janet[/quote] Halo, VBA ini OK dengan Office 2010 di Window 7. Pastikan Anda telah membuka Outlook Anda sebelum menjalankan VBA ini.
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba menggunakan kode ini untuk mengirim satu spreadsheet menggunakan file template *.ost yang dibuat secara pribadi yang berada di drive c:\. Sepertinya tidak tahu bagaimana mengadaptasi kode di atas untuk itu. Ada petunjuk?
Komentar ini diminimalkan oleh moderator di situs
Kirim satu lembar kerja sebagai lampiran dari Excel dengan kode VBA: Kode VBA Luar Biasa. Bekerja HEBAT!!! Terima kasih!!! :-) Daripada memasukkan email Ke: & CC: secara manual, saya ingin menarik alamat email dari lembar kerja terpisah yang disebut "Daftar Email". (a1) memiliki alamat email "Kepada" dan (b1) memiliki alamat email "CC". Saya tahu ini relatif sederhana untuk dipecahkan tetapi saya tidak tahu apa yang saya lakukan salah. Terima kasih semuanya sebelumnya. Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat Dengan OutlookMail .To = "skyyang@extendoffice.com" .CC = "" .BCC = "" .Subject = "kte features" .Body = "Silakan periksa dan baca dokumen ini." .Attachments.Add Wb2.FullName .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Tidak Ada yang Ditetapkan OutlookApp = Tidak Ada Aplikasi.ScreenUpdating = True End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai saya menggunakan proses otomatisasi di perusahaan saya, saya perlu memutakhirkan semua pc saya dengan excel dan outlook 2010 saya memiliki kode di windows xp yang saya gunakan untuk mengirim lembar menggunakan outlook express kode berfungsi dengan baik di xp tetapi sekarang saya perlu meng-upgrade dengan windows 7 . Saya mencoba banyak tetapi saya tidak dapat mengirim lembar jadi tolong bantu
Komentar ini diminimalkan oleh moderator di situs
Hai Makro bekerja untuk saya dengan sangat baik. Saya belum pernah menggunakan makro sebelumnya, jadi, adakah yang bisa tolong arahkan saya ke arah yang benar - Saya mencoba mengirim ini ke lebih dari satu orang tetapi tidak yakin bagaimana cara memasukkan alamat email tambahan di bagian "ke" makro. Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
hai, saya perancis, maaf untuk bahasa inggris saya. Bagaimana mungkin untuk meletakkan sel nilai lembar saya di .too/ .CC ... saya pikir itu seperti: Sub SendWorkSheet() 'Update 20131209 Dim xFile As String Dim xFormat As Long Dim Wb As Workbook Dim Wb2 As Workbook Redupkan FilePath As String Redupkan FileName As String Redupkan OutlookApp As Object Redupkan OutlookMail As Object On Error Resume Next Application.ScreenUpdating = False Set Wb = Application.ActiveWorkbook ActiveSheet.Copy Set Wb2 = Application.ActiveWorkbook Pilih Kasus Wb.FileFormat Case xlOpenXMLWorkbook: xFile = ".xlsx" xFormat = xlOpenXMLWorkbook Case xlOpenXMLWorkbookMacroEnabled: If Wb2.HasVBProject Kemudian xFile = ".xlsm" xFormat = xlOpenXMLWorkbookMacroEnabled Lain xFile = ".xlsx" xFormat = xlOpenXMLWorkbook End If Case Excel8: x" File : xFile = ".xlsb" xFormat = xlExcel8 End Select FilePath = Environ$("temp") & "\" FileName = Wb.Name & Format(Sekarang, "dd-mmm-yy h-mm-ss") Atur OutlookApp = CreateObject("Outlook.Application") Atur OutlookMail = OutlookApp.Cre ateItem(12) Wb12.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat Dengan OutlookMail .To = "skyyang@extendoffice.com" & RANGE("AVIVA!b12") .CC = "" & RANGE("AVIVA!c12") .BCC = "" .Subject = "NOUVEAU DOSSIER" .body = "Silakan periksa dan baca dokumen ini." .Attachments.Add Wb2.FullName .DISPLAY .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Tidak Ada Set OutlookApp = Tidak Ada Application.ScreenUpdating = True End Sub terima kasih atas bantuan Anda
Komentar ini diminimalkan oleh moderator di situs
Bisakah kami mengizinkan pengguna untuk menambahkan ID email dengan kode yang disebutkan di atas ... Ini berfungsi sangat baik jika kami menyebutkan id email Ke ...
Komentar ini diminimalkan oleh moderator di situs
Pak Saya dapat mengirim lembar kerja yang dipilih sebagai lampiran dengan memasukkan subjek & Teks. Tetapi nama file ditampilkan sebagai book1-02-apr-2016.... Sebaliknya saya ingin memberikan nama file dalam kode itu sendiri (nama yang sama untuk melanjutkan setiap kali saya mengirim) Mohon bantuannya
Komentar ini diminimalkan oleh moderator di situs
Tolong bantu saya segera. Ini pertama kalinya saya menggunakan lembar kerja kirim saat ini sebagai PDF tetapi kode di bawah ini tidak berfungsi sama sekali dan dialog untuk mengizinkan tidak muncul ketika saya menekan ctrl+G. Saya juga ingin tahu apa yang harus diubah untuk mereferensikan sel yang berisi alamat email alih-alih "ke alamat email tertentu. Sub SendWorkSheetToPDF() 'Update 20131209 Dim Wb As Workbook Dim FileName As String Redup OutlookApp As Object Redup OutlookMail As Object On Error Resume Next Set Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev(FileName, ".") Jika xIndex > 1 Kemudian FileName = VBA.Left(FileName, xIndex - 1) FileName = FileName & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName Atur OutlookApp = CreateObject("Outlook.Application") Atur OutlookMail = OutlookApp.CreateItem(0) Dengan OutlookMail .To = "skyyang@extendoffice.com" .CC = "" .BCC = "" .Subject = "kte features" .Body = "Silakan periksa dan baca dokumen ini." .Attachments.Add FileName .Send End With Kill FileName Set OutlookMail = Tidak Ada Set OutlookApp = Tidak Ada yang Berakhir Sub
Komentar ini diminimalkan oleh moderator di situs
Kode ini berfungsi dengan baik, namun, adakah yang tahu cara mengotomatiskan bidang sebagai peringatan agar email masuk secara otomatis berdasarkan kolom tanggal?
Komentar ini diminimalkan oleh moderator di situs
Hai! Apakah mungkin menggunakan kode ini, tetapi alih-alih mengirim langsung, itu membuka surat?
Komentar ini diminimalkan oleh moderator di situs
Anda dapat mencoba kode ini:
Sub SendWorkSheet()
'Perbarui 20180109
Redupkan xFile Sebagai String
Redupkan xFormat Selamanya
Redupkan Wb Sebagai Buku Kerja
Redupkan Wb2 Sebagai Buku Kerja
Redupkan FilePath Sebagai String
Redupkan Nama File Sebagai String
Redupkan OutlookApp Sebagai Objek
Redupkan OutlookMail Sebagai Objek
On Error Resume Next
Application.ScreenUpdating = Salah
Setel Wb = Application.ActiveWorkbook
Lembar Aktif.Salin
Setel Wb2 = Application.ActiveWorkbook
Pilih Kasus Wb.FileFormat
Kasus xlBukaXMLBuku kerja:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Kasus xlOpenXMLWorkbookMacroDiaktifkan:
Jika Wb2.Memiliki VBProject Kemudian
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Lain
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Kasus Excel8:
xFile = ".xls"
xFormat = Excel8
Kasus xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Sekarang, "dd-mmm-yy h-mm-ss")
Setel OutlookApp = CreateObject("Outlook.Application")
Setel OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
Dengan OutlookMail
.To = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.Subject = "fitur kte"
.Body = "Silakan periksa dan baca dokumen ini."
.Lampiran.Tambahkan Wb2.Nama Lengkap
.Tampilan
' .Kirim
Berakhir dengan
Wb2.Tutup
Bunuh FilePath & FileName & xFile
Setel OutlookMail = Tidak Ada
Setel OutlookApp = Tidak Ada
Application.ScreenUpdating = Benar
End Sub

Tolong beri tahu saya jika itu berhasil untuk Anda, terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Pokoknya saya dapat dengan mudah mengirim lembar kerja excel melalui pandangan saya tanpa semua ini ?? Saya bisa mengirim konteks lembar kerja, tetapi tidak ada buku kerja sebagai lampiran. Di komputer kantor saya, saya dapat mengirim dari word dan excel, tetapi saya mengalami masalah di rumah.
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan