Print -
VB.NET Send email using CDOSYS
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