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
Send Email.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
