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]