[Lazarus-es] Resumen de Lazarus-es, Vol 100, Envío 20
Pedro Pablo Oviedo Vera
servinformat en enpa.minag.cu
Jue Feb 4 14:38:13 CET 2016
buen dia,
sobre el código que he estado probando es el descrito en el texto del
articulo "Sending mails using Lazarus" de Michael Van Canneyt, agosto
31, 2012....mas menos asi:
unit main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
ActnList,
Menus, ComCtrls, StdCtrls, smtpsend;
type
{ TForm1 }
TForm1 = class(TForm)
ActSendExecute: TAction;
ActionList1: TActionList;
ETo: TEdit;
ESubject: TEdit;
ImageList1: TImageList;
Label1: TLabel;
Label2: TLabel;
MainMenu1: TMainMenu;
MMail: TMemo;
ToolBar1: TToolBar;
bsend: TToolButton;
procedure ActSendExecuteExecute(Sender: TObject);
procedure bsendClick(Sender: TObject);
procedure ToolBar1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
FSender,
FSMTPHost,
FSMTPUser,
FSMTPPasswd : string;
procedure DOSendMail(Const Ato, ASubject : String; Content :
TStrings );
function Checksettings : boolean;
//function AddPart(const PartParent: TMimePart): TMimePart;
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.ActSendExecuteExecute(Sender: TObject);
begin
if not Checksettings then Exit;
DOSendMail(Eto.Text, ESubject.Text, MMail.Lines);
end;
procedure TForm1.bsendClick(Sender: TObject);
begin
ActSendExecuteExecute(Sender);
end;
procedure TForm1.ToolBar1Click(Sender: TObject);
begin
// ActSendExecuteExecute(Sender);
end;
procedure TForm1.DOSendMail(const Ato, ASubject: String; Content:
TStrings);
var
B: Boolean;
begin
if (FSMTPUser<>'') then
B:=
SendToEx(FSender,ATo,ASubject,FSMTPHost,Content,FSMTPUser,FSMTPPasswd)
else
B:= SendTo(FSender,ATo,ASubject,FSMTPHost,Content);
if not B then
ShowMessage('No se pudo enviar el mensaje!')
else
ShowMessage('El mensaje ha sido enviado satisfactoriamente!');
end;
function TForm1.Checksettings: boolean;
begin
if (FSender = '') or
(FSMTPHost = '' ) or
( FSMTPUser = '' ) or
( FSMTPPasswd = '') then
Result := False
else
Result := True;
end;
end.
El sáb, 30-01-2016 a las 12:00 +0100,
lazarus-es-request en lists.lazarus.freepascal.org escribió:
> Envíe los mensajes para la lista Lazarus-es a
> lazarus-es en lists.lazarus.freepascal.org
>
> Para subscribirse o anular su subscripción a través de la WEB
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
> O por correo electrónico, enviando un mensaje con el texto "help" en
> el asunto (subject) o en el cuerpo a:
> lazarus-es-request en lists.lazarus.freepascal.org
>
> Puede contactar con el responsable de la lista escribiendo a:
> lazarus-es-owner en lists.lazarus.freepascal.org
>
> Si responde a algún contenido de este mensaje, por favor, edite la
> linea del asunto (subject) para que el texto sea mas especifico que:
> "Re: Contents of Lazarus-es digest...". Además, por favor, incluya en
> la respuesta sólo aquellas partes del mensaje a las que está
> respondiendo.
>
>
> Asuntos del día:
>
> 1. Problemas con Synaptic (Pedro Pablo Oviedo Vera)
> 2. Perdon!!! de forma correcta debe decir Problemas con Synapse
> (Pedro Pablo Oviedo Vera)
> 3. Re: Problemas con Synaptic (Maxi)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Fri, 29 Jan 2016 12:22:04 -0500
> From: Pedro Pablo Oviedo Vera <servinformat en enpa.minag.cu>
> Subject: [Lazarus-es] Problemas con Synaptic
> To: lazarus-es en lists.lazarus.freepascal.org
> Message-ID: <1454088124.15692.8.camel en ubuENPA>
> Content-Type: text/plain; charset="UTF-8"
>
> estoy intentando añadir a una app que mantengo la posibilidad de enviar
> informes mediante email a determinados remitentes dentro de la
> organizacion en que trabajo, para ello estoy usando la lib synactic,
> pero cuando hago el intento de smtpsend ubuntu protesta y me dice que
> hay Access Violation....aun cuando lo intento ejecutando como
> root...entonces alguna ayuda por favor.
>
> Saludos
> pp
>
> pd: mi plataforma es Ubuntu 10.10 y lazarus 1.4.0
>
> --
> MSc. Ing. Pedro Pablo Oviedo Vera
> Dirección Técnica y Desarrollo
> Empresa de Proyectos e Ingeniería del
> Ministerio de la Agricultura.ENPA.
> Boyeros y Conill, Piso 10 Edif MINAG
> Telef. (07) 884 7649
>
> "La ENPA 35 Años al Servicio de la Agricultura
> 1981-2016"
>
>
>
>
> ------------------------------
>
> Message: 2
> Date: Fri, 29 Jan 2016 12:25:32 -0500
> From: Pedro Pablo Oviedo Vera <servinformat en enpa.minag.cu>
> Subject: [Lazarus-es] Perdon!!! de forma correcta debe decir Problemas
> con Synapse
> To: lazarus-es en lists.lazarus.freepascal.org
> Message-ID: <1454088332.15692.10.camel en ubuENPA>
> Content-Type: text/plain; charset="UTF-8"
>
> perdonen mi error equipo ...mi anterior post se refiere a
> Synapse....Gracias.
>
>
> Saludos
> pp
>
>
> --
> MSc. Ing. Pedro Pablo Oviedo Vera
> Dirección Técnica y Desarrollo
> Empresa de Proyectos e Ingeniería del
> Ministerio de la Agricultura.ENPA.
> Boyeros y Conill, Piso 10 Edif MINAG
> Telef. (07) 884 7649
>
> "La ENPA 35 Años al Servicio de la Agricultura
> 1981-2016"
>
>
>
>
> ------------------------------
>
> Message: 3
> Date: Fri, 29 Jan 2016 17:17:16 -0300
> From: Maxi <maximiliano.duarte en gmail.com>
> Subject: Re: [Lazarus-es] Problemas con Synaptic
> To: Spanish version of Lazarus List
> <lazarus-es en lists.lazarus.freepascal.org>
> Message-ID:
> <CAOL=nApyvyPOaAV4a73E+2R7DwWoRtVBW8Nx_WSxw=mT3m2E5g en mail.gmail.com>
> Content-Type: text/plain; charset=UTF-8
>
> codigo?
>
> El día 29 de enero de 2016, 14:22, Pedro Pablo Oviedo Vera
> <servinformat en enpa.minag.cu> escribió:
> > estoy intentando añadir a una app que mantengo la posibilidad de enviar
> > informes mediante email a determinados remitentes dentro de la
> > organizacion en que trabajo, para ello estoy usando la lib synactic,
> > pero cuando hago el intento de smtpsend ubuntu protesta y me dice que
> > hay Access Violation....aun cuando lo intento ejecutando como
> > root...entonces alguna ayuda por favor.
> >
> > Saludos
> > pp
> >
> > pd: mi plataforma es Ubuntu 10.10 y lazarus 1.4.0
> >
> > --
> > MSc. Ing. Pedro Pablo Oviedo Vera
> > Dirección Técnica y Desarrollo
> > Empresa de Proyectos e Ingeniería del
> > Ministerio de la Agricultura.ENPA.
> > Boyeros y Conill, Piso 10 Edif MINAG
> > Telef. (07) 884 7649
> >
> > "La ENPA 35 Años al Servicio de la Agricultura
> > 1981-2016"
> >
> >
> > _______________________________________________
> > Lazarus-es mailing list
> > Lazarus-es en lists.lazarus.freepascal.org
> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
>
--
MSc. Ing. Pedro Pablo Oviedo Vera
Dirección Técnica y Desarrollo
Empresa de Proyectos e Ingeniería del
Ministerio de la Agricultura.ENPA.
Boyeros y Conill, Piso 10 Edif MINAG
Telef. (07) 884 7649
"La ENPA 35 Años al Servicio de la Agricultura
1981-2016"
More information about the Lazarus-es
mailing list