Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, 
	ByVal e As System.EventArgs) Handles Button1.Click
        Dim CDOSYS As Object
        Const cdoSendUsingPickup = 1
        Const strPickup = "c:\inetpub\mailroot\pickup"
        CDOSYS = CreateObject("CDO.Message")

        CDOSYS.Configuration.Fields.item _
	("http://schemas.microsoft.com/cdo/configuration/sendusing") _
	= cdoSendUsingPickup

        CDOSYS.Configuration.Fields.item _
	("http://schemas.microsoft.com/cdo/configuration" & _
	/smtpserverpickupdirectory")  _
	= strPickup

        CDOSYS.Configuration.Fields.Update()
        CDOSYS.To = "TO ADDRESS"
        CDOSYS.From = "FROM ADDRESS"
        CDOSYS.Subject = "CDO Test"
        CDOSYS.TextBody = "Send Email from vb.net using CDOSYS"
        CDOSYS.Send()
        CDOSYS = Nothing
        MsgBox("mail send")
    End Sub
End Class