E-Mailer Sample Application Form

Sample E-Mailer Application Form

Form Codes:

Only Paste Following codes in form Declaration code area

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        M_E_Mails.SendEmail(Tx_To_Address.Text, Tx_Email_Subject.Text, Tx_Body.Text)
End Sub


Form Layout Codes:

Paste Following Codes in Form designer

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class Email_Sample

    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.

    <System.Diagnostics.DebuggerNonUserCode()> _

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)

        Try

            If disposing AndAlso components IsNot Nothing Then

                components.Dispose()

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

    'Required by the Windows Form Designer

    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer

    'It can be modified using the Windows Form Designer.  

    'Do not modify it using the code editor.

    <System.Diagnostics.DebuggerStepThrough()> _

    Private Sub InitializeComponent()

        Me.Tx_To_Address = New System.Windows.Forms.TextBox()

        Me.Tx_Email_Subject = New System.Windows.Forms.TextBox()

        Me.Tx_Body = New System.Windows.Forms.TextBox()

        Me.Label1 = New System.Windows.Forms.Label()

        Me.Label2 = New System.Windows.Forms.Label()

        Me.Button1 = New System.Windows.Forms.Button()

        Me.SuspendLayout()

        '

        'Tx_To_Address

        '

        Me.Tx_To_Address.Location = New System.Drawing.Point(101, 13)

        Me.Tx_To_Address.Name = "Tx_To_Address"

        Me.Tx_To_Address.Size = New System.Drawing.Size(379, 20)

        Me.Tx_To_Address.TabIndex = 0

        '

        'Tx_Email_Subject

        '

        Me.Tx_Email_Subject.Location = New System.Drawing.Point(101, 40)

        Me.Tx_Email_Subject.Name = "Tx_Email_Subject"

        Me.Tx_Email_Subject.Size = New System.Drawing.Size(379, 20)

        Me.Tx_Email_Subject.TabIndex = 1

        '

        'Tx_Body

        '

        Me.Tx_Body.Location = New System.Drawing.Point(12, 66)

        Me.Tx_Body.Multiline = True

        Me.Tx_Body.Name = "Tx_Body"

        Me.Tx_Body.Size = New System.Drawing.Size(468, 264)

        Me.Tx_Body.TabIndex = 2

        '

        'Label1

        '

        Me.Label1.AutoSize = True

        Me.Label1.Location = New System.Drawing.Point(12, 19)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(20, 13)

        Me.Label1.TabIndex = 3

        Me.Label1.Text = "To"

        '

        'Label2

        '

        Me.Label2.AutoSize = True

        Me.Label2.Location = New System.Drawing.Point(13, 46)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(43, 13)

        Me.Label2.TabIndex = 4

        Me.Label2.Text = "Subject"

        '

        'Button1

        '

        Me.Button1.Location = New System.Drawing.Point(405, 336)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(75, 23)

        Me.Button1.TabIndex = 5

        Me.Button1.Text = "Button1"

        Me.Button1.UseVisualStyleBackColor = True

        '

        'Email_Sample

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.ClientSize = New System.Drawing.Size(492, 369)

        Me.Controls.Add(Me.Button1)

        Me.Controls.Add(Me.Label2)

        Me.Controls.Add(Me.Label1)

        Me.Controls.Add(Me.Tx_Body)

        Me.Controls.Add(Me.Tx_Email_Subject)

        Me.Controls.Add(Me.Tx_To_Address)

        Me.Name = "Email_Sample"

        Me.Text = "Email_Sample"

        Me.ResumeLayout(False)

        Me.PerformLayout()

    End Sub

    Friend WithEvents Tx_To_Address As System.Windows.Forms.TextBox

    Friend WithEvents Tx_Email_Subject As System.Windows.Forms.TextBox

    Friend WithEvents Tx_Body As System.Windows.Forms.TextBox

    Friend WithEvents Label1 As System.Windows.Forms.Label

    Friend WithEvents Label2 As System.Windows.Forms.Label

    Friend WithEvents Button1 As System.Windows.Forms.Button

End Class