高分求助：写邮箱发送程序（SMTP Server：gmail,yahoo,hotmail)200分，大发送。 ( 积分: 100 )

哪位大哥帮小弟一把，现在要写个邮件发送程序。我用的是gmail的邮箱offeric@gmail.com
用的以下2个控件：Tldsmtp和Tldmessage ,写好了，不能发送，急急急！200分，大发送。
smtp.AuthenticationType := atLogin;
smtp.Host:= trim(edhost.Text);
smtp.Port:=465;
smtp.Username:=edit3.Text;
smtp.Password:=edit2.Text;
mailmessage.from.Address:=trim(edfromaddress.Text);
MailMessage.Subject:=edsubject.Text;
MailMessage.Body.Text:=memo12.text;
mailmessage.Recipients.EMailAddresses:= str;
smtp.Disconnect;
try
smtp.Connect(1000);
smtp.Send(mailmessage);
except
end;
163.com其他的可以发，就是这这三个不行，且还必须用这三个中的一个，我现在选Gmail

哪位大哥帮小弟一把，现在要写个邮件发送程序。我用的是gmail的邮箱offeric@gmail.com
用的以下2个控件：Tldsmtp和Tldmessage ,写好了，不能发送，急急急！200分，大发送。
smtp.AuthenticationType := atLogin;
smtp.Host:= trim(edhost.Text);
smtp.Port:=465;
smtp.Username:=edit3.Text;
smtp.Password:=edit2.Text;
mailmessage.from.Address:=trim(edfromaddress.Text);
MailMessage.Subject:=edsubject.Text;
MailMessage.Body.Text:=memo12.text;
mailmessage.Recipients.EMailAddresses:= str;
smtp.Disconnect;
try
smtp.Connect(1000);
smtp.Send(mailmessage);
except
end;
163.com其他的可以发，就是这这三个不行，且还必须用这三个中的一个，我现在选Gmail

先指定一个服务器如smtp.163.com。指定帐户和密码，测试一下

其他邮件可以，但退信10%，发不出去，我主要用于群发到国外，现在想用Gmail这个退信少，防垃圾，能帮我测试一下吗？搞定了200分都是你的了，