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