buenas tardes, club me solicitaron un programa para enviar correos desde delphi, o como prepararlo el asunto, destinatario, el adjunto y pasarlo al outlook express.
Bueno lo cierto es que para facilitarme la tarea lo que hice es que use los componentes fasnet de delphi 5.0 el cual investige el puerto 587 para la cuenta de yahoo y me da un error 530 authentication requiered.
En la maquina tengo internet pero no tengo ninguna cuenta dada de alta desde el outlook espress o el otro outlook, que puedo hacer
y este es mi codigo, que tiene Tedit para pasarle el destinatario, el puerto, el host, etc.
Código Delphi
[-]
procedure TForm1.enviar;
begin
NMSMTP1.Port:=StrToInt(Trim(txtport.Text));
NMSMTP1.Host:=EdHost.Text;
NMSMTP1.UserID:=Trim(edUserID.Text);
if not (NMSMTP1.Connected) then
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress :=trim(edUserID.Text);
NMSMTP1.PostMessage.FromName :=Nombre_del_usuario';
if RadioButton1.Checked=true then
NMSMTP1.SubType:=mtPlain
else
if RadioButton2.Checked=true then
NMSMTP1.SubType:=mtHtml;
NMSMTP1.PostMessage.Subject:=trim(Edit3.text);
NMSMTP1.PostMessage.ToAddress.Add(Form1.Edit1.Text);
NMSMTP1.PostMessage.ToCarbonCopy.Add(Form1.Edit2.Text);
NMSMTP1.PostMessage.Attachments.AddStrings(Listbox1.Items);
NMSMTP1.PostMessage.Body.Text:=Memo1.Text;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
para los attach debo encontar la manera de que por medio de una ruta de directorio me vaya agregando los archivos para adjuntarlos, eso creo que se puede hacer por medio de un listbox y saber cuantos archivos son.
Me pudieran decir que le falta al programa para que salgan los correos, ese el codigo.
les agradesco
Gracias.