Gem en email som \"kladde\" i Oulook Express.

Da du IKKE kan bruge COM/OLE til OE, er der nok ikke andre muligheder end en ShellExecute

Jeg ser det ikke som et svar ...
Jeg VED at jeg ved at kunne bruge flg. kode kan sende en mail via OE (NNSMTP komponenten) ...
Men jeg vil IKKE sende den .. KUN gemme den som
kladde !

prøv igen martinlind :-).

Her er koden :-)

********** sovs *************

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.Host := \'mail.host.com\';
  NMSMTP1.UserID := \'Username\';
  NMSMTP1.Connect;
  NMSMTP1.PostMessage.FromAddress := \'webmaster@swissdelphicenter.ch\';
  NMSMTP1.PostMessage.ToAddress.Text := \'user@host.com\';
  NMSMTP1.PostMessage.ToCarbonCopy.Text := \'AnotherUser@host.com\';
  NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := \'AnotherUser@host.com\';
  NMSMTP1.PostMessage.Body.Text := \'This is the message\';
  NMSMTP1.PostMessage.Attachments.text := \'c:\\File.txt\';
  NMSMTP1.PostMessage.Subject := \'Mail subject\';
  NMSMTP1.SendMail;
  showmessage(\'Mail sent !\');
  NMSMTP1.Disconnect;
end;
***********

Læs lidt på lektien inden du er kadefo, NMSMTP1 bruger IKKE OE, den har sin egen mail klient, og da du søgte en måde hvor du bruger OE, så kan du IKKE bruge den comp. ej heller INDY\'s mail klient.

( Kvaj )

hmmmm ... måske du kunne anbefale en bog ?
Skadefro ?? Ikke mig .. bare lidt glad for at få svar på mit spørgsmål !
Og sorry ...  det var en anden comp. jeg brugte !
(TMapiMail)

og sovsen ser sådan her ud !

      mapiMail.Clear;

      mapiMail.RecipientsTo.Clear;
      mapiMail.RecipientsCC.Clear;
      mapiMail.RecipientsTo.Add(\'test@test.dk\');
      mapiMail.Subject:= \'\';
      mapiMail.NoteText.Clear;
      mapiMail.Attachments.Clear;
      mapiMail.Attachments.Add(\'c:\\SomeFile.txt\');
      mapiMail.Options:=[mfShowUI];
      mapiMail.SaveMail;

**********

Da du ikke kender komponenten kan du self. ikke hjælpe mig med den !
Problemet med den komponent var at den IKKE gemte mailen i kladder  -  men i indbakken ?!?! Hvilket ikke var skidesmart !

Men kom med en OE løsning (evt. ved hjælp af en freeware comp. med sovs).

/ Kvajet :-)

200 points for en henvisning til en freeware komponent MED source er vel ok ?

Du må da gerne sende soucen så kan jeg kigge på den martin@e-lind.dk

/Martin

Der er ikke mere i det end det du kan se i de tidligere indlæg.

1) Sæt en mail op (til en modtager).
2) sæt et / flere attachments på.
3) gem mailen i kladde / draft.

AHM har en MAPI komponent .. men den koster jo :-)

/Bjarne

Ok

Jeg har fundet en løsning :-)))

Og kunden er glad (selvom det tog lidt tid - LOOOL)

/Bjarne