Kalau tidak diketahui bunyi error description nya, jadinya hanya tebak-tebakan. Coba tambahkan baris kode berikut sebelum blok if. Sapa tahu nanti muncul error description nya application.displayalerts=true application.screenupdaeting=true application.enableevents=true on error goto 0
Tebak-tebakannya, bisa jadi di range penulisan nama file yang akan di-attach ada yang : 1. berupa error value 2. berisi karakter yang tidak boleh ada di dalam sebuah nama folder ata nama file Regards, Kid 2016-03-10 13:24 GMT+07:00 'Dede Sulaeman' dede_sulae...@pinusmerahabadi.co.id [belajar-excel] < belajar-excel@yahoogroups.com>: > > > Dear Mr Kid, > > > > Ini letak Errornya VBnya Mr.. > > > > Kalau dari Aplikasi Excelnya tidak ada pesan error apapun. > > > > Salam, > > DD > > > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] > *Sent:* 10 Maret 2016 10:57 > > *To:* BeExcel > *Subject:* Re: [belajar-excel] Makro Kirim Email > > > > > > lah error nya saja tidak tahu apa. > > error description yang muncul apa ? > > > > 2016-03-08 14:22 GMT+07:00 'Dede Sulaeman' > dede_sulae...@pinusmerahabadi.co.id [belajar-excel] < > belajar-excel@yahoogroups.com>: > > > > Dear Mr Kid, > > > > Gimana Mr....., apakah sudah ada titik terang? > > Atau mungkin dari rekan yang lain ada masukan? > > > > Salam, > > DD > > > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] > *Sent:* 07 Maret 2016 8:07 > *To:* belajar-excel@yahoogroups.com > *Subject:* RE: [belajar-excel] Makro Kirim Email > > > > > > Dear Mr Kid, > > > > Jadi begini Mr..... > > Kasus ini pernah saya buka disini yang tepat tanggalnya saya juga lupa. > Inti dari kasusnya adalah makro tidak bisa mengirim email beserta lampiran. > > Dari 152 lampiran/Email hanya beberapa yang terkirim sisanya kemudian > muncul debug seperti gambar dbi : > > > > Mohon pencerahannya. > > > > > > Salam, > > DD > > > > > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] > *Sent:* 05 Maret 2016 0:20 > *To:* BeExcel > *Subject:* Re: [belajar-excel] Makro Kirim Email > > > > > > Maaf, gagal paham kasusnya > > :( > > Kid > > > > 2016-03-04 19:39 GMT+07:00 'Dede Sulaeman' > dede_sulae...@pinusmerahabadi.co.id [belajar-excel] < > belajar-excel@yahoogroups.com>: > > > > Dear Mr Kid, > > > > Menyambung Soal Makro Kirim Email. > > Sekarang kumat lagi, kenapa yah....? > > Mohon masukannya. > > > > Salam, > > DD > > > > Note: Saya kirim sebanyak 152. (152 baris di sheet “Kirim”) > > > > > ------------------------------------------------------------------------------------ > > > > Dear MR Kid, > > > > > > Saking sibuknya baru gabung lg nih,... > > > > Terimakasih Mr atas masukannya. SUKSES... > > > > > > > > Salam, > > > > DD > > > ------------------------------------------------------------------------------------- > > > > Hai DD, > > > > Coba ubah bagian : > > > > If Trim(FileCell) <> "" Then > > > > If Dir(FileCell.Value) <> "" Then > > > > .Attachments.Add FileCell.Value > > > > End If > > > > End If > > > > menjadi : > > > > > > > > If Len(Dir(Trim(FileCell.Value))) <> 0 Then > > > > .Attachments.Add trim(FileCell.Value) > > > > End If > > > > > > > > > > > > Wassalam, > > > > Kid > > > > > > > > >
