Line 1: '------------------------------------------------------------------------------
Line 2: ' <autogenerated>
Line 3: ' This code was generated by a tool.
Line 4: ' Runtime Version: 1.1.4322.2512
Line 5: '
Line 6: ' Changes to this file may cause incorrect behavior and will be lost if
Line 7: ' the code is regenerated.
Line 8: ' </autogenerated>
Line 9: '------------------------------------------------------------------------------
Line 10:
Line 11: Option Strict Off
Line 12: Option Explicit On
Line 13:
Line 14: Imports Microsoft.VisualBasic
Line 15: Imports System
Line 16: Imports System.Collections
Line 17: Imports System.Collections.Specialized
Line 18: Imports System.Configuration
Line 19: Imports System.Text
Line 20: Imports System.Text.RegularExpressions
Line 21: Imports System.Web
Line 22: Imports System.Web.Caching
Line 23: Imports System.Web.Security
Line 24: Imports System.Web.SessionState
Line 25: Imports System.Web.UI
Line 26: Imports System.Web.UI.HtmlControls
Line 27: Imports System.Web.UI.WebControls
Line 28:
Line 29: Namespace ASP
Line 30:
Line 31: Public Class email_aspx
Line 32: Inherits System.Web.UI.Page
Line 33: Implements System.Web.SessionState.IRequiresSessionState
Line 34:
Line 35: Private Shared __autoHandlers As Integer
Line 36:
Line 37: Private Shared __initialized As Boolean = false
Line 38:
Line 39: Private Shared __fileDependencies As System.Collections.ArrayList
Line 40:
Line 41:
Line 42: #ExternalSource("D:\wwwroot\clarksburgcac.com\include\email.aspx",1)
Line 43:
Line 44: public class Utility
Line 45: public shared SendEmail()
Line 46: ' if (InStr(strFrom, "@") = 0) then '/ test for "@" in the "email address"
Line 47: ' strFrom = "server@cac.us.com"
Line 48: ' end if
Line 49: Dim mail As New MailMessage()
Line 50: mail.To = strTo
Line 51: mail.From = strFrom
Line 52: mail.Subject = strSubject
Line 53: If Send_as_HTML then ' whether to send as HTML or text.
Line 54: mail.Body = strBodyHTML
Line 55: mail.IsHTML = TRUE
Line 56: else
Line 57: mail.Body = strBody
Line 58: end if
Line 59: mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
Line 60: mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "server@cac.us.com")
Line 61: mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "1c2a3c4!")
Line 62: SmtpMail.SmtpServer = "smtp.gmail.com" 'your mail server goes here
Line 63: SmtpMail.Send(mail)
Line 64: end function
Line 65: end class
Line 66:
Line 67: Utility.SendEmail()
Line 68:
Line 69: #End ExternalSource
Line 70:
Line 71: Public Sub New()
Line 72: MyBase.New
Line 73: Dim dependencies As System.Collections.ArrayList
Line 74: If (ASP.email_aspx.__initialized = false) Then
Line 75: dependencies = New System.Collections.ArrayList
Line 76: dependencies.Add("D:\wwwroot\clarksburgcac.com\include\email.aspx")
Line 77: ASP.email_aspx.__fileDependencies = dependencies
Line 78: ASP.email_aspx.__initialized = true
Line 79: End If
Line 80: End Sub
Line 81:
Line 82: Protected Overrides Property AutoHandlers As Integer
Line 83: Get
Line 84: Return ASP.email_aspx.__autoHandlers
Line 85: End Get
Line 86: Set
Line 87: ASP.email_aspx.__autoHandlers = value
Line 88: End Set
Line 89: End Property
Line 90:
Line 91: Protected ReadOnly Property ApplicationInstance As System.Web.HttpApplication
Line 92: Get
Line 93: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 94: End Get
Line 95: End Property
Line 96:
Line 97: Public Overrides ReadOnly Property TemplateSourceDirectory As String
Line 98: Get
Line 99: Return "/include"
Line 100: End Get
Line 101: End Property
Line 102:
Line 103: Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
Line 104: End Sub
Line 105:
Line 106: Protected Overrides Sub FrameworkInitialize()
Line 107: Me.__BuildControlTree(Me)
Line 108: Me.FileDependencies = ASP.email_aspx.__fileDependencies
Line 109: Me.EnableViewStateMac = true
Line 110: Me.Request.ValidateInput
Line 111: End Sub
Line 112:
Line 113: Public Overrides Function GetTypeHashCode() As Integer
Line 114: Return 5381
Line 115: End Function
Line 116: End Class
Line 117: End Namespace
Line 118:
|