Mailclient starten

[catweasel]

Moin

Ich versuche hier ein Mailclient zu starten und Adresse, Betreff und einen kleinen Text mitzugeben.

Dazu zwei Fragen:
Es funktioniert zwar soweit, aber hier wird jedesmal Outlook komplett neu gestartet.
Eigendlich möchte ich ja nur den Mailclient haben. Wie erreiche ich es nur den Mailclient zu starten, falls Outlook (oder ein anderes Mailprogramm) schon gestartet ist?

Und als zweites gebe ich hier ja fest den Pfad zu Outlook ein.
Kann man das nicht irgendwie verallgemeinern, da ich ja nicht weis ob jeder Nutzer a) Outlook hat, und b) ob es in dem Pfad ist.

So sieht mein Programmteil bisher aus:

Code: Alles auswählen

procedure TForm1.MenuItem1Click(Sender: TObject);
var  AProcess:  TProcess;
begin
  AProcess := TProcess.Create(nil);
 
  AProcess.Executable:='C:\Program Files (x86)\Microsoft Office\Office12\outlook.exe';
  AProcess.Parameters.Add('mailto:m.eine@adresse.de?subject=Bugreport&body=Hello World');
  AProcess.Options := AProcess.Options + [];
 
  AProcess.Execute;
  AProcess.Free;
 
end; 

Gruß
Michael

[Scotty]

Es ist schade, dass sich niemand um ein sauberes Lazarus-Wiki kümmert. Es gibt die wunderbare LCLIntf-Funktion OpenURL() mit der deine hässlichen Process-Aufrufe überflüssig sind. Aber so etwas steht, wenn überhaupt, nur am Rande.

Code: Alles auswählen

uses ...LCLIntf;
OpenURL('mailto:'+aReceiver+'?subject='+aSubject);

[catweasel]

Es ist schade, dass sich niemand um ein sauberes Lazarus-Wiki kümmert. Es gibt die wunderbare LCLIntf-Funktion OpenURL() mit der deine hässlichen Process-Aufrufe überflüssig sind. Aber so etwas steht, wenn überhaupt, nur am Rande.

Code: Alles auswählen

uses ...LCLIntf;
OpenURL('mailto:'+aReceiver+'?subject='+aSubject);

Danke für die Hilfe. Die LCLIntf-Funktion OpenURL() kannte ich tatsächlich noch nicht

Falls es später noch jemanden interessiert: Man kann zusätzlich auch noch Texte übergeben:

Code: Alles auswählen

OpenURL('mailto:'+aReceiver+'?subject='+aSubject+'&body='+aBody);

Gruß
Michael

[kunstlust]

Ich würde das per ShellExecute umsetzen:

Code: Alles auswählen

 
uses ....shellapi;
ShellExecute(0, 'open', PCHAR('mailto:nail@test.local?subject=Subject&body=Bodytext'), NIL, NIL, 0);   
 

[Scotty]

... ShellExecute

Hätte ich was zu sagen, würde ich plattformspezifische Befehle verbieten. Bzw. so weit wegkapseln, dass keine auf die Idee kommt, danach zu suchen.

[kunstlust]

... ShellExecute

Hätte ich was zu sagen, würde ich plattformspezifische Befehle verbieten. Bzw. so weit wegkapseln, dass keine auf die Idee kommt, danach zu suchen.

Nicht jeder Anwendung muss auf allen Systemen laufen, ich nutze z.B. APIs von Tobit, da macht es keinen Sinn, da ohne die API-Funktion das Tool keinen Nutzen hat und Outlook ist nunmal ein Windowsclient.

[m.fuchs]

... ShellExecute

Hätte ich was zu sagen, würde ich plattformspezifische Befehle verbieten. Bzw. so weit wegkapseln, dass keine auf die Idee kommt, danach zu suchen.

Naja, das ginge mir auch etwas zu weit. Es gibt ja durchaus Entwickler, die nur für ein System programmieren und unbedingt eine spezielle Lösung brauchen, für die es keinen Ersatz gibt. Warum allerdings in diesem Fall anstelle einer gut-funktionierenden, plattform-unabhängigen Lösung jemand ShellExecute benutzen würde, ist mir auch unverständlich.

[carli]

Nur zur Info: Zum Starten des Mail-Client ist die MAPI zuständig.
Mit der MAPI kann man auch Anhänge per Default in eine Mail anhängen.

[mschnell]

Nur zur Info: Zum Starten des Mail-Client ist die MAPI zuständig..

Soweit ich weiß, gibt es MAPI auf Linux nicht.

-Michael

[m.fuchs]

Nur zur Info: Zum Starten des Mail-Client ist die MAPI zuständig..

Soweit ich weiß, gibt es MAPI auf Linux nicht.

Noch schlimmer: es geht auch auf Windows nicht, also nicht durchgehend. So richtig funktioniert es nämlich nur mit Outlook und Exchange.

[jwdietrich]

Es ist schade, dass sich niemand um ein sauberes Lazarus-Wiki kümmert. Es gibt die wunderbare LCLIntf-Funktion OpenURL() mit der deine hässlichen Process-Aufrufe überflüssig sind. Aber so etwas steht, wenn überhaupt, nur am Rande.

Kleiner Tip: Man kann die Seiten des Lazarus-Wiki bearbeiten.

[Christian]

Hat jemand schon ne Lösung dafür für mehre Plattformen ?

[mschnell]

Noch schlimmer: es geht auch auf Windows nicht, also nicht durchgehend. So richtig funktioniert es nämlich nur mit Outlook und Exchange.

Wenn ich das richtig sehe installiert Thunderbird in Windows auch einen MAPI - Treiber
-Michael

[m.fuchs]

Noch schlimmer: es geht auch auf Windows nicht, also nicht durchgehend. So richtig funktioniert es nämlich nur mit Outlook und Exchange.

Wenn ich das richtig sehe installiert Thunderbird in Windows auch einen MAPI - Treiber

Ja, aber alles funktioniert da auch nicht. Habe schon oft genug Probleme mit der Übergabe gehabt und auch Mozilla selbst schreibt über die Defizite: http://kb.mozillazine.org/MAPI_Support.

Für die Anforderungen des OP reicht die Unterstützung aber locker aus. Nur manchmal kommen sich dann zwei Mailprogramme in die Quere, aber das ist ja eher Schuld der Benutzers
Wieauchimmer, ansteuern würde ich die MAPI nur über den OpenUrl-Aufruf mit "mailto:". Wenn es plattformunabhängig geeht, soll man es auch gleich so machen.

[Christian]

Geht das mit Thunderbird unter Windows, Anhänge über mailto anzugeben ?
Unter Linux gehts leider nicht. Da gehts dafür über -compose mit Thunderbird