Re-Attach (Tool von Eknori) u. WinXP?!

[Tino]

Hallo,

Ich setze bei mir Notes 5.12 und Win XP / 2000 ein. Vor kurzen bin ich auf das geniale Tool von Eknori gestoßen. (Re-Attach v.1.1) Damit lassen sich Anhänge lösen, bearbeiten und wieder Anhängen in einen Arbeitsschritt.

Ich habe bei mir das Tool / Script ausprobiert und habe leider auf den Windows XP Rechnern ein paar kleine Schwierigkeiten damit. Auf den Win 2000 PC`s  läuft das optimal.

Ich hab z.B. viel mit Anhängen im *.tif Format zu tun. Nun möchte ich so ein Anhang z.B. mit dem Script öffnen nur leider tut sich da gar nix bzw. der Notes schmiert ab. Normalerweise sollte der Anhang dann mittels der Windows Bild und Faxanzeige geöffnet werden.

Wie gesagt bei Win 2000 läuft das alles 100 Prozentig....

Hat von Euch jemand ähnliche Erfahrungen gemacht oder hat jemand einen Tip für mich wie ich dieses Problem beheben könnte?? Mach ich vielleicht irgendwas falsch??


Vielen Dank!!!

[webby]

Hast Du unter WinXP auch den Dateityp "*.tif" definiert und konfiguriert? Schau mal nach, welches Programm Dein WinXP startet um "*.tif"-Dateien anzuzeigen. Das könnte eine Fehlerquelle sein...

[Tino]

hi,

Danke für deine Antwort. Sie hat mich dem Problem glaube ich etwas näher gebracht.

Also der Dateityp *tif war / ist bei WinXP registriert. Standardmäßig wird diese mit der "Windows Bild u. Faxanzeige" geöffnet. Ich hab das jetzt mal geändert auf "Paint" Jetzt sollen also alle *.tif Dateien mit "Paint" geöffnet werden. Und siehe da jetzt klappt es.

Es scheint also an dieser Bild u. Faxanzeige zu liegen....

Vielleicht hat ja noch jemand einen Tipp??

[eknori]

ich werde das gleich zuhause mal testen. Der Code verwendet die Windows API zur Ermittlung der für die Erweiterung zuständigen Anwendung. Hier kann es sein, daß die Anwendung nicht oder nicht richtig ermittelt wird. Ich vermute mal, da liegt der Hund begraben.

Ulrich

[Tino]

Oh cool, das ist echt klasse das du dir dieses Problemchen mal anschaust.

SUPER VIELEN DANK!!!!  

[eknori]

Der Code erkennt sehr wohl die Zuordnung TIF -> Application. Allerdings ist dieser Faxviewer eine DLL und keine EXE. Daher läuft der Code ins Leere.

Hier als Workaround, der bei TIF Dateien (hardcodiert) den Kodak Image Viewer startet.
Habe heute keine Lust mehr, den Faxviewer einzubinden  

OK, hier noch schnell die Änderung, damit der FAX Viewer aufgerufen wird

   Private Function GetIMGViewer () As String
      GetIMGViewer = "RunDLL32.EXE c:\winnt\System32\shimgvw.dll,ImageView_Fullscreen"
   End Function


siehe nächstes Posting

Ulrich

*** Attachment gelöscht ***

[eknori]

soo, hier noch einmal ein Update:

Ich habe den Aufruf für die "Windows Bild und Faxanzeige" eingebaut. Da bei dir ja auch noch Windows 2000 Rechner im Einsatz sind, habe ich zusätzlich noch eine Klasse eingebaut, die die verwendete Windows Version ermittelt. Ich habe lediglich 2 Properties eingebaut

IsWinXP und
IsWin2000

Code

Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128
End Type

Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer

Dim tmp As String

Public Class OSVersion
   
   Private Function GetWindowsVersion() As String
      tmp = ""      
      Dim OS As OSVERSIONINFO
      Dim ret As Integer
      OS.dwOSVersionInfoSize = 148
      OS.szCSDVersion = Space$(128)
      ret = GetVersionExA( OS )
      
      Select Case OS.dwPlatformId
      Case 1
         Select Case OS.dwMajorVersion
         Case 0: tmp = "Windows 95"
         Case 10: tmp = "Windows 98"
         End Select
      Case 2
         Select Case OS.dwMajorVersion
         Case 3
            
            Select Case OS.dwMinorVersion
            Case 0:  tmp = "Windows NT3"
            Case 1:  tmp = "Windows NT3.1"
            Case 5:  tmp = "Windows NT3.5"
            Case 51: tmp = "Windows NT3.51"
            End Select
            
         Case 4: tmp = "Windows NT 4.0"
         Case 5 
            
            Select Case OS.dwMinorVersion
            Case 0:  tmp = "Windows 2000"
            Case 1:  tmp = "Windows XP"
            End Select
            
         End Select
      Case Else
         tmp = "unknown"
      End Select
      GetWindowsVersion = tmp
   End Function
   
   Public Function IsWinXP As Variant
      IsWinXp =False
      If GetWindowsVersion = "Windows XP" Then
         IsWinXp =True
      End If
   End Function
   
   Public Function IsWin2000 As Variant
      IsWin2000 =False
      If GetWindowsVersion = "Windows 2000" Then
         IsWin2000 =True
      End If
   End Function
   
End Class

Ulrich

[Tino]

Oh das echt klasse von Dir!!!! Super vielen Dank das du dir soviel Mühe gemacht hast!!!!!