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

 Bagaimana cara mengirim email ke beberapa penerima dalam daftar dari Excel melalui Outlook?

Jika Anda memiliki beberapa alamat email dalam satu kolom lembar kerja, dan sekarang, Anda ingin mengirim email ke daftar penerima ini dari Excel secara langsung tanpa membuka Outlook. Artikel ini, saya akan berbicara tentang cara mengirim email ke banyak penerima dari Excel secara bersamaan.

Kirim email ke beberapa penerima dari Excel dengan kode VBA

Kirim email ke beberapa penerima dengan buku kerja saat ini sebagai lampiran dengan menggunakan kode VBA


panah gelembung kanan biru Kirim email ke beberapa penerima dari Excel dengan kode VBA

Anda dapat menggunakan kode VBA untuk mengirim pesan ke beberapa penerima sekaligus, lakukan hal berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

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

Kode VBA: Kirim email ke beberapa penerima

Sub sendmultiple()
'updateby Extendoffice
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Display
    End With
End Sub

3. Lalu tekan F5 kunci untuk mengeksekusi kode ini, kotak prompt akan muncul untuk mengingatkan Anda memilih daftar alamat, lihat tangkapan layar:

doc mengirim banyak penerima 1

4. Lalu klik OK, dan Outlook Pesan jendela ditampilkan, Anda dapat melihat semua alamat email yang dipilih telah ditambahkan ke Untuk bidang, dan kemudian Anda dapat memasukkan subjek dan menulis pesan Anda, lihat tangkapan layar:

doc mengirim banyak penerima 2

5. Setelah menyelesaikan pesan, silahkan klik Kirim tombol, dan pesan ini akan dikirim ke penerima ini di daftar lembar kerja Anda.


panah gelembung kanan biru Kirim email ke beberapa penerima dengan buku kerja saat ini sebagai lampiran dengan menggunakan kode VBA

Jika Anda perlu mengirim pesan ke beberapa penerima dengan buku kerja saat ini sebagai lampiran, Anda bisa menerapkan kode VBA berikut.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

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

Kode VBA: Kirim email ke beberapa penerima dengan buku kerja saat ini sebagai lampiran

Sub EmailAttachmentRecipients()
'updateby Extendoffice
    Dim xOutlook As Object
    Dim xMailItem As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutlook = CreateObject("Outlook.Application")
    Set xMailItem = xOutlook.CreateItem(0)
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    With xMailItem
        .To = xEmailAddr
        .CC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set xOutlook = Nothing
    Set xMailItem = Nothing
End Sub

3. Setelah menempelkan kode, tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda memilih alamat yang ingin Anda kirimi pesan, lihat tangkapan layar:

doc mengirim banyak penerima 3

4. Kemudian klik OK tombol, dan Outlook Pesan jendela ditampilkan, semua alamat email telah ditambahkan ke Untuk lapangan, dan buku kerja Anda saat ini telah disisipkan sebagai lampiran juga, lalu Anda bisa memasukkan subjek dan menulis pesan Anda, lihat tangkapan layar:

doc mengirim banyak penerima 4

5. Lalu klik Kirim tombol untuk mengirim pesan ini ke daftar penerima dengan buku kerja saat ini sebagai lampiran.


Kirim email yang dipersonalisasi ke banyak penerima dengan lampiran berbeda:

Dengan Kutools untuk Excel's Mengirim email fitur, Anda dapat dengan cepat mengirim email yang dipersonalisasi ke beberapa penerima dengan lampiran berbeda dari Excel melalui Outlook sesuai kebutuhan. Pada saat yang sama, Anda juga dapat membuat CC atau Bcc pesan ke orang tertentu. Klik untuk mengunduh Kutools for Excel!

doc mengirim email yang dipersonalisasi 18 1


Artikel terkait:

