[Programmer-VB] Send mail with vbsendmail

[M. Ridwan Muslim]

Dear Guys,
Sudah lama absen di milis ini, tapi akhirnya saya butuh bantuan juga nih
Saya butuh masukannya nih, Saya bikin program sending email dengan 
vbsendmail,
dengan script sbb :

    Set poSendMail = New vbSendMail.clsSendMail
    poSendMail.SMTPHost = "10.20.252.5"
    poSendMail.From = "[EMAIL PROTECTED]"
    poSendMail.FromDisplayName = "Administrator"
    poSendMail.Recipient = LblEm.Caption
    poSendMail.Subject = "XXX: " & LA(2).Caption & ", XX" &  TxtBL.Text
    poSendMail.Attachment = App.Path & "\Direktori\" & "XX" & TxtBL.Text 
& ".pdf"
    poSendMail.Message = "Please read the message."
    poSendMail.Send
    Set poSendMail = Nothing
    msgbox "Sent",vbokonly

Tapi kok lamaaaaa sekali proses waktu baca script ini, rencanannya 
script ini akan saya 'looping'
tapi kenyataannya lama sekali hanya untuk baca proses ini sampai message 
box "OK" muncul.
Adakah kesalahan pada script ini, mohon masukannya.
Thanks

Rgds/ Ridwan