Unzulässige funktion

[Sleepy179]

Hallo!

ich habe mich hier jetzt extra angemeldet, weil mich dieses Problem schon seit Jahren nervt. Aber: Ich habe es gelöst!

Ich hatte in unserer Firmenanwendung eine Stelle, an der die "Unzulässige Funktion"-Meldung nicht kam und das habe ich analysiert!

Man muss es so handhaben, dass man die Outlook-Programmierung auslagert in eine extra procedure und diese dann in einer try-except Anweisung aufruft:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
begin
 try
  SendMail;
 except
 end;
end;

procedure TForm1.SendMail;
var myOutlook, mailitem: Variant;
begin
  try
    myOutlook := CreateOleObject('Outlook.Application');
    mailitem := myOutlook.CreateItem(olMailItem);
    mailitem.Subject := Edit7.Text;
    mailitem.To := Edit6.Text;
    mailitem.Body := Memo2.Text;
    mailitem.Display; //Hier meckert er - nicht mehr!
  except
    on EOleSysError do begin
      raise;
    end;
  end;
  Edit6.Text := '';
  Edit7.Text := '';
  Memo2.Text := '';
end;

Ihr könnt es gern probieren und berichten, ob es klappt!

Grüße

Michael

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]