Function mail() As Boolean Dim mbody As String Dim O_client As New SmtpClient("beopsvr03") O_client.Port = 25 Dim O_Fromaddress As MailAddress = New MailAddress("custservicebookings@spc.com") Dim o_toAddress As MailAddress = New MailAddress("dummy@cw2.com") Dim o_message As MailMessage = New MailMessage(O_Fromaddress, o_toAddress) o_message.To.Clear() o_message.To.Add("testtest@scania.com") o_message.Subject = "test " mbody = "<table><tr><td>test</td></tr></table>" '****HTML o_message.Body = mbody o_message.IsBodyHtml = True O_client.DeliveryMethod = SmtpDeliveryMethod.Network O_client.Send(o_message) o_message.Dispose() mail = True End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)