Avatar billede koden12 Nybegynder
13. november 2003 - 22:18 Der er 10 kommentarer og
1 løsning

Outlook hvordan åbnes det ?

Jeg har en kode :

pCh := 'mailto:mshkolnik@scalabium.com?subject=your_subject&body=your_body';
ShellExecute(0, 'open', pCh, nil, nil, SW_SHOWNORMAL);

*******
men Delphi vil og kender ikke til OutLook så hvordan åbner jeg Outlook eller det som er standart Postprogram gennem Delphi ?

VH
Koden12
Avatar billede snowball Novice
13. november 2003 - 22:23 #1
Nedenstående virker fint hos mig :)

procedure TForm1.Button1Click(Sender: TObject);
var
  pCh : String;
begin
  pCh := 'mailto:mshkolnik@scalabium.com?subject=your_subject&body=your_body';
  ShellExecute(0, 'open', PChar(pCh), nil, nil, SW_SHOWNORMAL);
end;

Snowball
Avatar billede Slettet bruger
13. november 2003 - 22:25 #2
Også her :)
Avatar billede koden12 Nybegynder
13. november 2003 - 22:31 #3
Jeg får en fejl ?
Der er ikke installeret nogen genvejstast til at sende post eller postprogram ?
Sådan noget ligende ?

VH
koden12
Avatar billede Slettet bruger
13. november 2003 - 22:32 #4
Har du tilføjet ShellApi i uses??
Avatar billede stone Forsker
13. november 2003 - 23:32 #5
det kan være du bruger Outtlook i stedet for Outlook express

eksemplet sender teksten fra Richedit til outlook og laver en korrekt opstilling:


var
  i : Integer;
  outStr,Email : string;
    begin
  for i := 0 to Richedit1.Lines.Count-1 do
    outStr := outStr+Richedit1.Lines[i]+'%0D%0A';
shellExecute(0,'Open',PChar('mailto:'+email+'?subject='+
Richedit1.text+'&body='+outStr),nil,nil,sw_shownormal);
end;
end.
Avatar billede snowball Novice
13. november 2003 - 23:38 #6
stone: Om man bruger Outlook, Outlook Express, Lotus Notes eller noget helt fjerde er som sådan ligemeget, for når man eksekverer en "mailto" bliver ens standard mail program jo bare åbnet ;)

Snowball
Avatar billede stone Forsker
14. november 2003 - 00:05 #7
ved det men har oplevet at man ikke kunne kalde outlook men outlook express...

mit forrige indlæg viste samme text i subject som i body...

her er lige en rettelse hvor subject er text fra edit1, lidt sjovere.

var
  i : Integer;
  outStr,Email : string;
    begin
  for i := 0 to Richedit1.Lines.Count-1 do
    outStr := outStr+Richedit1.Lines[i]+'%0D%0A';
shellExecute(0,'Open',PChar('mailto:'+email+'?subject='+edit1.text+'&body='+outStr),nil,nil,sw_shownormal);
end;
Avatar billede koden12 Nybegynder
14. november 2003 - 09:40 #8
Da jeg er gået fra Outlook Expresse til Outlook og hele tiden har sagt nej til at nogle af dem skulle være Standdart postprogram, kender windows ikke til noget post standart program..
Måske derfor ?

VH
koden12
Avatar billede razersedge Nybegynder
14. november 2003 - 14:41 #9
Koden12: Har du husket Pchar(pCh) som de andre bruger?
Avatar billede koden12 Nybegynder
14. november 2003 - 21:42 #10
Ja jeg har gjort det hele rigtigt men den kender ikke noget Postprogram..
Windows kender ikke noget standart Postprogram..
Og jeg har husket PChar og også ShallAPI , så dårlig er jeg heller ikke : )
Men kaldet kræver åbenbart at windows hvilken der er standart postprogram og det gør min ikke..
VH
koden12
Avatar billede koden12 Nybegynder
16. november 2003 - 14:20 #11
opgivet

VH
Koden12
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester