Komponenter

vil desuden gerne have et eksempel på at maile med indy, komplet eksempel tak, der gives 15 point ekstra for det...

var
  TCPClient : TIdTCPClient;

implementation

{$R *.dfm}

procedure CreateIndyClient(Sender: TObject);
begin
  TCPClient := TIdTCPClient.Create(Self);
end;

At maile med Indy, prøv at se i dit demos bibliotek, der ligger et helt mail program
Demo\\Indy\\MailClient

Ellers har du sende proceduren her

procedure TfrmMain.RetrieveExecute(Sender: TObject);
var
  stTemp: string;
  intIndex: Integer;
  li: TListItem;
begin
  stTemp := Statusbar1.Panels[1].text;
  if lvHeaders.Selected = nil then
  begin
    Exit;
  end;
  //initialise
  Showbusy(true);
  Msg.Clear;
  Memo1.Clear;
  lvMessageParts.Items.Clear;
  From.Caption := \'\';
  Cc.Caption := \'\';
  Subject.Caption := \'\';
  Date.Caption := \'\';
  Receipt.Caption := \'\';
  Organization.Caption := \'\';
  Priority.Caption := \'\';
  pnlAttachments.visible := false;

  //get message and put into MSG
  ShowStatus(\'Retrieving message \"\' + lvHeaders.Selected.SubItems.Strings[3] +
    \'\"\');
  POP.Retrieve(lvHeaders.Selected.Index + 1, Msg);
  statusbar1.Panels[0].text := lvHeaders.Selected.SubItems.Strings[3];

  //Setup fields on screen from MSG
  From.Caption := Msg.From.Text;
  Recipients.Caption := Msg.Recipients.EmailAddresses;
  Cc.Caption := Msg.CCList.EMailAddresses;
  Subject.Caption := Msg.Subject;
  Date.Caption := FormatDateTime(\'dd mmm yyyy hh:mm:ss\', Msg.Date);
  Receipt.Caption := Msg.ReceiptRecipient.Text;
  Organization.Caption := Msg.Organization;
  Priority.Caption := IntToStr(Ord(Msg.Priority) + 1);

  //Setup attachments list
  ShowStatus(\'Decoding attachments (\' + IntToStr(Msg.MessageParts.Count) + \')\');
  for intIndex := 0 to Pred(Msg.MessageParts.Count) do
  begin
    if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
    begin //general attachment
      pnlAttachments.visible := true;
      li := lvMessageParts.Items.Add;
      li.ImageIndex := 8;
      li.Caption := TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename;
      //  li.SubItems.Add(TIdAttachment(Msg.MessageParts.Items[intIndex]).ContentType);
    end
    else
    begin //body text
      if Msg.MessageParts.Items[intIndex] is TIdText then
      begin
        Memo1.Lines.Clear;
        Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[intIndex]).Body);
      end
    end;
  end;
  ShowStatus(stTemp);
  Showbusy(false);
end;

jeg har ikke den demo, da jeg bruger personal versionen, og jeg kan altså heller ikke lige gennemskue hvilke del af den kode der sender mailen ??

Skal jeg sende demoen til dig ?

ja tak, sbjensen@mail1.stofanet.dk

er sendt

hmm jeg har nogle problemer med det, jeg har kigget på din demo og brugt det jeg tror er nok´.. men det virker ikke, kan jeg sende projektet til dig?

mos@mail1.stofanet.dk

Her ligger en komplet beskrivelse på hvordan du gør
http://delphi.about.com/gi/dynamic/offsite.htm?site=http%3A%2F%2Fcommunity.borland.com%2Farticle%2F0%2C1410%2C10190%2C00.html

Incl. sourcecode

/Morten

Jeg har mistet interessen for projektet, jeg nåede ikke engang at kigge på det du sendte :/

men du får alligevel points\'ne :O)