Bagaimana cara mengirim email massal yang dipersonalisasi ke daftar dari Excel melalui Outlook?


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 (20)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini luar biasa, persis seperti yang saya inginkan. Apakah ada cara untuk menambahkan fitur di mana Anda dapat menambahkan pesan ke baris subjek menggunakan kode.... Saya tidak ingin apa pun di kotak pesan
Komentar ini diminimalkan oleh moderator di situs
Hai, Kode VBA berfungsi dengan baik untuk saya, terima kasih. Apakah ada cara saya bisa membuat sel dengan semacam tombol yang memicu pop up "pilih milis"? Jake
Komentar ini diminimalkan oleh moderator di situs
Halo, Terima kasih atas kodenya. Apakah ada cara saya dapat membuat tombol perintah pada excel dan kemudian dengan mengklik tombol itu lembar excel yang sama dapat dikirim ke beberapa penerima sebagai lampiran.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa melakukan ini menggunakan garis BCC?
Komentar ini diminimalkan oleh moderator di situs
Hai, Robert,
Setelah menjalankan kode, jendela pesan baru akan terbuka, Anda hanya perlu memasukkan baris BCC di bawah tab Opsi, lihat tangkapan layar berikut:


Semoga bisa membantu Anda, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Adakah cara untuk menggunakan ini untuk mengirim dari email bersama? Sepertinya saya tidak bisa memasukkan bidang .SendOnBehalfOf.
Komentar ini diminimalkan oleh moderator di situs
Hai ! Setiap bulan saya harus mengirim email yang sama untuk penyedia yang berbeda, tetapi mereka tidak boleh dalam email yang sama..... bagaimana saya bisa mengirim email yang sama untuk tujuan yang berbeda tanpa semua orang dalam email yang sama ?
Komentar ini diminimalkan oleh moderator di situs
Halo, Vinicius,
Untuk mengirim email yang sama ke beberapa penerima secara terpisah, mungkin artikel berikut dapat membantu Anda, silahkan melihatnya.
https://www.extendoffice.com/documents/excel/3560-excel-send-personalized-email.html
Komentar ini diminimalkan oleh moderator di situs
Pagi,


Saya baru mencoba menulis dan menggunakan makro di excel. Upaya pertama saya adalah mencoba dan membuat subset email massal dari daftar master besar. Saya memotong dan menempelkan rutinitas pertama, lalu mencoba menggunakannya, yang dilakukan hanyalah menyorot sel yang saya minta. tidak ada email prospek yang dibuat, apa yang saya lakukan salah? Untuk memperluas permintaan saya yang sebenarnya, saya benar-benar ingin menargetkan email dengan kode pos atau himpunan bagian lainnya. bagaimana cara membuat makro yang akan mencari kolom untuk kode pos tertentu dan membuat email dengan semua penerima ditemukan?

Terima kasih

Steve
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki Kode ini, masalah saya adalah membuat satu email untuk setiap kali kondisi tidak lengkap, tetapi saya ingin memasukkan semua info yang tidak mencapai kondisi hanya dalam satu email

Sub EnviarCorreo()
Redupkan OutApp Sebagai Objek
Redupkan OutMail Sebagai Objek
Redup lBaris Terakhir Selamanya
Redup lRow Selama
Redupkan sKirim Ke Sebagai String
Redupkan sSendCC Sebagai String
Redupkan sSendBCC Sebagai String
Redupkan Subjek Sebagai String
Redupkan sTemp Sebagai String

Atur OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

'Ubah berikut ini sesuai kebutuhan
sSendTo = ""
sKirim CC = ""
sSendBCC = ""
sSubject = "Batas waktu tercapai"

Atur OutMail = OutApp.CreateItem(0)

lLastRow = Sel(Rows.Count, 3).End(xlUp).Baris
Untuk lBaris = 3 Ke lBaris Terakhir
Jika Sel(Low, 9) <> "S" Maka
Jika Sel(Low, 2) <= Tanggal Kemudian

On Error Resume Next
Dengan OutMail
.Ke = sSendTo
Jika sSendCC > "" Maka .CC = sSendCC
Jika sSendBCC > "" Maka .BCC = sSendBCC
.Subjek = sSubjek

sTemp = "Halo!" & vbCrLf & vbCrLf
sTemp = sTemp & "Tanggal jatuh tempo telah tercapai"
sTemp = sTemp & "untuk proyek ini:" & vbCrLf & vbCrLf


