|
che, yo logre hacerlo andar para cualquier dire de mail. Tal vez sea el server de smtp que le pusiste.
Aca te paso mi codigo:
NMSMTP1.Port:=25;
NMSMTP1.Host:='smtp.hotpop.com';
NMSMTP1.UserID:= 'nachomezzadra@hotpop.com' ;
if not (NMSMTP1.Connected) then
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := 'tu_dir_de_mail@server.com';
NMSMTP1.PostMessage.FromName := 'Tu nombre';
NMSMTP1.PostMessage.ToAddress.Add(Form1.Edit1.Text);
NMSMTP1.PostMessage.Attachments.Text := 'mi_archivo.txt';
NMSMTP1.PostMessage.Body.Text:=memo1.Text;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
Saludos y espero q te sirva!
naker.-
|