Textdatei und Email-Client

[Privateer3000]

Hiho,

welche Komponente bzw. Vorgehensweise ist nötig um eine Memo/RichEdit Datei per Tastendruck einem Email-Clienten anzuhängen?
Im Prinzip soll der Standard-Emailer aufgerufen werden und die Datei als Attachment angehangen werden.
Weiss jemand Rat??

[Pascal]

Ich sehe da momentan nur die Möglichkeit, dass du per Ole ein Mailprogramm aufrufst, z.B. Outlook.
Outlook kannst du dann sagen, dass er die Datei anhängen soll (natürlich muss die Datei gespeichert sein).
So kannst du auch noch weitere Einträge gleich übergeben, z.B. Emailadresse, usw.

Einbindung folgendermaßen:

Delphi-Quellcode:

uses comobj

procedure bla;
var my_outlook: Variant;
begin
   my_outlook := CreateOleObject('outlook.application');
   //hier kommen die Prozeduren rein, die du benötigst
   //diese bekommst am leichtesten, indem du Outlook aufmachst
   //und Visual Basic öffnest. Dort kannst du in der Hilfe nach den
   //geeigneten Funktionen suchen (z.B. visible, um dein Outlook sicht-
   //bar zu machen.
   my_outlook.Free;
end;

Wenn du große Probleme mit den Funktionen hast, melde dich. Ich habe es auch mal geschrieben, aber die Funktionen habe ich mir nicht gemerkt, die schaue ích immer nach.

Wie du dies mit Netscape machst, weiß ich leider nicht.
Muss aber so ähnlich gehen --> Internet schauen.

Hoffe, es hilft dir was.

Gruß Pascal

[Daniel B]

http://www.delphipraxis.net/topic760...outlook+daniel

Siehe den unteren Beitrag von mir, da steht das drin für den MSO.

[Privateer3000]

ok...danke
bei windoof ist doch meisst ein Standard-Mailer registriert.
Wie bekommt man hereaus welcher es ist und ihn dann startet???

[Daniel B]

Hi,

indem man einfach mit ShellExecute, z.B. eine Url aufruft, mailto:emailaddy eingibt, das Problem ist das anhängen der File, das macht bei OE grosse Probleme

[Privateer3000]

vielen Dank Daniel

[Daniel B]

Kein Thema

[Daniel B]

Du kannst auch Betreff und Body gleich mit angeben, beim OE gehts wunderbar, beim MSO habe ich es nicht ausprobiert:
'mailto:[e-mail]?Subject=Das wäre der Betreff&Body=Das wäre der Text...' normalerweise, müsste so ungefähr der Anhang gehen, tuts aber leider nicht, jedenfalls nicht bei mir.
'mailto:[e-mail]?Subject=Blupp1&Body=Blupp2&file="C:\file.exe"' 'mailto:[e-mail]?Subject=Blupp1&Body=Blupp2&attach="C:\file.exe"' 'mailto:[e-mail]?Subject=Blupp1&Body=Blupp2&attachment="C:\file.exe"' Nur keine davon will so richtig, eigentlich überhaupt nicht.

[Privateer3000]

wie mann man per Meldung abfangen wenn kein Standardmailer definiert ist?

[Privateer3000]

ich habe jetzt dies:
ShellExecute(Handle, 'open', 'mailto:[e-mail]?subject=Blupp123&Body=Töröö &Attachment="C:\pfad\zur\file.exe"', nil, nil, SW_SHOW);

wie kann man email und attachment als variablen zu Verfügung stellen?

Wenn ich es mit dem Typ String versuche sagt der Compiler : Inkompatible Typen String und PAnsiChar.