Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Outllook via OLE mit Win10 (https://www.delphipraxis.net/189642-outllook-via-ole-mit-win10.html)

norwegen60 4. Jul 2016 15:17

Outllook via OLE mit Win10
 
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

Bernhard Geyer 4. Jul 2016 18:03

AW: Outllook via OLE mit Win10
 
Nimm doch die SimpleMAPI-Schnittstelle.
Dürfte auch unter Win10 "schmerzloser" sein als direkt mit den COM-Objekten zu arbeiten.

mquadrat 5. Jul 2016 07:42

AW: Outllook via OLE mit Win10
 
32bit Anwendung und 64bit Office?

norwegen60 5. Jul 2016 09:40

AW: Outllook via OLE mit Win10
 
Fehler tritt auf bei Win10 64bit und Office 2007 SP3 32bit

TiGü 5. Jul 2016 10:04

AW: Outllook via OLE mit Win10
 
Und deine Anwendung? 32- oder 64-Bit?

norwegen60 5. Jul 2016 10:34

AW: Outllook via OLE mit Win10
 
Die ist mit Delphi programmiert und 32 bit

mquadrat 5. Jul 2016 10:49

AW: Outllook via OLE mit Win10
 
Das sollte eigentlich gehen. Ich kenne die Meldung nur von 32bit Anwendung mit 64bit Office.

norwegen60 5. Jul 2016 10:53

AW: Outllook via OLE mit Win10
 
OK, beim Office bin ich nicht ganz sicher ob 32 oder 64 bit. Im Info-Fenster von Outlook steht weder 32 noch 64 bit aber der EDV'ler hat gesagt es sei 32bit
Und gibt es bei 64 bit eine Lösung?

mm1256 5. Jul 2016 13:26

AW: Outllook via OLE mit Win10
 
Zitat:

Zitat von norwegen60 (Beitrag 1341973)
Und gibt es bei 64 bit eine Lösung?

Ja, 32-Bit-Version verwenden. Microsoft selber empfiehlt das. Mir fehlt gerade leider der Link.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz