老师叫我们做一个简单的电子邮件程序,实现基本的收发功能。不会做所以在图书馆找到了一个VB的程序(我们是学VC++的),现在程序好象没有什么问题,但是那个程序要在OUTLOOK环境下运行,并且要设置SMTP和POP3服务器,我们现在的问题就是不会设置,明天就要演示给老师看了,所以很急,虽然这个问题可能比较幼稚,但还是希望各位大人能够帮帮忙,告诉我具体的设置步骤好吗?下面是我们的这个程序:
发送邮件程序代码:
Private Sub Form_Load()
MAPISession1.SignOn '把信息送给 Outlook Express
End Sub
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff '结束 Outlook Express任务
End Sub
Private Sub cmdSend_Click()
‘单击发送按钮时,发送邮件,并设置相应的属性值
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text
.MsgSubject = txtSubject.Text
.MsgNoteText = txtMessage.Text
.SessionID = MAPISession1.SessionID
.Send
End With
MsgBox "邮件发送完毕!", , "发送邮件"
End Sub
接收邮件程序代码:
Public Sub FetchNewMail() ‘读取新邮件的子函数
MAPIMessages1.FetchUnreadOnly = True
MAPIMessages1.Fetch
End Sub
Public Sub DisplayMessage() ‘显示信息的子函数
Ib1MsgCount.Caption = "第 " & _
LTrim(Str(MAPIMessages1.MsgIndex + 1)) & " 封邮件,总计 " & _
LTrim(Str(MAPIMessages1.MsgCount)) & " 封邮件"
Ib1MsgDateReceived.Caption = MAPIMessages1.MsgDateReceived
txtMsgNoteText.Text = MAPIMessages1.MsgNoteText
Ib1MsgOrigDisplayName.Caption = MAPIMessages1.MsgOrigDisplayName
Ib1MsgSubject.Caption = MAPIMessages1.MsgSubject
End Sub
Private Sub Form_Load()
’Load事件,初始化处理及调用取邮件和显示信息的子函数,
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
FetchNewMail
DisplayMessage
End Sub
Private Sub cmdPrevious_Click() ‘单击上一封按钮时,读取上一封
If MAPIMessages1.MsgIndex > 0 Then
MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1
DisplayMessages
Else
Beep
End If
End Sub
Private Sub cmdNext_Click() ‘单击下一封按钮时,读取下一封
If MAPIMessages1.MsgIndex = MAPIMessages1.MsgCount - 1 Then
MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex + 1
DisplayMessage
Else
Beep
End If
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
发送邮件程序代码:
Private Sub Form_Load()
MAPISession1.SignOn '把信息送给 Outlook Express
End Sub
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff '结束 Outlook Express任务
End Sub
Private Sub cmdSend_Click()
‘单击发送按钮时,发送邮件,并设置相应的属性值
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text
.MsgSubject = txtSubject.Text
.MsgNoteText = txtMessage.Text
.SessionID = MAPISession1.SessionID
.Send
End With
MsgBox "邮件发送完毕!", , "发送邮件"
End Sub
接收邮件程序代码:
Public Sub FetchNewMail() ‘读取新邮件的子函数
MAPIMessages1.FetchUnreadOnly = True
MAPIMessages1.Fetch
End Sub
Public Sub DisplayMessage() ‘显示信息的子函数
Ib1MsgCount.Caption = "第 " & _
LTrim(Str(MAPIMessages1.MsgIndex + 1)) & " 封邮件,总计 " & _
LTrim(Str(MAPIMessages1.MsgCount)) & " 封邮件"
Ib1MsgDateReceived.Caption = MAPIMessages1.MsgDateReceived
txtMsgNoteText.Text = MAPIMessages1.MsgNoteText
Ib1MsgOrigDisplayName.Caption = MAPIMessages1.MsgOrigDisplayName
Ib1MsgSubject.Caption = MAPIMessages1.MsgSubject
End Sub
Private Sub Form_Load()
’Load事件,初始化处理及调用取邮件和显示信息的子函数,
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
FetchNewMail
DisplayMessage
End Sub
Private Sub cmdPrevious_Click() ‘单击上一封按钮时,读取上一封
If MAPIMessages1.MsgIndex > 0 Then
MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1
DisplayMessages
Else
Beep
End If
End Sub
Private Sub cmdNext_Click() ‘单击下一封按钮时,读取下一封
If MAPIMessages1.MsgIndex = MAPIMessages1.MsgCount - 1 Then
MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex + 1
DisplayMessage
Else
Beep
End If
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货