BCB制作简单邮件发送器

BCB制作简单邮件发送器

一、准备阶段：BCB编译环境，控件IdSMTP , IdMessage 。SMTP是登录邮箱和服务器的，Message则是记录发件人，收件人，邮件主题和邮件内容。

二、实施阶段：IdSMTP重要的几点：

 　SMTP->AuthType =satDefault ;    //设置为默认
    SMTP->Host = "smtp.126.com";
    SMTP->Username = userName;
    SMTP->Password = passWord;
    SMTP->Port = 25;

                       

服务器Host是发件人的邮箱服务器，Username是发件人邮箱，Password是发件人邮箱密码，Port是端口，一般默认为25.

IdMessage重要的几点：

   Message->Recipients->EMailAddresses = receiveUser ;
   Message->From->Text  = sendUser;
   Message->Subject = subject.Trim();
   Message->Body->Add(body.Trim() );

 

Recipients即是收件人地址，From是发件人地址，Subject是邮件主题，Body是邮件内容。

三、以上都填写好了之后，就可以写连接服务器的代码了：

　　　　

　　if (SMTP->Connected() )    

　　{     

　　SMTP->Disconnect();  //断开上次会话  

　　  }   

　　 SMTP->Connect() ; // 连接SMTP服务器

　　 if ( SMTP->Authenticate() ) // 用户验证(是否登录成功)   

　　 {     

　　SMTP->Send(Message); // 发送邮件    

　　 ShowMessage("发送成功！");

 　　  }   

 　　SMTP->Disconnect(); // 中断连接SMTP服务器

 

先要判断之前是否连接，断开之前的连接，重新连接属于你自己的邮箱服务器，此时需要判断是否连接成功，连接成功后调用SMTP的Send函数发送Message就行了！

四、此外POP3是用于接收邮件的，目前还没去探索它，先mark在这里，以后有机会再试试！以上都是比较关键的几点代码，其他控件的摆放和使用都可以自由发挥。

啊 、发现一个巨大的bug！！发不了中文邮件！！有没有高手帮忙解决下啊？？？ 郁闷死了啊~~~~~