How send mail from mode console
lazarus / 1-Linux

----------------------------------------------------------------------
pcicom · 2010-06-14 18:45

Hi, i intented send mail from mode console, using lnet, but not found

this my code..

Code: [Select]
program SMTPSend;

{$mode objfpc}{$H+}

uses
  SysUtils, Classes, Crt, lNet, lSMTP, lNetSSL,strutils;

var
  SMTP: TLSMTPClient;
  cServidor,cPuerto,cUser,cPass,cTo,cTitulo,cMensaje:String;
  Puerto: Word = 587;
  sMensaje :TMemoryStream;
  i,Valor:Integer;
begin

    cServidor  := 'mydominio.com';
    cPuerto    := '587';
    Puerto     :=  Word(Strtoint(cPuerto));
    cUser      := 'usuario@mydominio.com';
    cPass      := '12345';
    cTo        := 'joseph@pcicom.net';
    cTitulo    := 'Titulo del mensaje';
    cMensaje   := 'HI, HOW ARE YOU, TIHIE MESSAGE FROM LINUX MODE
CONSOLE';

    sMensaje   := TMemoryStream.Create;
    i:=1;
   while i <= length(cMensaje) do
    begin
        valor:=Ord(cMensaje[i]);
        sMensaje.write(valor,1);
        Inc(i);
    end;
    sMensaje.Position:= 0;

    SMTP := TLSMTPClient.Create(nil);
    if NOT SMTP.Connect(cServidor, Puerto) then
    begin
        writeln('Not connect to SERVER SMTP');
        halt(1);
    end;
    if SMTP.HasFeature('AUTH LOGIN') then
        SMTP.AuthLogin(cUser, cPass);

    Try
       SMTP.SendMail(cUser, cTo, cTitulo, sMensaje);
    except
    end;
    Try
       SMTP.SendMail(cUser, cTo, cTitulo, cMensaje);
    except
    end;
    SMTP.quit;
    SMTP.Free;

end.

----------------------------------------------------------------------
theo · 2010-06-15 00:52

RTFM ;-)
http://wiki.lazarus.freepascal.org/lNet#Installation

Or use synapse http://synapse.ararat.cz/