关于发送邮件的简单问题

Question

我用nmsmtp控件发送邮件，但是邮件内容为中文时显示为乱码，请教各位大侠怎样解决。另外，如果我还想把附件一并发送，应该怎样办？？？

Answer 1

你用nmpop3控制做个接收邮件的程序，这样就不用decodebase64换码后发行了，一切OK 
我曾有过这样的经历，

Answer 2

我的源码如下，请问该如何修改，头文件又是哪一个
procedure TForm1.Button1Click(Sender: TObject);
begin
if nmsmtp1.connected then nmsmtp1.Disconnect;
nmsmtp1.Host:=edit1.Text;
nmsmtp1.Port:=strtoint(edit2.Text);
nmsmtp1.UserID:=edit3.Text;
nmsmtp1.Connect;
nmsmtp1.PostMessage.FromAddress:=edit6.Text;
nmsmtp1.PostMessage.FromName:=edit7.Text;
nmsmtp1.PostMessage.Subject:=edit5.Text;
nmsmtp1.PostMessage.ToAddress.Add(edit4.Text);
nmsmtp1.PostMessage.Body.Assign((memo1.Lines));nmsmtp1.SendMail;
end;

Answer 3

请教一下DecodeBase64怎样使用，能否给出例子

Answer 4

最好用多线程.
发现一个可以下载(Delphi)代码的地方:  
http://www.datcn.com/luntan/dispbbs.asp?boardID=26&ID=879