Friday, February 22, 2008

Kirim Email Via Outlook dengan VB

Option Explicit
Dim App As Object
Dim Itm As Object
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = "A tip from vbCode Magician"
.To = "mail1@get2net.dk; mail2@get2net.dk"
.Body = "http:\\programmervb.blog.com"
.Send
End With
Posted by Administrator in 07:47:05
Comments

Comments are closed.