Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-02-2007
uper uper is offline
Miembro
 
Registrado: abr 2004
Posts: 296
Poder: 21
uper Va por buen camino
Enviar correo desde fastnet desde delphi.

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.

Última edición por dec fecha: 19-02-2007 a las 21:43:36.
Responder Con Cita
  #2  
Antiguo 20-02-2007
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
Código Delphi [-]
with FormaPrin.SMTP do begin
   try
    try
     Connect;
    except on E:Exception do begin
     messagebox(Handle,'No se pudo establecer la conexión.','Error.',MB_oK+MB_ICONERROR);
     end; //fin except
    end; // fin try - except
   finally
    if Connected then begin
      PostMessage.FromAddress:=strOrigen;
      PostMessage.ToAddress.Text:=edtMail0.Text;
      if edtMail1.Text<>'' then
        PostMessage.ToCarbonCopy.Text:=edtmail1.text;
      with PostMessage.Body do begin
       Clear;
       Add(edtHTML.Text);
      end; //with body
       PostMessage.Subject:=edtAsunto.Text;
       SendMail;
       Disconnect;
     end; //if connected
    end; //fin try - finally
   end; //with smtp
__________________

Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Enviar Java desde Delphi mazinger Internet 8 13-05-2006 20:19:19
Llamada al cliente de correo predeterminado desde aplicación delphi radiohead Internet 1 08-06-2004 10:58:13
enviar mail desde delphi 7 Diego Internet 2 07-06-2004 14:07:50
enviar un amail desde delphi 5 camambrini Internet 1 03-01-2004 16:52:06
Mandar un correo desde delphi magm2000 Internet 5 02-10-2003 00:51:09


La franja horaria es GMT +2. Ahora son las 10:51:33.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi