Send Email

Dim Message As New MailMessage()
Dim AT As New Attachment(txtTHAtt.Text)
Message.From = New MailAddress(register@master.com)
Message.To.Add("Test Send Message")
Message.Subject = txtTHSubject.Text.Replace("'", "''")&txtTHNo.Text Message.Attachments.Add(AT)
Message.Body = txtTHMessage.Text.Replace("'", "''")
Message.BodyEncoding = System.Text.Encoding.GetEncoding("windows-874")

Dim mailClient As New SmtpClient("mail.trinity.ac.th")
mailClient.DeliveryMethod = SmtpDeliveryMethod.Network 'เป็นการปลดล็อก ต่างๆให้ผ่านได้ตลอด
mailClient.UseDefaultCredentials = True
mailClient.Send(Message)

ความคิดเห็น

แสดงความคิดเห็น

โพสต์ยอดนิยมจากบล็อกนี้

การส่งค่าจากฟอร์มให้แสดงที่ Crystal Report โดยใช้ ParameterFields ParameterFields pfs1 = new ParameterFields(); ParameterFields pfs2 = new ParameterFields(); ParameterFields pfs3 = new ParameterFields(); ParameterField pf1 = new ParameterField(); ParameterField pf2 = new ParameterField(); ParameterField pf3 = new ParameterField(); ParameterDiscreteValue pdv1 = new ParameterDiscreteValue(); ParameterDiscreteValue pdv2 = new ParameterDiscreteValue(); ParameterDiscreteValue pdv3 = new ParameterDiscreteValue(); pf1.Name = "CompanyName"; pdv1.Value = strComName; pf2.Name = "FromDateTime"; pdv2.Value = strfromdatetime; pf3.Name = "ToDateTime"; pdv3.Value = strtodatetime; pf1.CurrentValues.Add(pdv1); pfs1.Add(pf1); pf2.CurrentValues.Add(pdv2); pfs2.Add(pf2); pf3.CurrentValues.Add(pdv3); pfs...
อ่านเพิ่มเติม