Domino 9 und frühere Versionen > Entwicklung

Attament automatisch starten

<< < (5/6) > >>

outerspace:
Dazu habe ich mal das gefunden:
http://www.microsoft.com/germany/ms/msdnbiblio/show_all.asp?siteid=545232

Einfach die Funktion deklarieren und dann aufrufen.

rar:
Coole Sache.  :D
Ich danke dir für den Link. Funktioniert einwandfrei.

-rar

eknori:

--- Zitat ---
--- Zitat ---
--- Ende Zitat ---
Das einzige was fehlt ist die Abfrage, ob die Datei noch geöffnet ist.
--- Ende Zitat ---

Du könntest prüfen, ob die Anwendung noch geöffnet ist

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (Byval lpClassName&, Byval lpWindowName As String) As Long

Sub Click(Source As Button)
   Dim winHwnd As Long
   Dim RetVal As Long
   winHwnd = FindWindow(0, "Microsoft Word - Dokument1")
   If winHwnd <> 0 Then
      Msgbox "Winword is  open"
   Else
      Msgbox "Winword is not open"
   End If
End Sub

oder, wenn du das "Microsoft Word - Dokument1" durch ein "Microsoft Word - NameDesDokument")

ersetzt, kannst du auch prüfen, ob ein bestimmtes Doc geöffnet ist



--- Zitat ---Selbst R6, wo das Attachmenthandling erweitert worden ist,
prüft das meines Wisens nicht.
--- Ende Zitat ---

yoo, die haben die Funktion bei mir abgekupfert (ReAttach gibt es schon seit 1998 ; R4.6 ) :D

outerspace:
Klingt gut
Die Anwendung findet man heraus indem man die Registry ausliest.
Das hab ich irgendwo schon gelesen(Ich glaube es war in Deiner Schatzkiste eknori),
nur wie finde ich heraus was die Anwendung in die Titelzeile schreibt ?

eknori:
Um ie Anwendung zu finden kannst du zum EInen die Reg auslesen; es gibt aber auch eine API dazu.

Den Fenstertitel ? Starte mal ein Doc im Word; ich glaube der wird immer zusammengesetzt aus Anwendungsname + DocumentenTitel.

Da du den Anhang aber eh detachen musst, kannst du auch dein Tempdir auf das Vorhandensein der Datei prüfen.

Ulrich

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete