hi
ich habe folgendes "problem": ich möchte über delphi outlook ansteuern um eine email zu verschicken, dass ist auch kein problem und funktioniert auch, aber ich erhalte immer die fehlermeldung "Unzulässige Funktion" aber das programm macht genau das was es soll. kann mir vielleicht jemand erklären warum die
exception kommt und warum trotzdem alles funktioniert?
hier ncoh der code
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
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
except
on EOleSysError do begin
raise;
end;
end;
Edit6.Text := '';
Edit7.Text := '';
Memo2.Text := '';
end;