请问如何在OUTLOOK环境下设置电子邮件程序的SMTP和POP3服务器啊？

老师叫我们做一个简单的电子邮件程序，实现基本的收发功能。不会做所以在图书馆找到了一个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