Hallo
ich verwende folgenden Code um in Outlook ein
HTML-Mail zu erzeugen:
Delphi-Quellcode:
procedure TfoedRepNr.Button1Click(Sender: TObject);
const
olMailItem = 0;
var
Outlook : OleVariant;
miMail : Variant;
begin
try
Outlook := (GetActiveOleObject('Outlook.Application'));
except
Outlook := (CreateOleObject('Outlook.Application'));
end;
miMail := Outlook.CreateItem(olMailItem);
miMail.Subject := 'Reparaturaufrag ';
miMail.Body := 'REPARATURAUFTRAG' + #13 +
'Folgender Reparaturaufrag muss bearbeitet werden';
miMail.HTMLBody := '<span style=''font-size:11.0pt;font-family:"Arial",sans-serif''>Attached is the <b>list of email</b> addresses.'+
'<p><a href="file:///D:\data\MsOffice\Privat\Betriebskostenrechnung.pdf">D:\data\MsOffice\Privat\Betriebskostenrechnung.pdf</a></p>' +
'<p><a href="file:///D:\data\MsOffice\Privat\Betriebskostenrechnung.pdf">Betriebskostenrechnung.pdf</a></p>'+
'<p><a href="file:///Z:\DoQMa\Reparatur\201600864ac.msg">Z:\DoQMa\Reparatur\201600864ac.msg</a></p>';
miMail.Display; // 160614 GPa: Hier kommt bei Aufruf in Win10 Meldung "Unzulässige Funktion"
end;
Unter Win7 wird
- bei geschlossenem Outlook Outlook gestartet und dann das Mail erzeugt
- bei bereits geöffnetem Outlook das Mail ebenfalls erzeugt.
Dass das erzeugte Mail in beiden Fällen nicht immer in den Vordergrund gebracht wird, ist eine andere Sache.
Bei Win10 kommt
- bei geschlossenem Outlook die Meldung "Vorgang abgebrochen"
- bei geöffnetem Outlook die Meldung "Funktion unzulässig". Das Mail wird aber korrekt erzeugt. Kommt aber auch nicht immer in den Vordergrund
Hat jemand eine Idee woran das liegen könnte
Vielen Dank
Gerd