OLE Automatisierung über RFC aufrufen

OLE Automatisierung über RFC aufrufen

Hallo zusammen,

habe folgendes Problem, ich habe einen Fuba geschrieben, welcher mir im Outlook Kontakte anlegt!
Nun will ich diesen Fuba (remotefähig) mittels RFC aus z.B. Excel aufrufen!
Führe ich den Fuba im GUI aus funktioniert er!
Starte ich diesen via RFC passiert nichts, nicht einmal eine Fehlermeldung!

Kann das eventuell mal einer versuchen, lt. SAP sollte das nämlich sehrwohl funktionieren:

FUNCTION ZEGGER_GW_TEST.
INCLUDE: ole2incl. "OLE2 Automation
DATA: outlook TYPE ole2_object,
namespace TYPE ole2_object,
myfolder TYPE ole2_object,
myitem TYPE ole2_object.

* Instanzieren Outlook
CREATE OBJECT outlook 'Outlook.Application'.

* Namensraum
CALL METHOD OF outlook 'GetNamespace' = namespace
EXPORTING
#1 = 'MAPI'.

* Standard Kontaktverzeichnis
CALL METHOD OF namespace 'GetDefaultFolder' = myfolder
EXPORTING
#1 = 10. "olFolderContacts

* Kontakt anlegen
CALL METHOD OF outlook 'CreateItem' = myitem
EXPORTING
#1 = 2. "olContactItem

SET PROPERTY OF myitembp 'Categories' = 'SAP'.

SET PROPERTY OF myitem 'Title' = 'Firma'.
SET PROPERTY OF myitem 'CompanyName' = 'Test Outlook'.
SET PROPERTY OF myitem 'BusinessAddressCountry' = 'AT'.
SET PROPERTY OF myitem 'BusinessAddressStreet' = 'Test'.

CALL METHOD OF myitem 'Save'.

FREE myitem.
FREE myfolder.
FREE namespace.
FREE outlook.

ENDFUNCTION.
-------------------------------------------------
Aufruf aus Excel VBA:

Sub Synchronize()
Dim functionCtrl As Object
Dim theFunc As Object
Dim sapConnection As Object
Dim returnFunc As Boolean
Dim die_exception As String

Set functionCtrl = CreateObject("SAP.Functions")

Set sapConnection = functionCtrl.Connection

sapConnection.Client = "client"
sapConnection.User = "user"
sapConnection.Password = "pass"
sapConnection.Language = "spras"
sapConnection.SystemNumber = SysNr
sapConnection.ApplicationServer = "server"

If sapConnection.Logon(0, True) = True Then
Set theFunc = functionCtrl.Add("ZEGGER_GW_TEST")
returnFunc = theFunc.Call
die_exception = theFunc.Exception
sapConnection.Logoff
End If

Set functionCtrl = Nothing

End Sub

Re:

Patrick76 hat geschrieben:Hi!!

ne, das wird so nix. Von ABAP aus OLE-Objekte anzusprechen heißt, dass der SAP GUI für den Applikationsserver (auf dem das ABAP-Programm läuft) die OLE-Objekte auf dem Client instanziiert und ansteuert.
Im Fall von RFC gibt es aber keinen GUI...

Wäre es vielleicht eine Option, von Excel aus direkt outlook anzusteuern und den Umweg über ABAP wegzulassen?

Grüße, Patrick Theobald

Hallo Patrick,
danke sehr für die Antwort. Aber hast du eine andere Alternative oder andere Logik wie man DOC ohne GUI anzusteuern?

Vielen Dank + Grüße
Ibo

Re: OLE Automatisierung über RFC aufrufen