{"id":1530,"date":"2011-09-19T08:00:48","date_gmt":"2011-09-19T12:00:48","guid":{"rendered":"http:\/\/www.iowawebnet.com\/ein\/?p=1530"},"modified":"2011-09-16T12:07:58","modified_gmt":"2011-09-16T16:07:58","slug":"vb-net-send-email","status":"publish","type":"post","link":"https:\/\/www.iowawebnet.com\/ein\/2011\/09\/vb-net-send-email\/","title":{"rendered":"VB.NET – Send Email"},"content":{"rendered":"

Send Email<\/p><\/blockquote>\n

Page\r\n\r\nPlease complete input form:\r\n<asp:Label ID=\"Confirm\" runat=\"server\" >\r\n<asp:Label ID=\"litStatus\" runat=\"server\" style=\"color: Gray; padding-left: 20px;\">\r\n\r\n<asp:FormView ID=\"FormView1\" runat=\"server\" DataKeyNames=\"ID\" \r\n        DataSourceID=\"AccessDataSource1\" DefaultMode=\"Insert\">\r\n\r\n<InsertItemTemplate>\r\n          Your Name:<asp:TextBox ID=\"NameTextBox\" runat=\"server\" \r\n                    Text='< %# Bind(\"Name\") %>' Class=\"inputText\" \/>\r\n                    <asp:RequiredFieldValidator ID=\"RequiredFieldValidator1\" \r\n                    runat=\"server\" ErrorMessage=\"<font color='red'>*<\/font>\" \r\n                    ControlToValidate=\"NameTextBox\"><\/asp:RequiredFieldValidator><\/i>    \r\n            
\r\n            Code Number:<asp:TextBox ID=\"CodeNumberTextBox\" runat=\"server\" \r\n                      Text='< %# Bind(\"CodeNumber\") %>' Class=\"inputText\" \/>\r\n                      <asp:RequiredFieldValidator ID=\"RequiredFieldValidator2\" \r\n                      runat=\"server\" ErrorMessage=\"<font color='red'>*<\/font>\" \r\n                      ControlToValidate=\"TicketNumberTextBox\"><\/i>  \r\n            
\r\n            <asp:Button ID=\"InsertButton\" runat=\"server\" CausesValidation=\"True\" \r\n            CommandName=\"Insert\"<\/b> Text=\"Submit\" \/>\r\n<\/InsertItemTemplate>\r\n<\/asp:FormView>\r\n\r\n<asp:AccessDataSource ID=\"AccessDataSource1\" runat=\"server\" \r\n        DataFile=\"~\/MyDB.accdb\" \r\n        DeleteCommand=\"DELETE FROM [Table1] WHERE [ID] = ?\" \r\n        InsertCommand=\"INSERT INTO [Table1] ([Name], [CodeNumber] VALUES (?, ?)\"  \r\n        SelectCommand=\"SELECT * FROM [Table1]\" \r\n        UpdateCommand=\"UPDATE [Table1] SET [Name] = ?, [CodeNumber] = ?\"\r\n        OnInserted=\"InsertMessage\" >\r\n        <DeleteParameters>\r\n            <asp:Parameter Name=\"ID\" Type=\"Int32\" \/>\r\n        <\/DeleteParameters>\r\n        <InsertParameters>\r\n            <asp:Parameter Name=\"Name\" Type=\"String\" \/>\r\n            <asp:Parameter Name=\"CodeNumber\" Type=\"Int32\" \/>\r\n        <\/InsertParameters>\r\n        <UpdateParameters>\r\n            <asp:Parameter Name=\"Name\" Type=\"String\" \/>\r\n            <asp:Parameter Name=\"CodeNumber\" Type=\"Int32\" \/>\r\n            <asp:Parameter Name=\"ID\" Type=\"Int32\" \/>\r\n        <\/UpdateParameters>\r\n    <\/asp:AccessDataSource>   \r\n<\/code>\r\n\r\n<\/pre>\n
Code behind\r\n\r\nSub InsertMessage<\/b>(ByVal source As Object, ByVal e As SqlDataSourceStatusEventArgs)\r\n    If e.AffectedRows > 0 Then\r\n       Confirm.Text = \"<b> Input received, thank you!\" ' - input confirmation msg\r\n    Try\r\n      Dim SmtpServer As New SmtpClient\r\n      Dim mail As New MailMessage\r\n      SmtpServer.Credentials = New Net.NetworkCredential(\"my_username\", \"my_password\")\r\n      SmtpServer.Port = 587\r\n      SmtpServer.Host = \"smtp.google.com\"  ' - IP address OK as (x.x.x.x)\r\n            mail = New MailMessage()\r\n            mail.From = New MailAddress(\"my_email@MyEmailProvider.com\")\r\n            mail.To.Add(\"your_email@YourEmailProvider.com\")\r\n            mail.Subject = \"Website input form\"\r\n            mail.Body = \"<p><h2>Website Input Form\" +\r\n                         \"<p>New form input has been submitted. \" +\r\n                         \"To see the form input, \r\n                          <a href=\"\"http:\/\/mywebsite.com\/form_input\/\"\">click here.\" +\r\n                         \"<p style=\"\"color: gray\"\"><b>Important Message:
\r\n                          This is automatically generated email. \r\n                           Do not reply to this email.\"\r\n           mail.IsBodyHtml = True ' - type \"False\" to send email as text; \r\n      SmtpServer.Send(mail)\r\n\r\n       litStatus.Text = \"Email has been sent.\" ' - email sent confirmation \r\n\r\n    Catch ex As Exception\r\n       litStatus.Text = ex.ToString() ' - email error message\r\n        End Try\r\n        Else\r\n            Confirm.Text = \"<font color='red'>Not completed - please try again!\"\r\n        End If\r\n    End Sub\r\n<\/code>\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"
Send Email Page Please complete input form: <asp:Label ID=”Confirm” runat=”server” > <asp:Label ID=”litStatus” runat=”server” style=”color: Gray; padding-left: 20px;”> <asp:FormView ID=”FormView1″ runat=”server” DataKeyNames=”ID” DataSourceID=”AccessDataSource1″ DefaultMode=”Insert”> <InsertItemTemplate> Your Name:<asp:TextBox ID=”NameTextBox” runat=”server” Text=’< %# Bind(\"Name\") %>‘ Class=”inputText” \/> <asp:RequiredFieldValidator ID=”RequiredFieldValidator1″ runat=”server” ErrorMessage=”<font color=’red’>*<\/font>” ControlToValidate=”NameTextBox”><\/asp:RequiredFieldValidator> Code Number:<asp:TextBox ID=”CodeNumberTextBox” runat=”server” Text=’< %# Bind(\"CodeNumber\") %>‘ Class=”inputText” \/> <asp:RequiredFieldValidator ID=”RequiredFieldValidator2″ runat=”server” ErrorMessage=”<font […]<\/p>\n","protected":false},"author":35,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17,63],"tags":[19,145],"class_list":["post-1530","post","type-post","status-publish","format-standard","hentry","category-applications","category-email","tag-asp-net","tag-email"],"_links":{"self":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1530"}],"collection":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/users\/35"}],"replies":[{"embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/comments?post=1530"}],"version-history":[{"count":30,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1530\/revisions"}],"predecessor-version":[{"id":1550,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1530\/revisions\/1550"}],"wp:attachment":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/media?parent=1530"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/categories?post=1530"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/tags?post=1530"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}