📄 用mapi收发邮件.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"
Begin VB.Form Form1
Caption = "Outllook的批量邮件发送"
ClientHeight = 6855
ClientLeft = 60
ClientTop = 345
ClientWidth = 8970
LinkTopic = "Form1"
ScaleHeight = 6855
ScaleWidth = 8970
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6735
Index = 0
Left = 3960
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 6
Top = 900
Visible = 0 'False
Width = 7815
End
Begin MSMAPI.MAPIMessages MAPIMessages1
Left = 3240
Top = 3720
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
AddressEditFieldCount= 1
AddressModifiable= 0 'False
AddressResolveUI= 0 'False
FetchSorted = 0 'False
FetchUnreadOnly = 0 'False
End
Begin MSMAPI.MAPISession MAPISession1
Left = 3240
Top = 3000
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DownloadMail = -1 'True
LogonUI = -1 'True
NewSession = 0 'False
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 3
Left = 3960
TabIndex = 5
Text = "请在这里输入邮件的主题"
Top = 900
Visible = 0 'False
Width = 7815
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 6240
Top = 1320
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6735
Index = 2
Left = 3960
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Top = 900
Visible = 0 'False
Width = 7815
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6350
Index = 1
Left = 3960
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 1285
Visible = 0 'False
Width = 7815
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 2
Top = 6480
Width = 8970
_ExtentX = 15822
_ExtentY = 661
Style = 1
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
TextSave = "NUM"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 1
Top = 0
Width = 8970
_ExtentX = 15822
_ExtentY = 1508
ButtonWidth = 1032
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新建"
Key = "new"
ImageIndex = 6
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打开"
Key = "open"
ImageIndex = 7
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "save"
ImageIndex = 8
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "发送"
Key = "mato"
ImageIndex = 9
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 3960
Top = 1380
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":031C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":0638
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":0954
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":0C70
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":0F8C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":13E0
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":1834
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":1C88
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":1FA4
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "用Mapi收发邮件.frx":23F8
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TreeView1
Height = 6795
Left = 0
TabIndex = 0
TabStop = 0 'False
Top = 900
Width = 3855
_ExtentX = 6800
_ExtentY = 11986
_Version = 393217
LineStyle = 1
Style = 7
ImageList = "ImageList1"
BorderStyle = 1
Appearance = 1
End
Begin VB.Menu file
Caption = "文件(&F)"
Begin VB.Menu new
Caption = "新建"
Shortcut = ^N
End
Begin VB.Menu open
Caption = "打开"
Shortcut = ^O
End
Begin VB.Menu save
Caption = "保存"
Shortcut = ^S
End
Begin VB.Menu fa
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出"
Shortcut = ^Q
End
End
Begin VB.Menu mbwr
Caption = "邮件(&B)"
Begin VB.Menu nhbc
Caption = "收取邮件"
Enabled = 0 'False
End
Begin VB.Menu faso
Caption = "发送邮件"
End
End
Begin VB.Menu tools
Caption = "工具(&T)"
Enabled = 0 'False
Begin VB.Menu fbfh
Caption = "地址转换"
Shortcut = ^K
End
Begin VB.Menu FoxMail
Caption = "FoxMail"
Shortcut = ^{F1}
End
Begin VB.Menu Outlook
Caption = "Outlook"
Shortcut = ^{F2}
End
Begin VB.Menu the
Caption = "The Bat!"
Shortcut = ^{F3}
End
End
Begin VB.Menu mymenu
Caption = "my"
Begin VB.Menu addfile
Caption = "灌入信件内容"
End
Begin VB.Menu addemail
Caption = "灌入收件人地址"
End
Begin VB.Menu addtools
Caption = "添加附件"
End
Begin VB.Menu deltools
Caption = "删除附件"
Visible = 0 'False
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function RasHangUp Lib "RasApi32.DLL" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long
Private Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long
Const RAS95_MaxEntryName = 256
Const RAS95_MaxDeviceName = 128
Const RAS_MaxDeviceType = 16
Private Type RASCONN95
'set dwsize to 412
dwSize As Long
hRasConn As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Dim nodX As Node
Dim iIndex, i, j, LineCount, nodi, m As Integer
Dim moDragNode As Object
Dim finame, linetex, S As String
Dim Get_File As String
Dim oldname(1 To 100) As String
Dim Response As Integer
Dim lngRetCode As Long
Dim lpcb As Long
Dim lpcConnections As Long
Dim intArraySize As Integer
Dim intLooper As Integer
Dim ti
Private Sub addemail_Click()
add_email
End Sub
Private Sub addfile_Click()
add_file
End Sub
Private Sub addtools_Click()
nodi = nodi + 1
add_tools
End Sub
Private Sub deltools_Click()
nodi = nodi - 1
TreeView1.Nodes.Remove iIndex
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -