Word als Outlookeditor

28/02/2008 - 10:17 von Udo | Report spam
Hallo,

bekomme ich als AddIn in Word raus, ob diese Wordinstanz, die das AddIn
geladen hat, durch outlook geladen wurde (als Email-Edoitor) bzw. durch
einen anderen "createobject" - Prozess oder ob Word als "exe" gestartet ist?


Gruß

Udo
 

Lesen sie die antworten

#1 Thomas Gahler
28/02/2008 - 13:52 | Warnen spam
Hallo Udo


bekomme ich als AddIn in Word raus, ob diese Wordinstanz, die das AddIn
geladen hat, durch outlook geladen wurde (als Email-Edoitor) bzw. durch
einen anderen "createobject" - Prozess oder ob Word als "exe" gestartet
ist?


Vielleicht bekommst du was, wenn du die Comandozeile auswertest. Vielleicht


'
Option Explicit

Public Declare Function GetCommandLine Lib "kernel32" Alias
"GetCommandLineA" () As Long

Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal
lpString1 As String, ByVal lpString2 As Long) As Long

Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal
lpString As Long) As Long
Sub AutoOpen()
Dim strCommandLine As String
Dim strDocumentName As String

'get the command line using CmdLinetoString function and GetCommandLine API
call
strCommandLine = CmdLinetoString(GetCommandLine())
If Len(strCommandLine) <= Len(Chr$(34) & Application.Path & "\" &
"winword.exe" & Chr$(34) & " ") Then
' MsgBox "Word was launched from its shortcut"
Else
'...
End If
End Sub
Function CmdLinetoString(ByVal lngPtr As Long) As String
Dim StringLength As Long
Dim strReturn As String

'get the length of the string (not including the terminating null character)
StringLength = lstrlen(lngPtr)
'initialize our string so it has enough characters including the null
character
strReturn = String$(StringLength + 1, 0)
'copy the string we have a pointer to into our new string
lstrcpy strReturn, lngPtr
'now strip off the null character at the end
strReturn = Left$(strReturn, StringLength)
'return the string
CmdLinetoString = strReturn
End Function
'


Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen