Email-program

Prøv at kigge i demos/fastnet/pop3

Der ligger et lille simpelt email-demo program der er meget overskueligt.

/Martin

Jeg ved ikke hvordan man laver vedhæftede filer men ellers har jeg lavet et lille emailprogram vha. af komponenter fra INDY.
Jeg sender dig gerne en opskrift på hvorledes man kan sende en email fra et program.

Hvorfor bruge en masse 3\'part produkter når delphi har nogle std. componenter til det samme.

martinlind >> Fordi ikke alle versioner af Delphi har de komponenter du omtaler ;o)

Jeg har prøvet de demoer der i Delphi-mappen, men jeg synes ikke selv, at de er gode nok.

LSN

Så nemt kan det gøres med INDY-komponenterne, som oven i købet er Open Source.

unit mailUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, IdMessage, ComCtrls, IdEMailAddress, Buttons;

type
  TForm1 = class(TForm)
    netMessage: TIdMessage;
    netSMTP: TIdSMTP;
    RichEdit1: TRichEdit;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    Button1: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
shost, sTo,sFrom : String;
EMailAddress: TIdEMailAddressItem;

begin
  sHost := \'mailhost\';
  sTo := \'username\';
  sFrom := \'Userfrom\';
  EMailAddress:=netMessage.Recipients.Add;
  EMailAddress.Address:=sTo;
  with netSMTP do
  Begin
    Host := sHost;
    MailAgent := \'Indy - version: \' + GetVersion;
    Label3.Caption:=\'Opretter forbindelse...\';
    Connect;
  End;
  if netSMTP.Connected then
  begin
    Label3.Caption:=\'Mail overføres...\';
    netMessage.From.Text := sFrom;
netMessage.Recipients.EMailAddresses := sTo;
    netMessage.Subject := Edit1.Text;
    netMessage.Body.Text := Richedit1.text;
    netMessage.UseNowForDate := true;
    netSMTP.Send(netMessage);
    netSMTP.Disconnect;
    Label3.Caption:=\'Overførslen afsluttet.\';
  end;
end;

Luk spørgsmålet: Svaret er givet.

Delphi

Jammen hvor er INDY-komponenterne så?
Jeg har ikke set dem et eneste sted.

Til NCA: Vil du ikke nok sende et eksempel til mig via email? Min email-adresse er:
webmaster@lsn-system.com
MED INDY-komponenterne vedhæftet.

LSN

Du kan download INDY med en masse demoer fra denne adresse:
http://www.nevrona.com/Indy/
Hvis du bruger nedenstående adresse og søger på INDY vil du her kunne finde yderligere oplysninger:
http://www.mers.com/searchsite.html#newssearch