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

Bagaimana cara mengirim email melalui Outlook saat buku kerja disimpan di Excel?

Artikel ini berbicara tentang mengirim email melalui Outlook saat buku kerja tertentu disimpan di Excel. Harap lakukan seperti yang ditunjukkan tutorial.

Kirim email melalui Outlook saat buku kerja disimpan dengan kode VBA


Kirim email melalui Outlook saat buku kerja disimpan dengan kode VBA

Untuk mengirim email melalui Outlook saat buku kerja disimpan di Excel, lakukan hal berikut.

1. Harap simpan buku kerja sebagai Buku Kerja Excel Macro-Enabled pada awalnya. Klik File > Save As. di Save As kotak dialog, pilih folder untuk menyimpan buku kerja, beri nama di kotak Nama file, pilih Buku Kerja Excel dengan Makro Aktif dari Save as type daftar drop-down, dan kemudian klik Save tombol. Lihat tangkapan layar:

2. Buka Buku Kerja Excel Macro-Enabled yang baru saja Anda simpan, tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik dua kali Buku Kerja Ini di bilah kiri, lalu salin dan tempel kode VBA di bawah ini ke file Buku Kerja Ini jendela kode. Lihat tangkapan layar:

Kode VBA: Kirim email saat buku kerja disimpan

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

Note: Harap ganti Alamat email dengan alamat email penerima sejalan .To = "Alamat Email", dan ubah kolom Cc, Subjek, dan isi di kode VBA sesuai kebutuhan Anda.

3. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Mulai sekarang, saat Anda memperbarui buku kerja dan menyimpannya, email akan dibuat secara otomatis dengan melampirkan buku kerja yang diperbarui. Silakan klik Kirim tombol untuk mengirim email. Lihat tangkapan layar:

Note: Kode VBA hanya berfungsi saat Anda menggunakan Outlook sebagai program email Anda.


Artikel terkait:


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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (17)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Cara mengotomatiskan pemberitahuan email di VBA berdasarkan rentang Tanggal, tanpa harus melihat pop-up untuk izin keamanan untuk mengizinkan VBA mengirim email.
Komentar ini diminimalkan oleh moderator di situs
Gracias. Konsultasikan: utilizando esta misma rutina, como podría enviar el correo a un correo específico dependiendo el valor de otra celda?
Komentar ini diminimalkan oleh moderator di situs
Dear all, saya ingin bertanya bagaimana cara melampirkan tautan fungsional ke folder tertentu di server, jika saya menempelkan tautan, itu muncul di buku kerja seperti teks biasa dan tidak berfungsi di email yang diterima, bagaimana saya bisa mengubahnya menjadi tautan, sehingga penerima dapat mengkliknya?
Saya ingin menggunakan cara ini alih-alih mengirim file excel terlampir.
Terima kasih atas sarannya
Komentar ini diminimalkan oleh moderator di situs
Hai Robert,
Maaf tidak dapat membantu dengan ini, selamat datang untuk mengirim pertanyaan tentang Excel ke forum kami: https://www.extendoffice.com/forum.html. Anda akan mendapatkan lebih banyak dukungan Excel dari profesional kami atau penggemar Excel lainnya.
Komentar ini diminimalkan oleh moderator di situs
Saya meletakkan ini di badan email dan itu berhasil untuk saya ...
"file:///Z:\dir1\dir2\dir3\Test1.xlsm"
Komentar ini diminimalkan oleh moderator di situs
Hai, artikel yang bagus! Satu hal yang saya coba capai dengan ini adalah melampirkan status buku kerja saat ini ke email.

Saat ini, itu hanya mengirimkan status asli file dan tidak menyertakan perubahan apa pun yang akan dibuat pengguna.

Adakah ide tentang cara mengimplementasikan ini menggunakan makro?
Komentar ini diminimalkan oleh moderator di situs
Hai Chris,
Kode telah diperbarui dengan masalah terpecahkan, silakan coba. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Hai Chris,

Saya telah kebetulan pada masalah yang sama.
Saat ini kode-kode tersebut digunakan dalam modul "beforesave".
Artinya email tersebut akan mengirimkan spreadsheet yang sebelumnya disimpan.

Ada modul lain "aftersave".
Saya menerapkan kode dalam modul ini dan itu bekerja seperti pesona.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana ini akan ditangani untuk dokumen Office 365. Hal ini secara otomatis menyimpan.
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara agar email otomatis dienkripsi secara otomatis?
Komentar ini diminimalkan oleh moderator di situs
Hai Mike,
Maaf tidak dapat membantu menyelesaikan masalah ini. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Hai! Terima kasih banyak atas pedoman ini :-) Saya ingin melakukan sesuatu yang lebih dalam kode ini - kirim email berdasarkan negara. Itu berarti saya harus membuat perintah dengan if dan pilih. Benar? Saya sudah menghapus lampiran dari email. Saya ingin menambahkan tautan dengan path ke folder sebagai gantinya. Tetapi ketika makro dijalankan, perintah tidak valid :-(
Saya menghargai setiap bantuan bagaimana menambahkannya di sana.
Komentar ini diminimalkan oleh moderator di situs
Halo - Bagaimana saya bisa memasukkan data sel di bidang "cc" email?
Komentar ini diminimalkan oleh moderator di situs
Hai Brent,
Misalkan Anda ingin memasukkan nilai di sel a7 di bidang "cc" email, silakan coba VBA di bawah ini.

Sub Workbook_AfterSave Pribadi (Sukses ByVal Sebagai Boolean)

'Diperbaharui oleh Extendoffice 20200628

Redupkan xOutApp Sebagai Objek

Redupkan xMailItem Sebagai Objek

Redupkan xName As String

On Error Resume Next

Setel xOutApp = CreateObject("Outlook.Application")

Setel xMailItem = xOutApp.CreateItem(0)

xName = ActiveWorkbook.Nama Lengkap

Dengan xMailItem

.To = "Alamat Email"

.CC = Rentang("a7").Nilai


.Subjek = "Buku kerja telah disimpan"

.Body = "Hai," & Chr(13) & Chr(13) & "File sekarang diperbarui."

.Lampiran.Tambahkan xName

.Tampilan

'.Kirim

Berakhir dengan

Setel xMailItem = Tidak Ada

Setel xOutApp = Tidak Ada

End Sub
Komentar ini diminimalkan oleh moderator di situs
Dear All, dapatkah seseorang membantu saya, saya seorang pemula dalam pengkodean VBA, saya telah membuat beberapa modifikasi, tetapi bagaimana saya bisa melakukannya mengirim email jika buku kerja disimpan, dan jika nama pengguna berbeda, seperti jika nama pengguna stasiunnya adalah glade2 lalu kirim email jika buku kerja disimpan, kalau tidak jangan kirim.

Terima kasih banyak atas dukungannya
Komentar ini diminimalkan oleh moderator di situs
Hai florin,
Tidak mengerti maksud Anda. Apa yang diwakili oleh nama pengguna Anda?
Komentar ini diminimalkan oleh moderator di situs
Hai kristal, terima kasih atas balasan Anda, usernane adalah usernane lingkungan, dan saya telah melakukannya, saya menggunakan fungsi if dan exit sub.
Terima kasih banyak.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL