使用smtp发送邮件(源码)

使用smtp发送邮件(源码)

ID:41127524

大小:24.69 KB

页数:15页

时间:2019-08-17

使用smtp发送邮件(源码)_第1页
使用smtp发送邮件(源码)_第2页
使用smtp发送邮件(源码)_第3页
使用smtp发送邮件(源码)_第4页
使用smtp发送邮件(源码)_第5页
资源描述:

《使用smtp发送邮件(源码)》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、使用smtp发送邮件(源码)源文件:   #include   #pragmahdrstop   #include"sendmail.h"   #include"mmsystem.h"   #pragmapackage(smart_init)   structRecvEmailInfo   {       AnsiString    strSubject,strFrom,strTo,strContent,strCmdDate,strCmdNum;       int           nRecNum,nSendCount;       TList        *Attac

2、hList;   };   structAttachInfo   {       AnsiString    FileName;       int           Length;       BYTE         *Content;   };   __fastcallTSendMailThread::TSendMailThread(boolCreateSuspended,intsleeptime)    :TThread(CreateSuspended)   {    Ftime          =sleeptime;       FreeOnTerminate=true;  

3、     nSendFlag      =-1;       nCommandKind   =0;       strBoundary    ="----Mailor_of_qurqur.China----";       RecvEmailList=newTList;       /*TMemoryStream*ms=newTMemoryStream();       ms->LoadFromFile("d:\test.txt");       RecvEmailInfo*pREI;       AttachInfo*pAI;       for(inti=0;i<5;i++)    

4、   {           pAI=newAttachInfo;           pREI=newRecvEmailInfo;           pAI->FileName="test.txt";           pAI->Length  =ms->Size;           pAI->Content=newBYTE[ms->Size];           ms->Position=0;           ms->ReadBuffer(pAI->Content,ms->Size);           pREI->AttachList=newTList;        

5、   pREI->AttachList->Add(pAI);           pREI->strSubject="humor";           pREI->strFrom="qurqur@163.net";           pREI->strTo  ="qurqur@163.net;           pREI->strContent="test";           pREI->nSendCount=5;           RecvEmailList->Add(pREI);       }       deletems;*/   }   void__fastcallT

6、SendMailThread::Execute()   {       WORDwVersionRequested;       WSADATAwsaData;       interr;       wVersionRequested=MAKEWORD(2,2);       err=WSAStartup(wVersionRequested,&wsaData);       if(err!=0)       {           //TelltheuserthatwecouldnotfindausableWinSockDLL.           return;       }    

7、   if(LOBYTE(wsaData.wVersion)!=2

8、

9、HIBYTE(wsaData.wVersion)!=2)       {           //TelltheuserthatwecouldnotfindausableWinSockDLL.           WSACleanup();           return;       }    while(!Terminated)       { 

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。