opstilling tekst fra memo -> email

Hvordan overfører du teksten i første omgang, og hvilke komponenter bruger du ?

hej justincase

shellExecute(0,'Open',PChar('mailto:'+Bestilling.text+'?subject='+Bestilling.text+'&body='+memo1.text),nil,nil,sw_shownormal);

Komponenter?

stone

Hmm. Prøv at køre Memoen igennem linie for linie og læg #10+#13 til.

ingen reaktion - stadig det samme???

Jeg tror jeg ved hvordan man gør, men du kan først få et svar i morgen, da jeg er på min skole nu... jeg kan ikke lige huske hvordan det var jeg gjorde, men jeg har et exempel på det derhjemme... så svaret kommer i morgen

Venlig Hilsen
TRoXa

Still waiting...

guuuuud ve om det snart er morgen "gab"

stone

jeg kan ikke hjælpe dig, men ved du hvordan jeg kan sende en hel memo som email via delphi???

hvis det er koden som overfører indhold fra memo -->email:

procedure TBestilling.Bestilling1Click(Sender: TObject);
begin
shellExecute(0,'Open',PChar('mailto:'+Bestilling.text+'?subject='+Bestilling.text+'&body='+memo1.text),nil,nil,sw_shownormal);
end;

troxa

hvad blev der af eksemplet????

stone

Jeg fand løsningen på problemet.

Der skal tænkes i escaped url's :

var
  i : Integer;
  outStr : string;
begin
  for i := 0 to Memo1.Lines.Count-1 do
    outStr := outStr+Memo1.Lines[i]+'%0D%0A';
shellExecute(0,'Open',PChar('mailto:'+Bestilling.text+'?subject='+Bestilling.text+'&body='+outStr),nil,nil,sw_shownormal);
end;

I bund og grund samme løsning som jeg først antydede. Blot #13+#10 escaped (%0D%0A)

:)

JustinCase

jeg takker justincase

stone

jeg får udefineret "shellexecute" hvorfor???

har du skrevet shellAPI i uses?

stone