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
