Mail program

Den demo du har set på er det Indy ?

Hvis ikke er det vist lige det eks. du skal bruge.

Stoney

ja så må den også gerne kunne vise html mails

fatter bare minus af det....  stoney har du et forsalg til en ½ newbie til at lave et program ??

jamen, har du set det indy eks ?

Stoney

Ja, jeg fatter da ikke en meter af hvad der forgår.... det er 2tal umiligt at finde rundt i....  jeg tror bare jeg skal lave noget der er letter til at starte med.. tror du ikke.. ??

Prøv at printe alle unit's ud og læs det stille og roligt igennem.
Jeg synes det er en genial demo.
Jeg tror bare det variabel-navnene og Indy commando'erne der gør dig "bange".
Hvis du har spørgsmål vedr. koden skal du være velkommen til at spørge.

Stoney

OK OK... som du vil 8-)...*G*

jeg ser koden igennem 110%... vi starter med hvad mener de med

var
  MailIni: TIniFile;
begin
  MailIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Mail.ini');

Jeg forstår det sådan...
var // gør klar til at huske på noget
  MailIni: TIniFile; // husk værdien MailIni som er af typen Ini fil
begin
  MailIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Mail.ini'); // her går jeg kold

Den ligger/laver bare ini filen mail.ini i det samme bibliotek som din exe fil/program

Stoney

hvad betyder
Showbusy(true);

Det er bare en procedure der sætter en værdi sand/falsk

procedure TfrmMain.ShowBusy(blBusy: boolean);

Stoney

hmmmm ok... ved du hvad jeg går lig igang selv med at fedte med det... så der kommer nok en HEL del MEGET dumme spørgsmål du gerne må hjælpe med...

du skal nok få en del point ....

kan man have 2 projekter open i delphi på 1 gang så jeg kan kigge efter hvis jeg vil *S*

Du kan starte delphi 2 gange.
Men kopier projectet over i en extra mappe og åbn dem fra hver sin mappe.
Ellers går det galt hvis du ændrer og kompiler.

Stoney

Prøv lige og se dette site, der ligger kode + beskrivelse på hvordan du laver et mailprogram


http://delphi.about.com/gi/dynamic/offsite.htm?site=http%3A%2F%2Fcommunity.borland.com%2Farticle%2F0%2C1410%2C10190%2C00.html

Her har du hans source kode

http://community.borland.com/article/images/10190/dblast.zip

Her er et lille eksempel lavet med INDY komponenter

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
  // Just change these to test
  sHost := 'mail.xxxxx.dk';
  sTo := 'Bruger <xxx@tele.dk>';
  sFrom := 'Me <NielsChr. Andersen>';

  // end change
  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.ReplyTo := netMessage.From}
  { netMessage.Sender := netMessage.From; }
    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;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if paramcount>0 then begin
    RichEdit1.Lines.LoadFromFile(ParamStr(1));
    Edit1.Text:=RichEdit1.Lines[0];
    RichEdit1.Lines.Delete(0);
  end;

end;

end.

hmm skulle lave pop3 først... ikke særligt sjovt at sendes mail hvis man ikke kan modtage...

Du kan også modtage mails, det lige du udfylder dine mailserversettings.
Den knap med værktøj (hammer, etc.)

Stoney

Jeg opgiver