初始檔案

SmtpTestForm_ca.sln

@@ -0,0 +1,22 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 17
+VisualStudioVersion = 17.12.35728.132 d17.12
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SmtpTestForm_ca", "SmtpTestForm_ca\SmtpTestForm_ca.vbproj", "{592EBADA-85EC-4658-8F4B-F8819936B798}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{592EBADA-85EC-4658-8F4B-F8819936B798}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{592EBADA-85EC-4658-8F4B-F8819936B798}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{592EBADA-85EC-4658-8F4B-F8819936B798}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{592EBADA-85EC-4658-8F4B-F8819936B798}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

SmtpTestForm_ca/App.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

SmtpTestForm_ca/My Project/Application.Designer.vb

@@ -0,0 +1,44 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
+'
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    '注意:這是自動產生的檔案，請勿直接修改它。若要進行變更，
+    ' 或者您在這個檔案發生建置錯誤，請到專案設計工具
+    ' (移至專案屬性或者在 [方案總管] 中按兩下 [My Project] 節點)，
+    ' 然後在 [應用程式] 索引標籤上進行變更。
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.SmtpTestForm_ca.SmtpTestForm
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
+            Me.MinimumSplashScreenDisplayTime = 0
+            Return MyBase.OnInitialize(commandLineArgs)
+        End Function
+    End Class
+End Namespace

SmtpTestForm_ca/My Project/Application.myapp

@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <MySubMain>true</MySubMain>
+  <MainForm>SmtpTestForm</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <MinimumSplashScreenDisplayTime>0</MinimumSplashScreenDisplayTime>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+  <HighDpiMpde>false</HighDpiMpde>
+</MyApplicationData>

SmtpTestForm_ca/My Project/AssemblyInfo.vb

@@ -0,0 +1,32 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' 組件的一般資訊是由下列的屬性集控制。
+' 變更這些屬性的值即可修改組件的相關
+' 資訊。
+
+' 檢閱組件屬性的值
+
+<Assembly: AssemblyTitle("SmtpTestForm_ca")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("SmtpTestForm_ca")>
+<Assembly: AssemblyCopyright("Copyright ©  2025")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
+<Assembly: Guid("c1666d28-5663-489e-b793-d4cd9613e52b")>
+
+' 組件的版本資訊由下列四個值所組成: 
+'
+'      主要版本
+'      次要版本
+'      組建編號
+'      修訂編號
+'
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

SmtpTestForm_ca/My Project/Resources.Designer.vb

@@ -0,0 +1,62 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My.Resources
+
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    Friend Module Resources
+
+        Private resourceMan As Global.System.Resources.ResourceManager
+
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SmtpTestForm_ca.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set(ByVal value As Global.System.Globalization.CultureInfo)
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

SmtpTestForm_ca/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

SmtpTestForm_ca/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+        Private Shared addedHandler As Boolean
+
+        Private Shared addedHandlerLockObject As New Object
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+            If My.Application.SaveMySettingsOnExit Then
+                My.Settings.Save()
+            End If
+        End Sub
+#End If
+#End Region
+
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+
+#If _MyType = "WindowsForms" Then
+                   If Not addedHandler Then
+                        SyncLock addedHandlerLockObject
+                            If Not addedHandler Then
+                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                                addedHandler = True
+                            End If
+                        End SyncLock
+                    End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    Friend Module MySettingsProperty
+
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        Friend ReadOnly Property Settings() As Global.SmtpTestForm_ca.My.MySettings
+            Get
+                Return Global.SmtpTestForm_ca.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

SmtpTestForm_ca/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

SmtpTestForm_ca/SmtpTestForm.Designer.vb

@@ -0,0 +1,40 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class SmtpTestForm
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <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
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.SuspendLayout()
+        '
+        'SmtpTestForm
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 20.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1333, 750)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(5, 5, 5, 5)
+        Me.Name = "SmtpTestForm"
+        Me.Text = "Form1"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+End Class

SmtpTestForm_ca/SmtpTestForm.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

SmtpTestForm_ca/SmtpTestForm.vb

