hmm... Tampaknya yang mood-mood an adalah bunyi nama-nama file yang ditulis di setiap range nama-nama file attachment.
2016-03-10 17:43 GMT+07:00 'Dede Sulaeman' dede_sulae...@pinusmerahabadi.co.id [belajar-excel] < belajar-excel@yahoogroups.com>: > > > Dear Mr Kid, > > > > Sayah jadi bingung nech, barusan saya coba “Tetep pakai script lama” > ternyata bisa terkirim. > > Itu tidak saya masukan script : > > application.displayalerts=true > > application.screenupdaeting=true > > application.enableevents=true > > on error goto 0 > bingung euy..... koq bisa yah VB mood-mood an gitu. Hahaha... > > ya udah deh Mr...., kasus di close lagi. “Yang bikin sebel kalo dead line > kumat....., Penasaran juga sih ngapa kayak gini yah....” > > > > Salam, > > DD > > > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] > *Sent:* 10 Maret 2016 15:37 > *To:* BeExcel > *Subject:* Re: [belajar-excel] Makro Kirim Email > > > > > > 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.. > > [image: cid:image001.png@01D17AF2.D90E4380] > > > > 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 : > > [image: cid:image002.png@01D17AF2.D90E4380] > > > > 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 > > > > > > > > > > >
