下了个 邮件加密,发现不能发送 和接收,哪位高手能帮个忙 看看。。。
这里是一部分代码,好像是发送部分的,问题在哪里啊???? 高手指点下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;
}