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 > > > > > > >
