Dear Mr Kid,
Ini letak Errornya VBnya Mr.. Kalau dari Aplikasi Excelnya tidak ada pesan error apapun. Salam, DD From: [email protected] [mailto:[email protected]] 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' [email protected] [belajar-excel] <[email protected]>: Dear Mr Kid, Gimana Mr....., apakah sudah ada titik terang? Atau mungkin dari rekan yang lain ada masukan? Salam, DD From: [email protected] [mailto:[email protected]] Sent: 07 Maret 2016 8:07 To: [email protected] 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: [email protected] [mailto:[email protected]] 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' [email protected] [belajar-excel] <[email protected]>: 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