'INI YANG INGIN SAYA ULANGI DI EMAIL BODY
' Asumsikan nama proyek ada di kolom B
sTemp = sTemp & "ID:"
sTemp = sTemp & " " & Sel(lRow, 1)
sTemp = sTemp & " Keterangan: "
sTemp = sTemp & " " & Sel(lRow, 5)
sTemp = sTemp & " Silahkan ambil yang sesuai "
sTemp = sTemp & " tindakan." & vbCrLf & vbCrLf
sTemp = sTemp & "Terima kasih!" & vbCrLf
'SAMPAI DISINI



.Tubuh = sTemp
' Ubah yang berikut menjadi .Kirim jika Anda mau
' kirim pesan tanpa review dulu
.Tampilan
Berakhir dengan
Atur OutMail = Tidak Ada

Sel(lBaris, 9) = "S"
Cells(lRow, 10) = "E-mail terkirim pada: " & Sekarang()
End If
End If
Baris berikutnya
Atur OutApp = Tidak Ada
End Sub
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin membuat germo kode untuk memilih CC dari daftar dengan cara yang sama setelah memilih TO? Dengan kode yang ada, tidak mungkin untuk memilih CC dengan cara yang sama seperti TO (alamat utama). 
Komentar ini diminimalkan oleh moderator di situs
Halo Eugen, Senang bisa membantu. Dimungkinkan untuk membuat germo kode untuk memilih CC dari daftar dengan cara yang sama setelah memilih TO. Dan kodenya pada dasarnya sama dengan kode TOs VBA. Hanya satu perubahan yang harus dilakukan. Ubah saja ".To = xEmailAddr" menjadi ".Cc = xEmailAddr". Silakan lihat tangkapan layar. Dan Anda dapat memilih CC dan TO dari daftar secara bersamaan. Buat saja ".To = xEmailAddr" dan ".Cc = xEmailAddr" semua termasuk dalam kode VBA. Silakan tempel kode berikut di Jendela Modul.
Sub kirimmultiple()
'updateby Extendoffice
Redupkan xOTApp Sebagai Objek
Redupkan xMItem Sebagai Objek
Redupkan xCell Sebagai Rentang
Redupkan xRg Sebagai Rentang
Redupkan xEmailAddr Sebagai String
Redupkan xTxt Sebagai String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Silahkan pilih daftar alamat:", "Kutools for Excel", xTxt, , , , , 8)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
Setel xOTApp = CreateObject("Outlook.Application")
Untuk Setiap xCell Dalam xRg
Jika xCell.Value Suka "*@*" Maka
Jika xEmailAddr = "" Maka
xEmailAddr = xCell.Nilai
Lain
xEmailAddr = xEmailAddr & ";" & xCell.Nilai
End If
End If
Next
Setel xMItem = xOTApp.CreateItem(0)
Dengan xMItem
.Ke = xEmailAddr
.Cc = xEmailAddr
.Tampilan
Berakhir dengan
End Sub

Semoga bisa menyelesaikan masalah Anda. Semoga harimu menyenangkan. Hormat kami, Mandy
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba membuat excel untuk mengirim email ke banyak penerima dan bisa mendapatkan semua yang saya butuhkan tetapi menolak untuk memasukkan alamat email ke kotak TO. Berikut adalah kode yang telah saya kerjakan. Adakah yang bisa membantu saya mencari tahu apa yang saya lakukan salah? Terima kasih banyak!

Sub Makro1()
Redupkan rngCell Sebagai Rentang
Redupkan rngMyDataSet Sebagai Rentang
Dim Rng Sebagai Rentang
Redupkan OutApp Sebagai Objek
Redupkan OutMail Sebagai Objek
Redupkan Subjek Email Sebagai String
Redupkan EmailKirimKe Sebagai String
Redupkan Badan Surat Sebagai String
Redup Penerima Email Sebagai Rentang
Tanda Tangan Redup Sebagai String
Application.ScreenUpdating = Salah
Dengan ActiveSheet
Jika .FilterMode Kemudian .ShowAllData
Atur Rng = .Range("AK6", .Cells(.Rows.Count, 1).End(xlUp))
Berakhir dengan
Untuk Setiap rngCell Di Rng
Jika rngCell.Offset(0, 6) > 0 Maka

