VERSION 5.00 Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX" Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = "Form1" ClientHeight = 6405 ClientLeft = 45 ClientTop = 330 ClientWidth = 8745 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6405 ScaleWidth = 8745 StartUpPosition = 2 '屏幕中心 Begin VB.ListBox List1 Height = 6180 Left = 0 TabIndex = 2 Top = 0 Width = 7215 End Begin VB.CommandButton Command2 Caption = "RECEVIED" Height = 495 Left = 7320 TabIndex = 1 Top = 720 Width = 1215 End Begin VB.CommandButton Command1 Caption = "SEND" Height = 495 Left = 7320 TabIndex = 0 Top = 0 Width = 1215 End Begin MSMAPI.MAPIMessages MAPIMessages1 Left = 7800 Top = 2040 _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 = 7800 Top = 1320 _ExtentX = 1005 _ExtentY = 1005 _Version = 393216 DownloadMail = 0 'False LogonUI = -1 'True NewSession = 0 'False Password = "123456" UserName = "jeijing.gu" End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() '发送邮件 ' Me.MAPISession1.SignOn With Me.MAPIMessages1 .MsgIndex = -1 .RecipDisplayName = "jeijing.gu@10.33.52.173" .MsgSubject = "abcdefg" .MsgNoteText = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" .SessionID = Me.MAPISession1.SessionID .Send End With End Sub Private Sub Command2_Click() '接受邮件 Dim i1 As Integer ' Me.MAPISession1.SignOn Me.MAPIMessages1.SessionID = Me.MAPISession1.SessionID Me.MAPIMessages1.FetchSorted = True Me.MAPIMessages1.FetchUnreadOnly = True Me.MAPIMessages1.Action = 1 Debug.Print Me.MAPIMessages1.MsgCount Me.List1.Clear For i1 = 0 To Me.MAPIMessages1.MsgCount - 1 Me.MAPIMessages1.MsgIndex = i1 Me.List1.AddItem Me.MAPIMessages1.MsgSubject Next i1 End Sub Private Sub Form_Load() ' Me.MAPISession1.SignOn ' Me.MAPIMessages1.SessionID = Me.MAPISession1.SessionID ' Me.MAPISession1.SignOn End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。