E-Mail + Attachements mit Outlook versenden.

[mannewolff]

Moin.

Ich möchte gerne von Delphi (2009) aus eine Email per Outlook versenden. Konkret soll der Mailclient aufgehen (neue Email), dann möchte ich aus Delphi An, cc, bcc, subjekt den Mailtext sowie Attachements einführen, sodass der Nutzer nur noch senden drücken muss. Gibt es vielleicht sogar eine OLE Komponente oder sowas.

Wäre cool. Kann auch zur Not was kosten.

Manfred

[Die Muhkuh]

Muss es per Outlook sein oder kann es auch direkt aus dem Programm heraus erfolgen?

[mannewolff]

Direkt aus dem Programm habe ich es schon realisiert. Leider soll es Outlook sein.

[Bernhard Geyer]

Stichwort ist (Simple-)MAPI. Die Jedi hat Komponenten/Funktionen um die MAPI "out of the box" relativ einfach zu verwenden.

[mannewolff]

Ich habe jetzt einen Code Snibble gefunden, aber noch nicht ausprobiert

Delphi-Quellcode:

procedure SendOutlookMail;
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('[e-mail]');
  vMailItem.Subject := 'test email';
  vMailItem.Body := 'This is a test';
  vMailItem.Attachments.Add('C:\temp\sample.txt');
  vMailItem.Send;

  VarClear(Outlook);
end;

Was mich gleich zu der nächsten Frage führt: Wo bekomme ich eine Dokumentation, was ich mit dem Ole-Objekt alles machen kann? Schwierig, Schwierig.

[fkerber]

Hi!

Vllt. hilft das weiter?
http://www.accelerated-ideas.com/Del...tlookCOM1.aspx


Ciao, Frederic

[Bernhard Geyer]

Zitat von mannewolff:

Ich habe jetzt einen Code Snibble gefunden, aber noch nicht ausprobiert

Delphi-Quellcode:

   ...
    Outlook := CreateOleObject('Outlook.Application');

Würde gehen wenn du akzeptierst das u.U. jedesmal eine Warnmeldung kommt das eine Anwendung versucht ein Mail zu versenden. Da vor einigen Jahren VBS-Würmer sowas reihenweise gemacht hatten musst MS das einbauen.

Zitat von mannewolff:

Was mich gleich zu der nächsten Frage führt: Wo bekomme ich eine Dokumentation, was ich mit dem Ole-Objekt alles machen kann? Schwierig, Schwierig.

Die Doku stellt der Hersteller der SW zur verfügung. Hier also Microsoft in der MSDN

[mannewolff]

Ich will ja gar nicht über outlook senden, sonder will dass Outlook aufgeht und die Mail quasi ausgefüllt vor einem ist. Das Senden soll dann noch im Outlook Fenster gemacht werden. Wie gesagt, vor dem Wochenende komme ich nicht zum ausprobieren. Wenn ich was lauffähiges habe, werde ich es hier auch mitteilen. Dennoch bin ich für jeden Tip dankbar.

[fkerber]

Hi!

Hmm, reicht dann nicht vllt. sogar ein Shellexecute mit mailto:-Link drin?
Insbesondere würde dann der Standard-Mail-Client geöffnet und nicht zwingend Outlook (unter der Voraussetzung, dass es geht).

Grüße, Frederic

[mannewolff]

Ich glaube nicht. Weil auch Attachements bereits angelegt werden sollen.