Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2016-02

Resumen de Lazarus-es, Vol 100, Envío 20

1 message · 1 person ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Pedro Pablo Oviedo Vera

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�:

Show quoted text 144 lines
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"

Reply by email