Mensaje SMS

[jjoliveras]

Hola diegolf

no necesitas ningún controlador ActiveX, tan solo necesitas dos componentes que te vienen con las Indy, que son TIdSMTP y TIdMessage en las pestaña Indy Clients, e incluso puedes enviar ficheros adjuntos y autenticación en servidores.

Te dejo parte de mi código por si te sirviera de algo.

Código Delphi [-]
  
//configuramos el SMTP
  with SMTP do
    begin
      Host := 'mail.tuservidorsmtp.com';
      HeloName := Copy('tucuenta@correo.com', Pos('@', 'tucuenta@correo.com')+1,
        length('tucuenta@correo.com')-Pos('@', 'tucuenta@correo.com'));
      if lCor_Autentificar then
        begin
          AuthenticationType := atLogin;
          if (cCor_Aut_Usuario <> '') then UserName := cCor_Aut_Usuario
          else UserName := 'tucuenta@correo.com';
          if (cCor_Aut_Clave <> '') then Password := cCor_Aut_Clave
          else Password := 'tucontraseña';
        end
      else AuthenticationType := atNone;

      if nCor_Pue_Smtp <> 0 then Port := nCor_Pue_Smtp
      else Port := 25;
    end;

  //configuramos el correo
  with MailMessage do
    begin
      From.Address := 'tucuenta@correo.com';
      From.Name := 'tucuenta@correo.com';      
      Recipients.EMailAddresses := 'destinatario@correo.com';
      CharSet := 'iso-8859-1';

      Subject := teAsunto.Text;
      Body.Text := meMensaje.Lines.Text;
    end;

  // fichero adjunto
  if FileExists(teFichero.Text) then
    TIdAttachment.Create(MailMessage.MessageParts, teFichero.Text);

  //enviamos el correo
  try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;

  end;

Espero te sirva de referencia.

Saludos.

[juanelo]

no necesitas ningún controlador ActiveX, tan solo necesitas dos componentes que te vienen con las Indy, que son TIdSMTP y TIdMessage en las pestaña Indy Clients, e incluso puedes enviar ficheros adjuntos y autenticación en servidores.

Lo que está en duda es como mandar Mensajes de texto a celulares (SMS) y no el poder enviar correos electronicos, al menos eso es lo que creo q pregunta el compañero.
Saludos

[jjoliveras]

Dios estoy a por pipas.

Siento el terrible y catastrófico error cometido, mea culpa, no lei bien el mensaje y entendí mensajes de correo electrónico.

Ejem, ejem, pido mis mas sinceras disculpas y hago mutis por el foro......

[[ArdiIIa]]

A ver si por aquí sale algo....

[diegolf]

Pregunto a todos los usuarios de este foro: a nadie le pidieron que el sistema (realizado en Delphi) envie mensajes SMS. Parece que hasta ahora nadie ha encontrado una solución concreta. Sería bueno que entre todos hagamos un aporte para que quede como un truco en este sitio.
Saludos.

[dec]

Hola,

Es que no hay ninguna aplicación que sea capaz de hacer algo así, como no sea con una pasarela,... es decir, necesitarás de una compañía que te proporcione el medio de enviar mensajes SMS, y, a partir de ahí, ver cómo se supone que tienes que hacerlo.

Por ejemplo, en Internet puedes contratar empresas que te permiten enviar SMS vía Web. Siendo esto así, probablemente, ya podrías meterle mano desde Delphi y tratar de hacerlo desde ahí en lugar desde la Web, pero, el mensaje SMS de por sí no puede enviarlo Delphi, ni ninguna otra aplicación.

¿Se entiende lo que quiero decir? Alguien tiene que enviar el SMS (empresa que a su vez tenga contratado el servicio con una operadora de telefonía) y uno sólo puede tratar (desde Delphi o desde donde sea) con ese alguien. Delphi, ni ninguna otra herramienta, por sí sola, puede enviar mensajes SMS.

Tal vez (otra posible solución) sería conectar un teléfono móvil a un ordenador... y a partir de ahí tratar desde Delphi de comunicar con el teléfono móvil y hacer que este envíe un SMS. Claro que dependerá del teléfono... que cada cual es de su padre y de su madre.

[diegolf]

Agradezco tu aporte, pero todo lo que decis es más que obvio.
Segui participando.