| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 501 人关注过本帖
标题:下了个 邮件加密,发现不能发送 和接收,哪位高手能帮个忙 看看。。。
只看楼主 加入收藏
茕神
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-11-30
结帖率:100%
收藏
 问题点数:0 回复次数:0 
下了个 邮件加密,发现不能发送 和接收,哪位高手能帮个忙 看看。。。
这里是一部分代码,好像是发送部分的,问题在哪里啊????  高手指点下



void CSendDlg::OnSend()
{
    UpdateData( TRUE);

    m_strMailServer.TrimLeft();
    m_strMailServer.TrimRight();
    m_strRecipients.TrimLeft();
    m_strRecipients.TrimRight();
    m_strSender.TrimLeft();
    m_strSender.TrimRight();

    if(m_strRecipients.GetLength() < 3)
    {
        ::MessageBox( NULL, "请填写正确的收件人邮箱", "迷你邮件加密引擎-发送邮件", MB_OK);
        return;
    }
    if(m_strSender.GetLength() <= 0)
    {
        ::MessageBox( NULL, "请填写发件人邮箱", "迷你邮件加密引擎-发送邮件", MB_OK);
        return;
    }
   
    try
    {
        jmail::IMessagePtr pMessage("JMail.Message");
        
        // 发件人邮箱
        pMessage->From = (LPCTSTR)m_strSender;
        
        // 发件人姓名
        pMessage->FromName = (LPCTSTR)m_strFromName;
        
        // 添加收件人
        pMessage->AddRecipient((LPCTSTR)m_strRecipients, "", "");
        
        // 优先级设置,1-5逐次降低, 3为中级
        pMessage->Priority = 3;
        
        // 编码方式设置, 默认是iso-8859-1
        pMessage->Charset = "GB2312";
        
        // 主题
        pMessage->Subject = (LPCTSTR)m_strSubject;
        
        // 正文
        pMessage->Body = (LPCTSTR)m_strBody;
        
        // 如有必要,可以再添加一些正文
        //pMessage->AppendText("Thank you!");
        
        // 开始发送
    //    CSendDlg.SetUserProperties(m_User,m_Password);//
        // 如果邮箱不需要认证
        if( m_bCheck == FALSE)
            pMessage->Send((LPCTSTR)m_strMailServer, VARIANT_FALSE);
        else
        {
            // 将邮件服务器组合成"用户名:密码@SMTP服务器的形式"再发送
            CString strMailServer;
            strMailServer = m_strUserName;
            strMailServer += ":";
            strMailServer += m_strPassword;
            strMailServer += "@";
            strMailServer += m_strMailServer;
            pMessage->Send((LPCTSTR)strMailServer, VARIANT_FALSE);
        }

        pMessage.Release();
        
        ::MessageBox( NULL, "恭喜你,发送邮件成功!", "迷你邮件加密引擎-发送邮件", MB_OK);
        
    }
    catch (_com_error e)
    {
        CString strErr;
        strErr.Format("错误信息:%s\r\n错误描述:%s",
            (LPCTSTR)e.ErrorMessage(), (LPCTSTR)e.Description());
        ::MessageBox( NULL, strErr, "迷你邮件加密引擎-发送邮件", MB_OK);
    }
}

void CSendDlg::OnAddmiwen()
{
    UpdateData(TRUE);
    m_strBody = m_pView->m_strFinalShow;
    UpdateData( FALSE);

    CButton* pbtnAddMiWen = (CButton*)GetDlgItem(IDC_ADDMIWEN);
    pbtnAddMiWen->EnableWindow(FALSE);
    return;
}
搜索更多相关主题的帖子: 邮件 
2010-11-30 22:51
快速回复:下了个 邮件加密,发现不能发送 和接收,哪位高手能帮个忙 看看。。。
数据加载中...
 
   



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

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