Este es el código de un mailer anónimo que estube haciendo hace tiempo, cuando me pregunté cómo funcionarían estos:
Código:
SMTP1.UserID := PalabraAleatoria (6);
Estado1.Caption := 'Conectando...';
try SMTP1.Connect Except
ShowMessage ('Error al conectar con el servidor SMTP');
end;
Estado1.Caption := 'Enviando datos...';
Progreso1.Position := 30;
SMTP1.PostMessage.FromAddress := PalabraAleatoria (7)+'@'+ PalabraAleatoria (5)+'.'+PalabraAleatoria (3);
SMTP1.PostMessage.FromName := PalabraAleatoria (8);
SMTP1.PostMessage.ToAddress.Text := ePara.Text;
SMTP1.PostMessage.Body.Text := eMensaje.Text;
SMTP1.PostMessage.Subject := eAsunto.Text;
Estado1.Caption := 'Enviando correo...';
Progreso1.Position := 70;
SMTP1.SendMail;
Progreso1.Position := 100;
Estado1.Caption := 'Desconectando...';
SMTP1.Disconnect;
Como siempre, confío en mis compañeros de clubdelphi para que me corrijan