新建 文本文档.txt

用MAPI发送邮件用MAPI发送邮件用MAPI发送邮件用MAPI发送邮件

主题：用 MAPI 控件实现发送邮件
作者：影子 VB爱好者乐园 yingzi007.126.com

1.所需控件 MAPI 控件（两个都要，默认Name），CommandButton 控件（默认Name，Caption为“发送邮件”）。
2.声明变量如下：
   Dim strMailAdd As String '收信人地址 如：[e-mail]
   Dim strAddName As String '收信人姓名 如：影子
   Dim strSubject As String  '发信的主题 如：VB爱好者乐园欢迎您
   Dim strNoteText As String '发信的内容 
   Dim strMailToo As String '发信人地址
   DIm strTooName As String '发信人姓名

3.程序开始
  Private Sub Form_Load()
  strMailAdd = "[e-mail]" '收信人地址
  strAddName = "影子" '收信人姓名
  strSubject = "VB爱好者乐园" '发信的主题
  strNoteText = "中华人民共和国万岁" '发信的内容
  End Sub   

   Private Sub Command1_Click()
   MAPISession1.DownLoadMail = False '不立即进入用户的收信箱(非常有用的，不信你设为 True试一下)
   MAPISession1.LogonUI = True '显示一个启动动话框
   MAPISession1.SignOn '这因该算激活吧，注意：不要把FoxMail在IE中设置为默认电子邮件，否则会出现错误
   MAPIMessages1.SessionID = MAPISession1.SessionID
   MAPIMessages1.Compose '构成一条消息
   MAPIMessages1.RecipAddress = strMailAdd '收信人地址
   MAPIMessages1.ResolveName
   MAPIMessages1.RecipDisplayName = strAddName '收信人姓名

   MAPIMessages1.MsgSubject = strSubject '发信的主题
   MAPIMessages1.MsgNoteText = strNoteText '发信的内容
   MAPIMessages1.AttachmentIndex = 0  '当前附件的索引位置
   MAPIMessages1.AttachmentPathName = "d:\1.mdb"   '附件的路径
   
   MAPIMessages1.Send '开始发送
   MAPISession1.SignOff '可以算成关闭吧  
   End Sub
4.大功告成，你可要试一下其实要编写一个发信的程序，不需要懂什么TCP的，VB 里有许多好的控件可以帮助咱们这些初学都的忙！！
5.补充：如果你还要加其他的功能，就看一看 Mapi98.CHM 里面有详细的帮助。