📄 form1.frm
字号:
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "字体"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "顺序列表"
ImageIndex = 5
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "无序列表"
ImageIndex = 6
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "文本凸出"
ImageIndex = 7
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "文本缩进"
ImageIndex = 8
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "左对齐"
ImageIndex = 9
Style = 1
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "居中"
ImageIndex = 10
Style = 1
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "右对齐"
ImageIndex = 11
Style = 1
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "插入水平线"
ImageIndex = 12
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "插入回车"
ImageIndex = 16
EndProperty
BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "插入空格"
ImageIndex = 17
EndProperty
BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "插入超链接"
ImageIndex = 14
EndProperty
BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "插入图像"
ImageIndex = 15
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList2
Left = 615
Top = 6795
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 16711935
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 17
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":59AE
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":5D00
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":6052
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":63A4
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":64B6
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":6808
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":6B5A
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":6EAC
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":71FE
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":7550
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":78A2
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":7BF4
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":7D06
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":7E18
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":816A
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":84BC
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":880E
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Height = 405
Left = 0
TabIndex = 16
Top = 450
Width = 9240
_ExtentX = 16298
_ExtentY = 714
ButtonWidth = 767
ButtonHeight = 714
AllowCustomize = 0 'False
Wrappable = 0 'False
Style = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 15
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "新建邮件"
ImageIndex = 1
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "mnublnk"
Text = "空白邮件"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "mnunise"
Text = "假日"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "mnunew"
Text = "花"
EndProperty
EndProperty
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "发送邮件"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "打开邮件"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "保存邮件"
ImageIndex = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "剪切"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "复制"
ImageIndex = 6
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "粘贴"
ImageIndex = 10
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "参数配置"
ImageIndex = 11
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
Object.ToolTipText = "关于"
ImageIndex = 12
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "退出"
ImageIndex = 13
EndProperty
EndProperty
End
Begin VB.PictureBox smtp
Height = 480
Left = 6390
ScaleHeight = 420
ScaleWidth = 1140
TabIndex = 21
Top = 7065
Width = 1200
End
Begin MSComctlLib.Toolbar Toolbar4
Height = 285
Left = 60
TabIndex = 17
Top = 1440
Width = 1065
_ExtentX = 1879
_ExtentY = 503
ButtonWidth = 1746
ButtonHeight = 503
AllowCustomize = 0 'False
Wrappable = 0 'False
Style = 1
TextAlignment = 1
ImageList = "ImageList3"
DisabledImageList= "ImageList3"
HotImageList = "ImageList3"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 1
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "发件人:"
ImageIndex = 1
EndProperty
EndProperty
End
Begin VB.Image Image1
Height = 240
Index = 0
Left = 75
Picture = "Form1.frx":8B60
Top = 7485
Visible = 0 'False
Width = 240
End
Begin VB.Image Image1
Height = 240
Index = 1
Left = 330
Picture = "Form1.frx":8EEA
Top = 7485
Visible = 0 'False
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "邮件标题:"
Height = 180
Left = 225
TabIndex = 18
Top = 1845
Width = 810
End
End
Attribute VB_Name = "frmMailSender"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Response As String
Dim MailBody As String
Dim mIndex As Integer
Dim HTML_BODY As String
Dim IsMax As Boolean
Sub IsMaxSized()
Select Case IsMax
Case True
IsMax = False
frmMailSender.WindowState = vbNormal
Case False
IsMax = True
frmMailSender.WindowState = vbMaximized
End Select
End Sub
'应用皮肤
Sub ApplySkin()
Dim SknHeight As Integer, SknButWidth As Integer, SknButHeight As Integer
SknHeight = resTBar.Height / 2
TCloseBut.Left = skntitle.ScaleWidth - 20
TMaxBut.Left = TCloseBut.Left - 20
TMinBut.Left = TMaxBut.Left - 20
StretchBlt skntitle.hdc, 0, 0, skntitle.Width, SknHeight, resTBar.hdc, 0, 0, resTBar.Width, SknHeight, vbSrcCopy
StretchBlt TCloseBut.hdc, 0, 0, 17, 17, resCloseBut.hdc, 0, 0, 17, 17, vbSrcCopy
StretchBlt TMaxBut.hdc, 0, 0, 17, 17, resMaxBut.hdc, 0, 0, 17, 17, vbSrcCopy
StretchBlt TMinBut.hdc, 0, 0, 17, 17, resMinBut.hdc, 0, 0, 17, 17, vbSrcCopy
skntitle.Refresh
End Sub
'保存邮件
Sub SaveMessage()
FileOut = FreeFile
txtMail(0).Text = Trim(txtMail(0).Text)
txtMail(1).Text = Trim(txtMail(1).Text)
txtMail(2).Text = Trim(txtMail(2).Text)
If Len(txtMail(0).Text) <= 0 Then
MsgBox "请输入正确的发件人地址.", vbCritical, "错误"
Exit Sub
ElseIf Len(txtMail(1).Text) <= 0 Then
MsgBox "请输入正确的收件人地址.", vbCritical, "错误"
Exit Sub
ElseIf Len(txtMail(2).Text) <= 0 Then
MsgBox "请输入正确的邮件标题.", vbCritical, "错误"
Exit Sub
ElseIf isVaildEmail(txtMail(0).Text) = False Then
MsgBox "请输入正确格式的电子邮件地址!", vbCritical, "错误的邮件地址"
Exit Sub
Else
lzFileName = SaveFile(frmMailSender.hwnd)
FileExt = UCase(Right(lzFileName, 3))
If Not FileExt = "DME" Then lzFileName = lzFileName & ".dme"
If Len(FileExt) <= 0 Then Exit Sub
Open lzFileName For Output As #FileOut
Print #FileOut, "[极易Email 发送系统无法编辑下面这行信息]"
Print #FileOut, "[MailFrom]" & txtMail(0).Text
Print #FileOut, "[MAILTO]" & txtMail(1).Text
Print #FileOut, "[SUBJECT]" & txtMail(2).Text
Print #FileOut, "[MAILDATA]" & DHTML.DocumentHTML & Chr(25)
Close #FileOut
End If
End Sub
'个性信纸
Function InsertHtmlCode(strCode As String) As String
Dim DOC As Object
Dim sel As Object
On Error Resume Next
Set DOC = DHTML.DOM
Set sel = DOC.Selection
Set tr = sel.createRange
tr.pasteHTML (strCode)
End Function
Function Ave() As String
Dim A As String
A = A & "<hr>"
A = A & "<p>邮件发送使用的是极易E-Mail发送系统免费版<br>" & vbCrLf
A = A & "<br>" & vbCrLf
A = A & " " & vbCrLf
A = A & " <a href=⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -