Programación General > Delphi

 Problema Al Enviar Mails

<< < (2/5) > >>

bartolomeo:
Pero no entiendo yo uso este codigo para enviar mensajes y funciona bien  :blink:

dejanos ver tu codigo

RazoR:
Ugh es raro... yo justamente copié y pegué tu código y le cambié el valor del host por smtp.gmail.com el puerto por 587, después el user por razor.ar@gmail.com el password por el mio y los datos del mensaje como indicaste vos. En todo caso, no podrías enviarme en un zip/rar un ejemplo donde a vos te ande (vos lo probaste también con el de Gmail?).

Saludos, Gonzalo.

bartolomeo:

--- Citar ---En AuthType no existe el valor atLogin
--- Fin de la cita ---

Hello, comando acabo de mirar en delphi Vs 5 la componente IdSMTP1 y si tiene en la propiedad AuthenticationType el valo atlogin y ademas tiene la atnone  :blink:

Changos que pasa???  :ph34r: , hechale otra revisadita, es mas usa el codigo que te di y seguo funciona  :alien:

RazoR:
Uhm, es raro. Tengo el Delphi 7 y Indy 10. Acá dejo un screen del componente SMTP y los valores de la propiedad AuthType.



Y si quiero usar ése código me dice que no encuentra ese valor en la propiedad AuthType lógicamente :(

bartolomeo:
mmmm ya veo, tienes toda la maldita razon de nada te sirve mi codigo hecho para versiones 5 y 4 (no se las demas) con componentes indy de inferior version  :huh: .

Pues estuve dando una vueltica por la superautopista de la informacio  <_<  y encontre este codigo para enviar mensajes de correo con autenticacion con componentes indy y con la version de delphi 7  :o

asi que somo ultimo recurso te la posteo y espero que esta vez tengamos los dos mejor suerte:


--- Código: Text ---vari:integer;beginMemo.Lines.Add('Verificando el Usuario...');form6.ShowModal;if(Form6.Desconectar=0) ThenbeginMemo.clear;  //Autentificación en el servidor  IdSMTP1.AuthenticationType :=atLogin;  IdSMTP1.Username := trim(txtUsuario.Text);  IdSMTP1.Password :=trim(txtclave.Text)&#59;  // Nombre del Servidor ...  IdSMTP1.Host:=trim( txtServidor.Text );  // Puerto de correo ...  IdSMTP1.Port:=25;   try    Memo.Lines.Add('Conectando con ' + trim( txtServidor.Text ) + ', puerto 25' );    // Conectando ...    IdSMTP1.Connect;  Except    // Imposible conectar con el servidor de correo ...    Memo.lines.add('Fallo en la conexion con el servidor SMTP.');    Exit;  end;    Memo.lines.add( 'Componiendo mail ...' );    with Mensaje do begin      // Dirección origen ...      if ( trim( txtDe.Text ) &#60;&#62; '' ) then        From.Text:= trim( txtDe.Text )      else        From.Text:='desconocido@anonimo.dominio';      Memo.lines.add( 'Direccion origen : ' +   From.Text );      // Dirección destino. Se pueden indicar varias  ...      Recipients.EMailAddresses:=( trim( txtPara.Text ) );      Memo.lines.add( 'Dirección destino : ' + trim( txtPara.Text ) );      // Direcciones copia. Se pueden indicar varias ...      if( trim( txtCC.Text ) &#60;&#62; '' ) then begin        CClist.EMailAddresses:=( trim( txtCC.Text ) );        Memo.lines.add( 'CC : ' + trim( txtCC.Text ) );      end;       // Titulo del mail ...      if( trim( txtAsunto.Text )='' ) then        subject:='[Sin titulo]'      else        subject:= trim( txtAsunto.Text );      Memo.lines.add( 'Asunto : ' + subject );      // Adjuntos. Se pueden indicar varios ...      if ( trim( txtAdjunto.Text ) &#60;&#62; '') then      begin        TIdAttachment.Create(Mensaje.MessageParts,txtAdjunto.Text );        Memo.lines.add( 'Archivo Adjunto : ' + trim( txtAdjunto.text ) );      end;      if(MemoAdjunto.Visible=true) then      begin        for i:=0 to MemoAdjunto.Lines.Count-1 do          TIdAttachment.Create(Mensaje.MessageParts,MemoAdjunto.Lines[i] );        Memo.lines.Add( 'Archivos Adjuntos :');        Memo.lines.AddStrings( MemoAdjunto.Lines  );      end;      // Cuerpo del mail ...      if ( mCuerpo.Lines.Count &#62; 0 ) then begin        body.Assign(mCuerpo.Lines);        Memo.lines.add( 'Añadiendo cuerpo del E-mail ...' );        Memo.lines.add( ' ' );      end;      Memo.lines.add( 'Enviando ... ');      // Enviando mail ...      if ( trim( txtPara.Text ) &#60;&#62; '' ) then begin        IdSmtp1.Send(mensaje);        Memo.lines.add( 'E-Mail enviado.');      end else        Memo.lines.add( 'E-Mail no enviado, no se especificó dirección de destino.' );      // Desconectando ...      IdSmtp1.Disconnect;    end;    Memo.lines.add( 'Desconectado'); 
obviamente es un codigo para que te guies, pero lo he visto todo y me parece de peluche  :smartass:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior