P2P技术应用(VB收发邮件源代码)

VB6.0收发邮件一例，完整的源代码。收邮件的过程：需要先登录，活动窗体中具有输入焦点控件的字体设置，然后打开邮件对话，取得邮箱中邮件的数量，将邮件的信息装载到邮件列表窗体中的列表框，根据选择的邮件索引确定相关菜单项和工具栏按扭的可用状态，设置各个按扭及菜单的可用状态；当阅读邮件消息的子窗体处于是活动子窗体时，将MAPIMessages控件的消息索引与邮件消息列表框索引，设置为与当前阅读的邮件一致，当窗体大小发生改变时，调整各控件的大小； 　　发邮件：调用收发邮件设置对话框，撰写新邮件，使用MAPI对话框撰写及发送电子邮件，使用设计的窗体NewMsg撰写及发送电子邮件，在删除当前邮件后，下