社区
网络编程
帖子详情
高分求pop3收邮件的程序源代码,要求能收附件
sor
2003-07-06 03:37:24
求pop3收邮件的程序源代码,要求能收附件
jgszz@163.com
...全文
59
1
打赏
收藏
高分求pop3收邮件的程序源代码,要求能收附件
求pop3收邮件的程序源代码,要求能收附件 jgszz@163.com
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
howtotell
2003-07-06
打赏
举报
回复
CSocket mailsock;
CString m_MailMsg;
HWND hwnd;
CString OnMailConnect(DWORD m_dwSize)
{
char* buf;
CString strbuf;
DWORD dwRead=0;
while(dwRead<m_dwSize)
{
buf=new char[2048];
memset(buf,0,2048);
UINT rec=mailsock.Receive(buf,2048,0);
dwRead+=rec;
strbuf+=buf;
delete buf;
}
return strbuf;
}
UINT mailThread(LPVOID pParam)
{
CString handMsg;
CString sendMsg;
mailsock.Create();
mailsock.Connect("pop.163.net",110);
m_MailMsg+=OnMailConnect(1);
::SetWindowText(hwnd,m_MailMsg);
sendMsg="user *****\r\n";//*****这里填入你的帐户
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
m_MailMsg+=sendMsg;
m_MailMsg+=OnMailConnect(1);
::SetWindowText(hwnd,m_MailMsg);
sendMsg="pass *****\r\n";//****这里填入你的密码
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
m_MailMsg+=sendMsg;
m_MailMsg+=OnMailConnect(1);
::SetWindowText(hwnd,m_MailMsg);
sendMsg="stat\r\n";
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
CString statMsg=OnMailConnect(1);
m_MailMsg+=sendMsg;
m_MailMsg+=statMsg;
::SetWindowText(hwnd,m_MailMsg);
statMsg.Delete(0,4);
int dashpos=statMsg.Find(" ");
statMsg.Delete(dashpos,statMsg.GetLength()-dashpos);
statMsg.Replace("\r\n","");
int mailCount=atoi(statMsg);
for(int i=1;i<mailCount+1;i++)
{
sendMsg.Format("list %d\r\n",i);
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
CString recMsg=OnMailConnect(1);
m_MailMsg+=sendMsg;
m_MailMsg+=recMsg;
::SetWindowText(hwnd,m_MailMsg);
recMsg.Delete(0,4);
int recCounter=recMsg.Find(" ");
recMsg.Delete(0,recCounter);
recMsg.Replace("\r\n","");
DWORD mailsize=atoi(recMsg);
sendMsg.Format("retr %d\r\n",i);
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
CString mailContent=OnMailConnect(mailsize);
m_MailMsg+=sendMsg;
m_MailMsg+=recMsg;
::SetWindowText(hwnd,m_MailMsg);
CString sub=mailContent;
int subPos=sub.Find("Subject:");
sub.Delete(0,subPos);
subPos=sub.Find("\r\n");
CString strSubject=sub.Left(subPos);
strSubject.Replace("Subject:","");
strSubject.Replace("\\",".");
strSubject.Replace("/",".");
strSubject.Replace(":",".");
strSubject.Replace("*",".");
strSubject.Replace("?",".");
strSubject.Replace("\"",".");
strSubject.Replace("<",".");
strSubject.Replace(">",".");
strSubject.Replace("|",".");
CString fname;
fname.Format("c:\\%s(%d).eml",strSubject,i);
CFile fp;
fp.Open(fname,CFile::modeCreate|CFile::modeWrite);
fp.Write(mailContent,mailContent.GetLength());
fp.Close();
sendMsg.Format("dele %d\r\n",i);
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
recMsg=OnMailConnect(1);
m_MailMsg+=sendMsg;
m_MailMsg+=recMsg;
::SetWindowText(hwnd,m_MailMsg);
}
sendMsg="quit\r\n";
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
CString recMsg=OnMailConnect(1);
m_MailMsg+=sendMsg;
m_MailMsg+=recMsg;
::SetWindowText(hwnd,m_MailMsg);
mailsock.Close();
return 0;
}
void CMailDlg::OnRec()
{
hwnd=GetDlgItem(IDC_EDIT_MAIL)->GetSafeHwnd();
AfxBeginThread(mailThread,NULL,THREAD_PRIORITY_IDLE);
}
邮件
附件
发生器(自动分卷压缩)
7. **
源代码
可用**: 由于名为`MailTool`的文件可能是
源代码
,意味着用户或者开发者可以查看、学习甚至修改
源代码
以满足特定需
求
或优化性能。 总的来说,【
邮件
附件
发生器(自动分卷压缩)】是利用Java Mail API开发...
100个Java项目解析,带
源代码
和学习文档!
你是否正在寻找带有
源代码
的Java项目的免费集合?你的搜索到这里结束,我为你提供了近100多个Java项目。 想要成为一个优秀的
程序
员写项目是绕不开的,毕竟工程学的最终目标都是要创造东西,所以,代码给我敲起来! ...
Linux 电子
邮件
教程(三)
以下简单的例子展示了如何匹配所有
邮件
项目,其中标题和/或正文包含短语,并将
邮件
放在相关文件夹中。:0 HB:然而,这个过滤器将无法匹配包含短语或的项目,例如。因此,正则表达式的真正威力在于能够以简化的格式...
效率极高的分类算法
在设计软件下载这样的
程序
时,要涉及到软件的分类;如此等等。可以说,分类是一个很普遍的问题。 我常常面试一些
程序
员,而且我几乎毫无例外地要问他们一些关于分类算法的问题。下面的举几个我常常询问的问题。你...
邮件
、表格、文档全自动化:9个真实场景脚本大公开
掌握Python自动化办公脚本开发实战,轻松解决重复性工作难题。涵盖
邮件
批量发送、Excel表格处理、文档自动生成等9个真实场景,利用Python高效实现办公自动化,提升工作效率数倍。方法实用,代码可复用,值得
收
藏。
网络编程
18,357
社区成员
64,187
社区内容
发帖
与我相关
我的任务
网络编程
VC/MFC 网络编程
复制链接
扫一扫
分享
社区描述
VC/MFC 网络编程
c++
c语言
开发语言
技术论坛(原bbs)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章