Hallole...
Ich hätte einen kleinen Tip zum Starten von Anwendungen über die WinAPI. Als Beispiel möchte ich mir eine Adresse in einem Routenfinder im Internet anzeigen lassen. Dazu wird eine URL generiert, die dann über ShellExecute ausgeführt wird.
Voraussetzung:
Windows als Plattform - wg. WinAPI
Internet-Verbindung
Hier der Code:
' # Ausführen fremder Programme - In den Declarations hinterlegen - ata
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ShellExecuteFile Lib "shell32.dll" Alias "ShellExecuteA" (Byval _
hwnd As Long, Byval lpOperation As String, Byval lpFile As String, Byval _
lpParameters As String, Byval lpDirectory As String, Byval nShowCmd As Long) As Long
Sub ShowMap24( sStreet As String , sZip As String , sCity As String )
' # Eine Adresse im Routenfinder "Map24" anzeigen
Dim strURL As String
Dim vValue As Variant
' # Bilden des Strings
strURL = "http://www.map24.de/map24/index.php3?map24_sid=&street0=" + sStreet
strURL = strURL + "&zip0=" + sZip
strURL = strURL +"&city0=" + sCity
ShellExecuteFile GetDesktopWindow(), "open", strURL, "", "", 1
End Sub
' # Aufruf der Funktion dann zum Beispiel aus einem Personendokument
' # ... hier aus einer Maskenaktion am Beispiel der Privatadresses...
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
'
Set docThis = ws.CurrentDocument.Document
With docThis
Call ShowMap24( .StreetAddress(0) , .Zip(0) , .City(0) )
End With
End Sub
... viel Spaß damit - funzt wunderbar
ata