Attachment an E-Mail anhängen

[fly_singapore]

Ich habe oben beschriebene Variante ausprobiert und getestet. Zunächst hat alles Wunderbar funktioniert.
Heute morgen hatte ich jedoch das Problem, dass der eigentliche Text, den ich im E-Mail verschicken wollte, nicht mehr drin
steht..

OK, ich habe heute morgen überzählige E-Mails gelöscht, aber daran kanns nicht liegen. Was sonst... Vielleicht irgendwelche Outlook-Einstellungen?

hier kurz mein Test-Script:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);

var
Outlook, Mailitem, Namespace, Contacts : olevariant;
excel: variant;
IZaehler : string;



begin
// Neue Outlook-Instanz
  Outlook := CreateOleObject('Outlook.Application');

   // Eine neu E-Mail generieren

  MailItem := Outlook.CreateItem(0);

  // E-Mail-Empfänger einfügen
  MailItem.Recipients.Add('[e-mail]');
  // Betreffzeile einfügen
  MailItem.Subject := 'E-Mail aus Delphi 3.0';
  // E-Mail-Text einfügen
  MailItem.Body := 'Mittels Object Linking and Embeddding ist es mir gelungen, aus Delphi heraus eine E-Mail an Dich zu versenden';
   // E-Mail versenden
  MailItem.Send;

  // Outlook-Verbindung trennen
  Outlook := Unassigned; 




end;

Gruss aus Bonn

Peter