文章目录前言一、想法二、开始1.界面设计2.部分代码三、测试使用1.工资表文件2.简单配置3.添加文件4.运行发送5.查看日志6.接收到的邮件内容7.拆分的分表文件四、相关报错1.工资表文件处于打开状态2.配置错误或企业内部邮箱限制总结前言我是一名行政工作人员以前上学的时候接触过vb语言但那时候还是vb6.0多年过去vb也进化成了vb.net虽然是同一门语言但和以前学过的也有了很大区别好的地方是现在网络发达ai流行写代码也有很多资料可以查询于是我边学习边写自己的小工具。一、想法行政人员面临的最多的可能就是表格操作了再加上当前市面上邮件群发工资条的工具基本上都是收费的要么就不适合于是萌生了自己写一个的想法功能设计界面设计逻辑编写测试运行这些都要自己处理二、开始1.界面设计先使用winform将界面做出来再去慢慢完善功能主要功能使用mailkit包和epplus包注册验证使用management包进行机器码获取再生成格式化后的注册码Imports System.IO Imports System.Net.Mail Imports System.Text.RegularExpressions Imports System.Windows.Forms.VisualStyles.VisualStyleElement Imports System.Windows.Forms.VisualStyles.VisualStyleElement.StartPanel Imports Microsoft.Data.Sqlite Imports OfficeOpenXml Imports OfficeOpenXml.Style Imports System.Management2.部分代码打开选择文件代码Private SubLabel4_Click(sender As Object,e As EventArgs)Handles Label4.Click Using openFileDialog As NewOpenFileDialog()With{.Filter表格文件|*.xlsx,.MultiselectFalse,.Title请选择要处理的工资文件,.FilterIndex1}If openFileDialog.ShowDialog()DialogResult.OK Then TextBox1.TextopenFileDialog.FileName Using package As NewExcelPackage(New IO.FileInfo(openFileDialog.FileName))For Each worksheet In package.Workbook.Worksheets ComboBox2.Items.Add(worksheet.Name)Next ComboBox2.SelectedIndex0End Using End If End Using End Sub打开日志文件代码Private Sub 日志ToolStripMenuItem_Click(sender As Object,e As EventArgs)Handles 日志ToolStripMenuItem.Click Dim logPath As StringPath.Combine(Application.StartupPath,data\log.txt)Dim notepadPath As Stringnotepad.exeTry Process.Start(notepadPath,logPath)Catch ex As Exception MessageBox.Show($无法打开日志文件。错误信息{ex.Message})End Try End Sub。三、测试使用1.工资表文件软件仅支持.xlsx格式文件文件内容中需包含工号姓名邮箱创建分表和邮件发送时会使用到2.简单配置点击菜单按钮选择系统配置打开设置按钮对服务器地址、端口、表头行数工号所在列姓名列进行设置如下3.添加文件打开软件后单机“工资文件”或是双击其后面的文本框即可打开文件选择窗口选择好工资表后确定然后选择工资所在sheet名字输入要使用的发信邮箱地址和对应邮箱密码可以选择记住我这样再次运行就无需输入密码了邮件主题可自行修改比如“202606工资条”邮件内容冒号前是姓名冒号后面内容可自定义4.运行发送设置好之后点击发送按钮即可运行会有完成提示不管是成功还是失败都会产生日志5.查看日志点击菜单下的查看日志可以打开日志文件6.接收到的邮件内容邮件会将拆分的表做为附件软件界面上的邮件内容做为邮件内容发送给对应邮箱7.拆分的分表文件程序所拆分出来的工资分表会统一放在工资表所在目录下的”工资分表“文件夹中拆分情况及拆分内容如下四、相关报错1.工资表文件处于打开状态工资表文件不能处于打开否则会报错2.配置错误或企业内部邮箱限制本软件主要用于企业内部使用自建邮箱效果比较好因邮箱安全设置检测到批量操作可能会进行安全拦截另外用户名密码错误或是服务器smtp地址设置错误也会报错报错后的结果就是发送失败相应的日志中也会存入失败信息总结个人学习最重要的是要有耐心需要进行多次修改与测试直到达到自己满意的效果欢迎大家互相学习软件代码已上传仓库可自行下载修改成自己满意的版本不足之处还请理解软件地址 https://gitcode.com/SuiLuYang/Salary-assistant