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 :mrgreen:

[Daniel B]

Du kannst auch Betreff und Body gleich mit angeben, beim OE gehts wunderbar, beim MSO habe ich es nicht ausprobiert:

Delphi-Quellcode:

'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.

Delphi-Quellcode:

'mailto:[e-mail]?Subject=Blupp1&Body=Blupp2&file="C:\file.exe"'

Delphi-Quellcode:

'mailto:[e-mail]?Subject=Blupp1&Body=Blupp2&attach="C:\file.exe"'

Delphi-Quellcode:

'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.

[Matze]

Hi!

So könnte es gehen, aber getestet habe ich es nicht!! :wink:

Code:

var
  Form1: TForm1;
  Empfaenger, Betreff, Text, Attachment: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  Empfaenger:=Edit1.Text;
  Betreff:=Edit2.Text;
  Text:=Memo1.Text;
  Attachment:=OpenDialog1.FileName;
  ShellExecute(Handle, 'open', PChar('mailto:'+Empfaenger+'?subject='+Betreff+'&Body='+Text+'&Attachment="'+Attachment+'"'), nil, nil, SW_SHOW);
end;

[Edit]Attachment geht doch nicht, SORRY![/Edit]

Gruß Matze

[Matze]

Kann es sein, dass man mit dem mailto-Aufruf kein Attachment ranhängen kann?? Das scheint mir nämlich so. :twisted:

[Daniel B]

Ich habe im Netz wegen dem Thema mal gegoogelt und festgestellt, das es "angeblich" mit &file, &attach, &attachment gehen sollte, habe genug Beispiele gefunden, in Delphi und in VB. Aber, es will einfach nicht.
Manche haben den Pfad der File in 'dsfds' geschrieben, manche in "dfvfdfds" und manche ohne nichts, also &attach=c:\dsfd\dsfds.exe, aber egal was man macht, es will einfach nicht.

[Privateer3000]

ich habe auch nicht hinbekommen.
Vielleicht bringt eine Mail an Borland etwas?!

[Daniel B]

Kannst Du gerne machen. Nur, ich denke das liegt eher an der Parameterübergabe und OE, wohl nicht an dem Code denn der wird bestimmt so ausgeführt wie man den schreibt.

Was es noch gibt, ich glaub das war aber vom Outlook, nit OE, den Parameter /a um eine Datei anzuhängen, such mal nach der Parameterübersicht vom Outlook, hab vor ewigkeiten das mal gesehen, finde es aber auf die schnelle nicht, vielleicht kann man sich den Kram mit dem OLE sparen.

[Privateer3000]

Gehen muss es ja irgendwie.Denn im Windoof-Kontext gibt es eine solche Funktion.
Naja, ich geb mich erstmal damit zufrieden.Vielleicht findet es irgendjemand raus?!