ElseIf rngCell.Offset(0, 5) > Evaluate("Today() +7") Dan _
rngCell.Offset(0, 5).Nilai <= Evaluasi("Hari ini() +30") Kemudian
rngCell.Offset(0, 6).Nilai = Tanggal

Atur OutApp = CreateObject("Outlook.Application")
Atur OutMail = OutApp.CreateItem(0)

strbody = "Menurut catatan saya, kontrak Anda " & Range("A6").Nilai & " akan ditinjau pada " & rngCell.Offset(0, 5).Value & vbNewLine & _
"Silakan tinjau kontrak ini sebelum tanggal yang bersangkutan dan kirimkan email kepada saya dengan perubahan apa pun yang Anda buat pada kontrak ini. Jika kontrak ini diperbarui, harap isi Lembar Sampul Kontrak yang dapat ditemukan di folder Semua Orang dan kirimkan saya kontrak asli yang baru. "
EmailSendTo = rngCell.Offset(0, 0).Nilai
EmailSubject = Sheets("sheet1").Range("A6").Nilai
Tanda tangan = "C:\Documents and Settings\" & Environ("rmm") & _
"\Application Data\Microsoft\Signatures\rm.htm"
On Error Resume Next
Dengan OutMail
.Ke = EmailSendTo
.CC = "hhh@gmail.com"
.BCC = ""
.Subjek = Subjek Email
.Tubuh = strobodi
.Tampilan
Kirim_Nilai = Mail_Recipient.Offset(i - 1).Nilai
Berakhir dengan
Pada Kesalahan GoTo 0
Atur OutMail = Tidak Ada
Atur OutApp = Tidak Ada

End If

rngSel berikutnya
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo, Dian,
Mungkin Anda dapat menerapkan kode di bawah ini:

Sub Macro1()
Dim rngCell As Range
Dim Rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim EmailSubject As String
Dim EmailSendTo As String
Dim MailBody As String
Dim Signature As String
Application.ScreenUpdating = False
On Error Resume Next
With ActiveSheet
  If .FilterMode Then .ShowAllData
  Set Rng = .Range("AK6", .Cells(.Rows.Count, 1).End(xlUp))
End With
Set OutApp = CreateObject("Outlook.Application")
For Each rngCell In Rng
  If rngCell.Offset(0, 6) > 0 Then
    If rngCell.Offset(0, 5).Value > Evaluate("Today() +7") And _
       rngCell.Offset(0, 5).Value <= Evaluate("Today() +30") Then
      rngCell.Offset(0, 6).Value = Date
    End If
    Set OutMail = OutApp.CreateItem(0)
    MailBody = "According to my records, your contract " & Range("A6").Value & " is due for review on " & rngCell.Offset(0, 6).Value & vbNewLine & _
               "Please review this contract prior to the pertinent date and email me with any changes you make to this contract. If it is renewed, " & _
               "please fill out the Contract Cover Sheet which can be found in the Everyone folder and send me the new original contract."
    
    EmailSendTo = rngCell.Offset(2, 6).Value   'Please specify the row and column number of the addresses in the filtered data range,please change the number 2 and 6 to your need
    EmailSubject = Sheets("sheet1").Range("A6").Value
    Signature = "C:\Documents and Settings\" & Environ("rmm") & _
                "\Application Data\Microsoft\Signatures\rm.htm"
    With OutMail
      .To = EmailSendTo
      .CC = "hhh@gmail.com"
      .BCC = ""
      .Subject = EmailSubject
      .Body = MailBody
      .Recipients.ResolveAll
      .Display
    End With
  End If
Next rngCell
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub



