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

Bagaimana cara mengirim email dengan banyak lampiran yang dilampirkan di Excel?

Artikel ini membahas tentang mengirim email melalui Outlook dengan beberapa lampiran yang dilampirkan di Excel.

Kirim email dengan beberapa lampiran yang dilampirkan di Excel dengan kode VBA


Kirim email dengan beberapa lampiran yang dilampirkan di Excel dengan kode VBA


Harap lakukan hal berikut untuk mengirim email dengan beberapa lampiran yang dilampirkan di Excel.

1. Harap masukkan tombol perintah dengan mengklik Pengembang > Menyisipkan > Tombol Perintah (Kontrol ActiveX). Lihat tangkapan layar:

2. Setelah memasukkan Command Button, klik kanan dan pilih Lihat kode dari menu konteks

3. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Tools > Referensi seperti gambar di bawah ini.

4. Dalam Referensi - VBAProject kotak dialog, silakan temukan dan centang Perpustakaan Objek Microsoft Outlook opsi, dan kemudian klik OK .

5. Kemudian ganti kode asli di jendela Kode dengan kode VBA di bawah ini.

Kode VBA: Kirim email yang dilampirkan dengan beberapa lampiran di Excel

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Note: harap tentukan penerima email, subjek, dan badan email Anda dengan mengubah variasinya di .Untuk = senang.xuebi@163.com, .Subject = "test" serta .HTMLBody = "test" baris dalam kode.

6. tekan lain + Q kunci bersama untuk keluar dari Microsoft Visual Basic untuk Aplikasi jendela.

7. klik Pengembang > Mode Desain untuk mematikan Mode Desain. Lihat tangkapan layar:

8. Klik Tombol Perintah untuk menjalankan kode. Dalam bermunculan Browse jendela, pilih file yang perlu Anda lampirkan di email, lalu klik OK tombol. Lihat tangkapan layar:

9. Kemudian email dibuat dengan kolom tertentu dan lampiran terdaftar. Silakan klik Kirim tombol untuk mengirimkannya. Lihat tangkapan layar:

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


Kirim email dengan mudah melalui Outlook berdasarkan bidang milis yang dibuat di Excel:

The Mengirim email kegunaan Kutools untuk Excel membantu pengguna mengirim email melalui Outlook berdasarkan milis yang dibuat di Excel.
Unduh dan coba sekarang! (Jejak gratis 30 hari)



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-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 (14)
Rated 5 dari 5 · peringkat 1
Komentar ini diminimalkan oleh moderator di situs
Saya dapat "Kirim email dengan cepat dengan beberapa lampiran yang dilampirkan di Excel dengan Kutools for Excel" menggunakan langkah-langkah Anda di atas, tetapi ingin mengambil satu langkah lebih jauh dan mempersonalisasi setiap email dengan memasukkan nama mereka (dari kolom di lembar Excel) ke dalam badan email. Saat berada di badan email, saya mencoba memilih bidang dan mengklik "Sisipkan Placeholder" tetapi tidak ada yang terjadi. Adakah ide mengapa atau bagaimana saya bisa memperbaikinya? Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika file di atas terletak di sub-folder? Bagaimana cara mencari file di folder dan sub-folder?
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika beberapa pengguna yang berbeda dan lampiran yang berbeda akan dikirim dengan baris subjek yang berbeda.
Komentar ini diminimalkan oleh moderator di situs
kode di atas berfungsi dengan baik terima kasih !! tapi tanda tangan otomatis email saya sepertinya hilang dengan kode ini. ada ide kenapa?
Komentar ini diminimalkan oleh moderator di situs
Tim HI .... saya tidak dapat melihat lampiran dalam surat jadi jika saya mengikuti langkah Anda ... bisakah Anda membantu?
Komentar ini diminimalkan oleh moderator di situs
Luar biasa ...... Bekerja dengan sempurna.
Komentar ini diminimalkan oleh moderator di situs
Saya menikmati bekerja melalui solusi ini untuk menambahkan beberapa lampiran ke email dari dalam Excel VBA. Terima kasih. Saya tahu bahwa banyak dari kita yang mendapat manfaat dan kemudian ingin beberapa aspek disesuaikan untuk apa yang coba kita lakukan. Saya tidak berbeda, tetapi untuk langkah 8. Bisakah kita mengatur jalur yang Browse jendela akan terbuka dengan? Saya dapat menelusuri ke folder lain di lokasi yang berbeda tetapi jika saya dapat mengatur jalur itu akan menghemat waktu.
Komentar ini diminimalkan oleh moderator di situs
Halo,
Saya yakin saya akan menyukai makro jika saya ingin melihat sebuah teks yang sama dengan berbagai karakter atau lebih dan dengan berbagai file atau lebih.
Terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
Apakah dia baik-baik saja mogelijk om een ​​filter te zetten op de selectie van de bijlagen, zodat er alleen pdf-bestanden aan de mail kunnen worden toegevoegd?
Komentar ini diminimalkan oleh moderator di situs
Halo Alex de Graaf,
Kode langsung memanggil jendela pemilihan file Microsoft. Ini memudahkan pengguna VBA untuk memilih file yang dibutuhkan.
Komentar ini diminimalkan oleh moderator di situs
Hai Kristal,

Ya aku mengerti itu. Namun saya ingin pengguna hanya dapat memilih file pdf.
Apakah ini mungkin?
Komentar ini diminimalkan oleh moderator di situs
Halo Alex de Graaf,
Kode VBA berikut hanya mencantumkan file PDF di jendela Browse. Ayo cobalah.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Kristal,
Ya, saya mengerti itu. Namun, apakah mungkin membatasi pengguna untuk hanya memilih file pdf?
Komentar ini diminimalkan oleh moderator di situs
ال لكتروني البريد hotmail CDO لكن ل ما لدي احد لكن ل مع العديد المرفقات ال لي اللكتروني ل العديد المرفقات ال لي اللكتروني الرمز naims 62@
Rated 5 dari 5
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan