Hallo alle zusammen,
mit einer alten Adressverwaltung war es möglich eine Adresse an Word zu übergeben. Da ich die Funktion nützlich finde, dachte ich mir nichts böses und wollte die Funktion als Clientscript ins Davidadressbuch einbauen:
ich habe folgendes Script geschrieben:
sub Initialize(oInfoCenter, key)
Set oBar = oInfoCenter.GetCommandBar("AddressEditor/Standard")
oBar.Insert -1, "Adresse kopieren", key, "adress.ico", "AdressCopy", true
end sub
sub AdressCopy(oInfoCenter, oContext)
Set oItem = oContext.Item
Set oAddressItem = oInfoCenter.Account.User.VCard
dim sDaddr
sDaddr = oItem.Company+chr(10)+oItem.FirstName+" "+oItem.LastName+chr(10)
msgbox(sDaddr) '<- diese Zeile ist nur zur Kontrolle und zeigt das die Variablen richtig zusammengestellt wurden.
'ab hier klappts dann leider aus dem David Client nicht mehr.
dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WshShell.AppActivate "Editor"
WScript.Sleep 100
WshShell.SendKeys sDaddr
end sub
Wenn ich den gleichen Script um die Besonderheiten von David kürze und direkt in Windows ausführe, funktioniert der Script:
dim sDaddr
sDaddr = "Firma"+chr(10)+"Vorname"+" "+"Nachname"+chr(10)
msgbox(sDaddr)
dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WshShell.AppActivate "Editor"
WScript.Sleep 100
WshShell.SendKeys sDaddr
Warum klappt der WshShell Aufruf nicht aus dem David Client?
Ich könnte die Adresse natürlich in einen Textfile schreiben, den ich mit einem eigenen Programm abfange, das dann die Übergabe an
Word macht, das Programm müsste dann aber ja ständig auf allen Stationen laufen, wo die Funktion genutzt werden soll.
Vielleicht hat ja jemand eine bessere Idee als ich. Vorab vielen Dank.
Jens Osterwohldt
Nicht elegant, aber funktionell