@@ -0,0 +1,561 @@
+Imports System
+Imports System.IO
+Imports System.Net
+Imports System.Net.Mail
+Imports System.Text
+Imports System.Threading.Tasks
+Imports System.Windows.Forms
+
+Public Class SmtpTestForm
+    Inherits Form
+
+    ' UI 控制項宣告
+    Private grpServer As GroupBox
+    Private lblServer As Label
+    Private txtServer As TextBox
+    Private lblPort As Label
+    Private txtPort As TextBox
+    Private chkSSL As CheckBox
+    Private chkAuth As CheckBox
+
+    Private grpAuth As GroupBox
+    Private lblUsername As Label
+    Private txtUsername As TextBox
+    Private lblPassword As Label
+    Private txtPassword As TextBox
+
+    Private grpEmail As GroupBox
+    Private lblFrom As Label
+    Private txtFrom As TextBox
+    Private lblTo As Label
+    Private txtTo As TextBox
+    Private lblSubject As Label
+    Private txtSubject As TextBox
+    Private lblBody As Label
+    Private txtBody As TextBox
+
+    Private grpOptions As GroupBox
+    Private btnSmtpTest As Button
+    Private btnSendTest As Button
+    Private btnSaveSettings As Button
+    Private btnLoadSettings As Button
+
+    Private txtLog As TextBox
+
+    ' 配置文件路徑
+    Private ReadOnly ConfigFile As String = Path.Combine(Application.StartupPath, "smtp_config.ini")
+
+    Public Sub New()
+        InitializeComponent00()
+        LoadSettings()
+    End Sub
+
+    Private Sub InitializeComponent00()
+        ' 設定窗體屬性
+        Me.Text = "內部郵件發送測試工具"
+        Me.Size = New Size(700, 650)
+        Me.StartPosition = FormStartPosition.CenterScreen
+        Me.FormBorderStyle = FormBorderStyle.FixedDialog
+        Me.MaximizeBox = False
+
+        ' 伺服器配置區域
+        grpServer = New GroupBox()
+        grpServer.Text = "SMTP 伺服器設定"
+        grpServer.Location = New Point(12, 12)
+        grpServer.Size = New Size(320, 140)
+
+        lblServer = New Label()
+        lblServer.Text = "伺服器地址:"
+        lblServer.Location = New Point(15, 30)
+        lblServer.Size = New Size(100, 20)
+
+        txtServer = New TextBox()
+        txtServer.Location = New Point(120, 30)
+        txtServer.Size = New Size(180, 23)
+        txtServer.Text = "mail.yourcompany.com"
+
+        lblPort = New Label()
+        lblPort.Text = "伺服器端口:"
+        lblPort.Location = New Point(15, 60)
+        lblPort.Size = New Size(100, 20)
+
+        txtPort = New TextBox()
+        txtPort.Location = New Point(120, 60)
+        txtPort.Size = New Size(180, 23)
+        txtPort.Text = "25"
+
+        chkSSL = New CheckBox()
+        chkSSL.Text = "使用 SSL/TLS 加密連接"
+        chkSSL.Location = New Point(15, 90)
+        chkSSL.Size = New Size(200, 20)
+        chkSSL.Checked = False
+
+        chkAuth = New CheckBox()
+        chkAuth.Text = "需要身份認證"
+        chkAuth.Location = New Point(15, 110)
+        chkAuth.Size = New Size(200, 20)
+        chkAuth.Checked = True
+        AddHandler chkAuth.CheckedChanged, AddressOf ChkAuth_CheckedChanged
+
+        grpServer.Controls.Add(lblServer)
+        grpServer.Controls.Add(txtServer)
+        grpServer.Controls.Add(lblPort)
+        grpServer.Controls.Add(txtPort)
+        grpServer.Controls.Add(chkSSL)
+        grpServer.Controls.Add(chkAuth)
+
+        ' 認證配置區域
+        grpAuth = New GroupBox()
+        grpAuth.Text = "認證信息"
+        grpAuth.Location = New Point(350, 12)
+        grpAuth.Size = New Size(320, 140)
+
+        lblUsername = New Label()
+        lblUsername.Text = "用戶名:"
+        lblUsername.Location = New Point(15, 30)
+        lblUsername.Size = New Size(100, 20)
+
+        txtUsername = New TextBox()
+        txtUsername.Location = New Point(120, 30)
+        txtUsername.Size = New Size(180, 23)
+        txtUsername.Text = "user@yourcompany.com"
+
+        lblPassword = New Label()
+        lblPassword.Text = "密碼:"
+        lblPassword.Location = New Point(15, 60)
+        lblPassword.Size = New Size(100, 20)
+
+        txtPassword = New TextBox()
+        txtPassword.Location = New Point(120, 60)
+        txtPassword.Size = New Size(180, 23)
+        txtPassword.PasswordChar = "*"c
+
+        grpAuth.Controls.Add(lblUsername)
+        grpAuth.Controls.Add(txtUsername)
+        grpAuth.Controls.Add(lblPassword)
+        grpAuth.Controls.Add(txtPassword)
+
+        ' 郵件內容區域
+        grpEmail = New GroupBox()
+        grpEmail.Text = "郵件內容"
+        grpEmail.Location = New Point(12, 160)
+        grpEmail.Size = New Size(658, 220)
+
+        lblFrom = New Label()
+        lblFrom.Text = "發件人:"
+        lblFrom.Location = New Point(15, 30)
+        lblFrom.Size = New Size(100, 20)
+
+        txtFrom = New TextBox()
+        txtFrom.Location = New Point(120, 30)
+        txtFrom.Size = New Size(520, 23)
+        txtFrom.Text = "alerts@yourcompany.com"
+
+        lblTo = New Label()
+        lblTo.Text = "收件人:"
+        lblTo.Location = New Point(15, 60)
+        lblTo.Size = New Size(100, 20)
+
+        txtTo = New TextBox()
+        txtTo.Location = New Point(120, 60)
+        txtTo.Size = New Size(520, 23)
+        txtTo.Text = "recipient@yourcompany.com"
+
+        lblSubject = New Label()
+        lblSubject.Text = "主旨:"
+        lblSubject.Location = New Point(15, 90)
+        lblSubject.Size = New Size(100, 20)
+
+        txtSubject = New TextBox()
+        txtSubject.Location = New Point(120, 90)
+        txtSubject.Size = New Size(520, 23)
+        txtSubject.Text = "測試郵件"
+
+        lblBody = New Label()
+        lblBody.Text = "內容:"
+        lblBody.Location = New Point(15, 120)
+        lblBody.Size = New Size(100, 20)
+
+        txtBody = New TextBox()
+        txtBody.Location = New Point(120, 120)
+        txtBody.Size = New Size(520, 80)
+        txtBody.Multiline = True
+        txtBody.ScrollBars = ScrollBars.Vertical
+        txtBody.Text = "這是一封測試郵件，用於驗證 SMTP 功能。" & vbCrLf & vbCrLf & "發送時間: " & DateTime.Now.ToString()
+
+        grpEmail.Controls.Add(lblFrom)
+        grpEmail.Controls.Add(txtFrom)
+        grpEmail.Controls.Add(lblTo)
+        grpEmail.Controls.Add(txtTo)
+        grpEmail.Controls.Add(lblSubject)
+        grpEmail.Controls.Add(txtSubject)
+        grpEmail.Controls.Add(lblBody)
+        grpEmail.Controls.Add(txtBody)
+
+        ' 操作按鈕區域
+        grpOptions = New GroupBox()
+        grpOptions.Text = "操作"
+        grpOptions.Location = New Point(12, 390)
+        grpOptions.Size = New Size(658, 70)
+
+        btnSmtpTest = New Button()
+        btnSmtpTest.Text = "測試 SMTP 連接"
+        btnSmtpTest.Location = New Point(15, 25)
+        btnSmtpTest.Size = New Size(150, 30)
+        AddHandler btnSmtpTest.Click, AddressOf BtnSmtpTest_Click
+
+        btnSendTest = New Button()
+        btnSendTest.Text = "發送測試郵件"
+        btnSendTest.Location = New Point(175, 25)
+        btnSendTest.Size = New Size(150, 30)
+        AddHandler btnSendTest.Click, AddressOf BtnSendTest_Click
+
+        btnSaveSettings = New Button()
+        btnSaveSettings.Text = "保存設定"
+        btnSaveSettings.Location = New Point(335, 25)
+        btnSaveSettings.Size = New Size(150, 30)
+        AddHandler btnSaveSettings.Click, AddressOf BtnSaveSettings_Click
+
+        btnLoadSettings = New Button()
+        btnLoadSettings.Text = "加載設定"
+        btnLoadSettings.Location = New Point(495, 25)
+        btnLoadSettings.Size = New Size(150, 30)
+        AddHandler btnLoadSettings.Click, AddressOf BtnLoadSettings_Click
+
+        grpOptions.Controls.Add(btnSmtpTest)
+        grpOptions.Controls.Add(btnSendTest)
+        grpOptions.Controls.Add(btnSaveSettings)
+        grpOptions.Controls.Add(btnLoadSettings)
+
+        ' 日誌區域
+        txtLog = New TextBox()
+        txtLog.Multiline = True
+        txtLog.ScrollBars = ScrollBars.Both
+        txtLog.ReadOnly = True
+        txtLog.Location = New Point(12, 470)
+        txtLog.Size = New Size(658, 130)
+        txtLog.BackColor = Color.FromArgb(240, 240, 240)
+
+        ' 添加控件到窗體
+        Me.Controls.Add(grpServer)
+        Me.Controls.Add(grpAuth)
+        Me.Controls.Add(grpEmail)
+        Me.Controls.Add(grpOptions)
+        Me.Controls.Add(txtLog)
+
+        ' 初始化界面狀態
+        UpdateAuthUIState()
+    End Sub
+
+    Private Sub ChkAuth_CheckedChanged(sender As Object, e As EventArgs)
+        UpdateAuthUIState()
+    End Sub
+
+    Private Sub UpdateAuthUIState()
+        ' 根據是否需要認證來啟用/禁用認證信息輸入
+        grpAuth.Enabled = chkAuth.Checked
+    End Sub
+
+    Private Sub BtnSmtpTest_Click(sender As Object, e As EventArgs)
+        LogMessage("開始測試 SMTP 連接...")
+        TestSmtpConnection()
+    End Sub
+
+    Private Async Sub BtnSendTest_Click(sender As Object, e As EventArgs)
+        LogMessage("開始發送測試郵件...")
+
+        ' 更新郵件內容中的時間戳
+        If Not txtBody.Text.Contains("發送時間:") Then
+            txtBody.Text &= vbCrLf & vbCrLf & "發送時間: "
+        End If
+
+        txtBody.Text = txtBody.Text.Replace(txtBody.Text.Substring(txtBody.Text.IndexOf("發送時間:")),
+                                          "發送時間: " & DateTime.Now.ToString())
+
+        ' 發送測試郵件
+        Await SendTestEmailAsync()
+    End Sub
+
+    Private Sub BtnSaveSettings_Click(sender As Object, e As EventArgs)
+        SaveSettings()
+    End Sub
+
+    Private Sub BtnLoadSettings_Click(sender As Object, e As EventArgs)
+        LoadSettings()
+    End Sub
+
+    Private Sub SaveSettings()
+        Try
+            Using writer As New StreamWriter(ConfigFile, False)
+                writer.WriteLine("Server=" & txtServer.Text)
+                writer.WriteLine("Port=" & txtPort.Text)
+                writer.WriteLine("SSL=" & chkSSL.Checked.ToString())
+                writer.WriteLine("RequireAuth=" & chkAuth.Checked.ToString())
+                writer.WriteLine("Username=" & txtUsername.Text)
+                ' 注意：出於安全考慮，密碼不會以明文保存
+                ' 實際應用中應使用安全的加密方式存儲密碼
+                ' 這裡僅為演示，使用簡單的編碼
+                Dim encodedPassword As String = Convert.ToBase64String(Encoding.UTF8.GetBytes(txtPassword.Text))
+                writer.WriteLine("Password=" & encodedPassword)
+                writer.WriteLine("From=" & txtFrom.Text)
+                writer.WriteLine("To=" & txtTo.Text)
+            End Using
+            LogMessage("設定已保存到: " & ConfigFile)
+        Catch ex As Exception
+            LogMessage("保存設定失敗: " & ex.Message)
+        End Try
+    End Sub
+
+    Private Sub LoadSettings()
+        If Not File.Exists(ConfigFile) Then
+            LogMessage("設定文件不存在，使用默認值")
+            Return
+        End If
+
+        Try
+            Dim settings As New Dictionary(Of String, String)()
+
+            Using reader As New StreamReader(ConfigFile)
+                While Not reader.EndOfStream
+                    Dim line As String = reader.ReadLine()
+                    If Not String.IsNullOrEmpty(line) AndAlso line.Contains("=") Then
+                        Dim parts As String() = line.Split(New Char() {"="c}, 2)
+                        If parts.Length = 2 Then
+                            settings(parts(0)) = parts(1)
+                        End If
+                    End If
+                End While
+            End Using
+
+            If settings.ContainsKey("Server") Then txtServer.Text = settings("Server")
+            If settings.ContainsKey("Port") Then txtPort.Text = settings("Port")
+            If settings.ContainsKey("SSL") Then chkSSL.Checked = Boolean.Parse(settings("SSL"))
+            If settings.ContainsKey("RequireAuth") Then chkAuth.Checked = Boolean.Parse(settings("RequireAuth"))
+            If settings.ContainsKey("Username") Then txtUsername.Text = settings("Username")
+            If settings.ContainsKey("Password") Then
+                ' 解碼密碼
+                Try
+                    Dim decodedBytes As Byte() = Convert.FromBase64String(settings("Password"))
+                    txtPassword.Text = Encoding.UTF8.GetString(decodedBytes)
+                Catch
+                    txtPassword.Text = ""
+                End Try
+            End If
+            If settings.ContainsKey("From") Then txtFrom.Text = settings("From")
+            If settings.ContainsKey("To") Then txtTo.Text = settings("To")
+
+            UpdateAuthUIState()
+            LogMessage("設定已從文件加載: " & ConfigFile)
+        Catch ex As Exception
+            LogMessage("加載設定失敗: " & ex.Message)
+        End Try
+    End Sub
+
+    Private Async Sub TestSmtpConnection()
+        Dim server As String = txtServer.Text.Trim()
+        Dim port As Integer
+
+        If String.IsNullOrEmpty(server) Then
+            LogMessage("錯誤: 請輸入 SMTP 伺服器地址")
+            Return
+        End If
+
+        If Not Integer.TryParse(txtPort.Text, port) OrElse port <= 0 OrElse port > 65535 Then
+            LogMessage("錯誤: 端口號無效，請輸入 1-65535 之間的數字")
+            Return
+        End If
+
+        Try
+            ' 首先嘗試 TCP 連接到指定端口
+            LogMessage("嘗試連接到 " & server & ":" & port & "...")
+
+            Await Task.Run(Sub()
+                               Try
+                                   Using client As New System.Net.Sockets.TcpClient()
+                                       ' 嘗試連接，設置 5 秒超時
+                                       Dim result As IAsyncResult = client.BeginConnect(server, port, Nothing, Nothing)
+                                       Dim success As Boolean = result.AsyncWaitHandle.WaitOne(5000, True)
+
+                                       If success Then
+                                           Invoke(Sub() LogMessage("TCP 連接成功"))
+
+                                           ' 如果成功連接，建立一個 SMTP 客戶端進行完整測試
+                                           Invoke(Sub() LogMessage("嘗試 SMTP 協議測試..."))
+
+                                           Using smtpClient As New SmtpClient(server, port)
+                                               smtpClient.EnableSsl = chkSSL.Checked
+                                               smtpClient.Timeout = 10000 ' 10 秒超時
+
+                                               If chkAuth.Checked Then
+                                                   smtpClient.Credentials = New NetworkCredential(txtUsername.Text, txtPassword.Text)
+                                               End If
+
+                                               ' 建立一個空郵件用於測試，不實際發送
+                                               Dim testMessage As New MailMessage()
+                                               testMessage.From = New MailAddress(txtFrom.Text)
+                                               testMessage.Subject = "測試連接 (不會發送)"
+
+                                               ' 不實際發送，只測試連接
+                                               ' 這裡我們不調用 Send，而是只測試當前連接狀態
+                                           End Using
+
+                                           Invoke(Sub() LogMessage("SMTP 連接測試成功！伺服器連接正常。"))
+                                       Else
+                                           Invoke(Sub() LogMessage("錯誤: 無法連接到伺服器，連接超時"))
+                                           client.Close()
+                                       End If
+                                   End Using
+                               Catch ex As Exception
+                                   Invoke(Sub() LogMessage("連接測試失敗: " & ex.Message))
+                               End Try
+                           End Sub)
+        Catch ex As Exception
+            LogMessage("測試過程出錯: " & ex.Message)
+        End Try
+    End Sub
+
+    Private Async Function SendTestEmailAsync() As Task
+        Dim server As String = txtServer.Text.Trim()
+        Dim port As Integer
+
+        If String.IsNullOrEmpty(server) Then
+            LogMessage("錯誤: 請輸入 SMTP 伺服器地址")
+            Return
+        End If
+
+        If Not Integer.TryParse(txtPort.Text, port) OrElse port <= 0 OrElse port > 65535 Then
+            LogMessage("錯誤: 端口號無效，請輸入 1-65535 之間的數字")
+            Return
+        End If
+
+        If String.IsNullOrEmpty(txtFrom.Text) Then
+            LogMessage("錯誤: 請輸入發件人郵箱")
+            Return
+        End If
+
+        If String.IsNullOrEmpty(txtTo.Text) Then
+            LogMessage("錯誤: 請輸入收件人郵箱")
+            Return
+        End If
+
+        Try
+            LogMessage("準備發送郵件...")
+
+            ' 使用 Task.Run 避免阻塞 UI 線程
+            Await Task.Run(Sub()
+                               Try
+                                   Invoke(Sub() LogMessage("配置 SMTP 客戶端..."))
+
+                                   ' 配置 SMTP 客戶端
+                                   Using smtpClient As New SmtpClient(server, port)
+                                       Invoke(Sub() LogMessage("設置 SMTP 參數..."))
+
+                                       smtpClient.EnableSsl = chkSSL.Checked
+                                       smtpClient.Timeout = 30000 ' 30 秒超時
+
+                                       If chkAuth.Checked Then
+                                           Invoke(Sub() LogMessage("使用認證..."))
+                                           smtpClient.Credentials = New NetworkCredential(txtUsername.Text, txtPassword.Text)
+                                       End If
+
+                                       ' 創建郵件
+                                       Invoke(Sub() LogMessage("創建郵件內容..."))
+
+                                       Using message As New MailMessage()
+                                           message.From = New MailAddress(txtFrom.Text)
+
+                                           ' 處理多個收件人（以逗號或分號分隔）
+                                           Dim toAddresses As String() = txtTo.Text.Split(New Char() {","c, ";"c}, StringSplitOptions.RemoveEmptyEntries)
+                                           For Each address As String In toAddresses
+                                               message.To.Add(address.Trim())
+                                           Next
+
+                                           message.Subject = txtSubject.Text
+                                           message.Body = txtBody.Text
+                                           message.BodyEncoding = Encoding.UTF8
+                                           message.IsBodyHtml = False
+
+                                           ' 詳細日誌記錄
+                                           Invoke(Sub() LogMessage("發送至: " & String.Join(", ", toAddresses)))
+                                           Invoke(Sub() LogMessage("主旨: " & txtSubject.Text))
+                                           Invoke(Sub() LogMessage("正在發送郵件..."))
+
+                                           ' 發送郵件
+                                           smtpClient.Send(message)
+
+                                           Invoke(Sub() LogMessage("郵件已成功發送！"))
+                                       End Using
+                                   End Using
+                               Catch ex As Exception
+                                   Invoke(Sub() LogMessageWithDetails("發送郵件失敗", ex))
+                               End Try
+                           End Sub)
+        Catch ex As Exception
+            LogMessage("發送過程出錯: " & ex.Message)
+        End Try
+    End Function
+
+    Private Sub LogMessage(message As String)
+        ' 確保在 UI 線程上執行
+        If txtLog.InvokeRequired Then
+            txtLog.Invoke(New Action(Of String)(AddressOf LogMessage), message)
+            Return
+        End If
+
+        ' 添加時間戳並顯示消息
+        Dim logEntry As String = DateTime.Now.ToString("[HH:mm:ss] ") & message
+        txtLog.AppendText(logEntry & Environment.NewLine)
+
+        ' 滾動到底部
+        txtLog.SelectionStart = txtLog.Text.Length
+        txtLog.ScrollToCaret()
+    End Sub
+
+    Private Sub LogMessageWithDetails(message As String, ex As Exception)
+        LogMessage(message & ": " & ex.Message)
+
+        ' 添加詳細的異常信息，包括內部異常
+        If ex.InnerException IsNot Nothing Then
+            LogMessage("內部錯誤: " & ex.InnerException.Message)
+        End If
+
+        ' 添加堆棧跟踪
+        LogMessage("詳細信息: " & ex.ToString())
+    End Sub
+
+    Private Sub SaveDebugEmail(subject As String, body As String, recipients As String)
+        Try
+            ' 創建調試目錄
+            Dim debugDir As String = Path.Combine(Application.StartupPath, "debug_emails")
+            If Not Directory.Exists(debugDir) Then
+                Directory.CreateDirectory(debugDir)
+            End If
+
+            ' 創建唯一文件名
+            Dim filename As String = "email_" & DateTime.Now.ToString("yyyyMMdd_HHmmss") & ".txt"
+            Dim filepath As String = Path.Combine(debugDir, filename)
+
+            ' 保存郵件內容
+            Using writer As New StreamWriter(filepath, False, Encoding.UTF8)
+                writer.WriteLine("Date: " & DateTime.Now.ToString())
+                writer.WriteLine("From: " & txtFrom.Text)
+                writer.WriteLine("To: " & recipients)
+                writer.WriteLine("Subject: " & subject)
+                writer.WriteLine("-------------------------")
+                writer.WriteLine(body)
+            End Using
+
+            LogMessage("已保存調試郵件到: " & filepath)
+        Catch ex As Exception
+            LogMessage("保存調試郵件失敗: " & ex.Message)
+        End Try
+    End Sub
+End Class
+
+Module Program
+    Sub Main()
+        Application.EnableVisualStyles()
+        Application.SetCompatibleTextRenderingDefault(False)
+        Application.Run(New SmtpTestForm())
+    End Sub
+End Module

