| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 457 人关注过本帖
标题:[求助] vb制作收发邮件不能正常运行
取消只看楼主 加入收藏
niuren20
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-10-20
收藏
 问题点数:0 回复次数:0 
[求助] vb制作收发邮件不能正常运行
无法找到主机“pop3”。请检查输入的服务器名是否正确。 帐户: 'pop3', 服务器: 'pop3', 协议: POP3, 端口: 110, 安全(SSL): 否, 套接字错误: 11001, 错误号: 0x800CCC0D


  求大虾,我刚学vb最近在用vb制作电子邮件的收发可是不能正常运行,虽然编译是通过了,可还是不能收发邮件啊,怎样才能使自己做的这个程序能够收发邮件,希望高手能指点一下,谢谢啊!我的代码是
Public Sub DisplayMessage()
       '显示邮件数
    lblCount.Caption = "第" & LTrim(Str(MAPIMessages1.MsgIndex)) & _
        "封邮件,总计" & LTrim(Str(MAPIMessages1.MsgCount)) & "封邮件"
        TxtDate.Text = MAPIMessages1.MsgDateReceived    '显示邮件日期
        txtsubject.Text = MAPIMessages1.MsgSubject       '显示邮件主题
        TxtSender.Text = MAPIMessages1.MsgOrigDisplayName   '显示发件人
        txtmessage.Text = MAPIMessages1.MsgNoteText          '显示邮件主题
                  
End Sub
Private Sub CmdClose_Click()
   End
End Sub
Private Sub CmdMessage_Click()
    Form2.Enabled = False
    Form2.visiable = False
    Form1.Enabled = True
    Form1.Visible = True
   
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 Cmdpre_Click()
    If MAPIMessages1.MsgIndex > 0 Then
        MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1
        DisplayMessage
    Else
        Beep
    End If
     
End Sub
Private Sub Form_UnLoad(cancel As Integer)
 MAPISession1.SignOff    '释放邮件会话
 
End Sub
Private Sub Form_Load()
MAPISession1.SignOn
End Sub
Private Sub Form_UnLoad(cancel As Integer)
MAPISession1.SignOff
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
附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 收发邮件 服务器 运行 制作 
2007-10-20 22:34
快速回复:[求助] vb制作收发邮件不能正常运行
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043996 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved