Script VB untuk kirim email menggunakan Microsoft Outlook

Sub Kirim_Pesan      
        Set OAPP = CreateObject("Outlook.Application")
        Set msg = OAPP.CreateItem(0)
        msg.To = <e-mail  tujuan>
        msg.Subject = <judul email>
        msg.Body = <isi pesan email>
        msg.Attachments.Add (<path attachment>)
        msg.Send
        Set msg=Nothing
        Set OAPP=Nothing
End Sub

NOTE: Komputer harus terinstall Microsoft Outlook :))