SmtpTestForm_ca/SmtpTestForm_ca.vbproj

@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{592EBADA-85EC-4658-8F4B-F8819936B798}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>SmtpTestForm_ca.My.MyApplication</StartupObject>
+    <RootNamespace>SmtpTestForm_ca</RootNamespace>
+    <AssemblyName>SmtpTestForm_ca</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <Deterministic>true</Deterministic>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>SmtpTestForm_ca.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>SmtpTestForm_ca.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>n4cbk-unm1w-001.ico</ApplicationIcon>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="SmtpTestForm.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="SmtpTestForm.Designer.vb">
+      <DependentUpon>SmtpTestForm.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="SmtpTestForm.resx">
+      <DependentUpon>SmtpTestForm.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="n4cbk-unm1w-001.ico" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

SmtpTestForm_ca/bin/Debug/SmtpTestForm_ca.exe.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

SmtpTestForm_ca/bin/Debug/SmtpTestForm_ca.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+SmtpTestForm_ca
+</name>
+</assembly>
+<members>
+<member name="T:SmtpTestForm_ca.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:SmtpTestForm_ca.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:SmtpTestForm_ca.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+</members>
+</doc>

SmtpTestForm_ca/bin/Debug/smtp_config.ini

@@ -0,0 +1,8 @@
+Server=127.0.0.1
+Port=25
+SSL=False
+RequireAuth=True
+Username=gordon@test.local
+Password=NjU0MzIx
+From=gordon@test.local
+To=mars@test.local