EmailSendTo = rngCell.Offset(2, 6).Nilai, sebaiknya ubah angka 2 dan 6 menjadi nomor baris dan kolom berdasarkan rentang data Anda, rentang ini berisi alamat email yang ingin Anda kirimi.

Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih tapi sayangnya itu tidak berhasil. Saya masih mendapatkan hasil yang sama.
Komentar ini diminimalkan oleh moderator di situs
Hai, Dian,
Dalam hal ini, berikan tangkapan layar atau file lampiran dari data lembar kerja sehingga kami dapat menentukan di mana masalahnya.
Atau Anda dapat menggambarkan masalah Anda lebih jelas dan rinci.
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Di bawah ini adalah kode saat ini yang saya gunakan tetapi tidak akan menempatkan setiap alamat email di kotak TO, hanya alamat email pertama di semuanya. Juga melakukan hal yang sama dengan SUBJECT dan dalam pesan email, itu hanya menggunakan hal yang sama lagi dan lagi. Saya tidak yakin bagaimana cara melampirkan spreadsheet ke email ini.

Sub Makro1()
Redupkan rngCell Sebagai Rentang
Redupkan rngMyDataSet Sebagai Rentang
Dim Rng Sebagai Rentang
Redupkan OutApp Sebagai Objek
Redupkan OutMail Sebagai Objek
Redupkan Subjek Email Sebagai String
Redupkan EmailKirimKe Sebagai String
Redup MailBody Sebagai Rentang
Redup Penerima Email Sebagai Rentang
Tanda Tangan Redup Sebagai String
Application.ScreenUpdating = Salah
Dengan ActiveSheet
Jika .FilterMode Kemudian .ShowAllData
Atur Rng = .Range("AJ6", .Cells(.Rows.Count, 1).End(xlUp))
Berakhir dengan
Untuk Setiap rngCell Di Rng
Jika rngCell.Offset(0, 6) > 0 Maka

ElseIf rngCell.Offset(0, 5) > Evaluate("Today() +7") Dan _
rngCell.Offset(0, 5).Nilai <= Evaluasi("Hari ini() +120") Kemudian
rngCell.Offset(0, 6).Nilai = Tanggal

Atur OutApp = CreateObject("Outlook.Application")
Atur OutMail = OutApp.CreateItem(0)

strbody = "Menurut catatan saya, kontrak " & Range("A6") Anda.Nilai & " akan ditinjau " & rngCell.Offset(0, 5).Nilai & _
". Penting bagi Anda untuk meninjau kontrak ini ASAP dan mengirim email kepada saya dengan perubahan apa pun yang dibuat. Jika diperbarui, harap isi Lembar Sampul Kontrak yang dapat ditemukan di folder Semua Orang dan kirimkan kepada saya lembar sampul bersama dengan kontrak asli yang baru ."
EmailSendTo = Sheets("sheet1").Range("AJ6").Nilai
EmailSubject = Sheets("sheet1").Range("A6").Nilai
Tanda tangan = "C:\Documents and Settings\" & Environ("rmm") & _
"\Application Data\Microsoft\Signatures\rm.htm"
On Error Resume Next
Dengan OutMail
.Ke = EmailSendTo
.CC = "hhh@gmail.com"
.BCC = ""
.Subjek = Subjek Email
.Tubuh = strobodi
.Tampilan
Kirim_Nilai = Mail_Recipient.Offset(i - 1).Nilai
Berakhir dengan
Pada Kesalahan GoTo 0
Atur OutMail = Tidak Ada
Atur OutApp = Tidak Ada

End If

rngSel berikutnya
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo,
Anda dapat memasukkan buku kerja Anda sebagai lampiran di sini, silakan lihat tangkapan layar di bawah ini:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-attachment-1.png
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Tidak ada kotak "Unggah Lampiran" di pihak saya.
Komentar ini diminimalkan oleh moderator di situs
Halo, Dian,
Jika tidak ada kotak "Unggah Lampiran", Anda harus mendaftar terlebih dahulu, lalu akan muncul opsi "Unggah Lampiran".
Untuk mendaftar, silakan pergi ke bagian atas artikel, dan klik Daftar tombol untuk memulai.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-register.png
Saya minta maaf atas ketidaknyamanannya.
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