Hallo,
ich habe das Problem, dass ich keine Vorstellung davon habe, wie ich einen Text, der im MemoPad von Delphi steht in das Feld in MSOutlook hineinkopiere, so dass der Text im Memofeld eben zum E-Mail-Text wird. Passieren soll das, wenn ich auf den Button "E-Mail senden" gehe.
Ich wäre echt froh, wenn mir da jemand helfen könnte, da das Programm, wofür ich dies benötige, von Kunden benutzt werden soll und die aber nur leere E-Mails schicken, da sie nicht die Anleitung gelesen haben

Hallo,

ich glaube Deine Vorgehensweise ist nicht gerade ideal.
MS Outlook hat ein leistungsfähiges Objektmodell, über das es automatisiert werden kann.
Dann braucht man nur noch zu schreiben:

markieren

Delphi-Quellcode:

  Msg.To := 'user@host.com';
  Msg.Subject := 'Betreff';
  Msg.TextBody := 'blabla';
  Msg.Send;

Such mal in der MSDN-Library nach "Outlook.Application".

mr2

Hi,
ich habe es mit

markieren

Delphi-Quellcode:

Msg.To := 'user@host.com';
  Msg.Subject := 'Betreff';
  Msg.TextBody := 'blabla';
  Msg.Send;

in Delphi ausprobiert, aber er erwartet ein statement an stelle von 'user@host.com' und einen Identifier an stelle von To.

Ich habe auch bei MSDN gesucht, aber leider nichts brauchbares für delphi gefunden...

Wäre nett, wenn Du mir nochmal weiterhelfen könntest!!!

Ciao, Bastian

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]

vielleicht hilft Dir das weiter:

zusammenfalten · markieren

Delphi-Quellcode:

const
  // Wert für EMails in Outlook
  OL_MAIL_ITEM = $00000000;
var
  OutlApp, Msg: Variant;
begin
  try
    OutlApp := CreateOleObject('Outlook.Application');
    Msg := OutlApp.CreateItem(OL_MAIL_ITEM);
    Msg.To := 'hans@aol.com';
    Msg.Subject := 'Betreff';
    Msg.Body := 'BlaBla';
    Msg.Display(False);
    // Msg.Send;
  finally
    Msg := Unassigned;
    OutlApp := Unassigned;
  end;

mr2

Hi mr2,
ich weiß leider noch nicht, ob mir das weiterhilft, da Delphi mir beim kompilieren sagt, dass "CreateOleObject" nicht definiert ist (oder so ähnlich).
Kann es sein, dass dies noch eingefügt werden muss?

Hi!

Wenn mich nicht alles täuscht, muss da noch die Komponente OutlookApplication auf das Form.
Weiß aber nicht, wo die genau ist, hab nur D6 Personal und da gibts sowas nicht

Hoffe, es hilft trotzdem.

Ciao fkerber

Ja, ich vermute, dass entweder noch etwas bei uses oder bei form create hineinmuss, hab aber leider nicht so viel Ahnung von diesem Bereich (Zugriff auf andere Programme von Delphi aus). Wenn jemand ein Online-Buch kennt, wo sowas übersichtlich beschrieben wird, kann mir auch sowas hier hineinschreiben!
Danke trotzdem für eure bisherigen Antworten, auch wenn sich noch kein Erfolg eingestellt hat

Ciao, Bastian

Hallo,

markieren

Delphi-Quellcode:

  uses
    ComObj;

CreateOleObject ist in ComObj.pas definiert. Die beiden wichtigsten Units für die Automatisierung von Anwendungen (per COM) sind ActiveX.pas und ComObj.pas - dort finden sich nahezu sämtliche Methoden.

Online-Buch kenne ich keins aber gedruckt ist Delphi COM Programming empfehlenswert.

CU mr2

Thanks, das Problem ist behoben, allerdings kommt jetzt (oh Wunder)ein neues Problem auf und zwar wirft Delphi jetzt eine Exception mit dem Text :

Zitat:

Project[*].exe raised exception class EOleSysError with message 'Ungültige Klassenzeichenfolge'.

Hallo,

hast Du überhaupt Outlook installiert, oder etwa nur Outlook-Express?
Gibt es bei Dir den Registry-Schlüssel "HKEY_CLASSES_ROOT\Outlook.Application"?
Oulook Express lässt sich nicht automatisieren.