SmtpTestForm_ca/obj/Debug/.NETFramework,Version=v4.8.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.8", FrameworkDisplayName:=".NET Framework 4.8")>

SmtpTestForm_ca/obj/Debug/SmtpTestForm_ca.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+923cf896732f6322ba18656b535d81d4c3d344f17a0791b701ec3afb612e6855

SmtpTestForm_ca/obj/Debug/SmtpTestForm_ca.vbproj.FileListAbsolute.txt

@@ -0,0 +1,12 @@
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\obj\Debug\SmtpTestForm_ca.vbproj.AssemblyReference.cache
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\obj\Debug\SmtpTestForm_ca.SmtpTestForm.resources
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\obj\Debug\SmtpTestForm_ca.Resources.resources
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\obj\Debug\SmtpTestForm_ca.vbproj.GenerateResource.cache
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\obj\Debug\SmtpTestForm_ca.vbproj.CoreCompileInputs.cache
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\bin\Debug\SmtpTestForm_ca.exe.config
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\bin\Debug\SmtpTestForm_ca.exe
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\bin\Debug\SmtpTestForm_ca.pdb
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\bin\Debug\SmtpTestForm_ca.xml
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\obj\Debug\SmtpTestForm_ca.exe
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\obj\Debug\SmtpTestForm_ca.xml
+D:\Project\SmtpTestForm_ca\SmtpTestForm_ca\obj\Debug\SmtpTestForm_ca.pdb

SmtpTestForm_ca/obj/Debug/SmtpTestForm_ca.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+SmtpTestForm_ca
+</name>
+</assembly>
+<members>
+<member name="T:SmtpTestForm_ca.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:SmtpTestForm_ca.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:SmtpTestForm_ca.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+</members>
+</doc>