| Jiří | Button |
| Dobry den,resim jednu zalezitost. Mame vyrobene tlacitko (ktere jsme poslali uzivatelum na mail), kdyz se na nej tukne, tak si sahne na nas server kde jsou ulozeny podpisy. (*.htm) a stahne si na lokalni pocitac a nastavi cestu.Samozrejme se to nastavi, kdyz je otevrena session.
Ted potrebujem vyresit, ze chcem to tlacitko umistit do jedne databaze a kdyz jsi jakykoliv uzivatel klikne tak se mu nastavi svuj podpis.
Muzete mi poradit jak tenhle kod upravit aby to fungovalo.
Diky
Prikladam zdrojovy kod toho tlacitka:
Sub Click(Source As Button)
On Error Goto errHandler
Dim s As New NotesSession, ws As New NotesUIWorkspace
Dim thisdb As NotesDatabase, thisdoc As NotesDocument
Dim mailprof As NotesDocument ' Mail Preferences profile
Dim userdir As String, sigpath As String
Dim userinfo List As String
Dim oShell As Variant
Dim oShortcut As Variant
Dim oFS As Variant
Set oShell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
Set thisdb = s.CurrentDatabase
Set thisdoc = ws.CurrentDocument.Document
Const SIG_DIRECTORY = "c:\lotus\notes"
Const SRC_DIRECTORY ="\\server\podpisy$"
sigpath = SIG_DIRECTORY & "\"
srcpath = SRC_DIRECTORY & "\"
username = Environ("USERNAME")
sigpath = sigpath & "podpis_" & username & ".htm"
'Copy the file
Filecopy srcpath &"podpis_" & username & ".htm", sigpath
' set signature:
Set mailprof = thisdb.GetProfileDocument("CalendarProfile")
Call mailprof.ReplaceItemValue("EnableSignature", "1")
Call mailprof.ReplaceItemValue("SignatureOption", "2")
Call mailprof.ReplaceItemValue("Signature_2", sigpath)
Call mailprof.ComputeWithForm(True, False)
Call mailprof.Save(True, False)
Msgbox "Podpis byl nastaven"
getOut:
Exit Sub
errHandler:
Select Case Err
Case 1000
Msgbox Error$,, "Error"
Case Else
Msgbox Error$ & " (err: " & Err & ", erl: " & Erl & ")",, "Error"
End Select
Resume getOut
End Sub |
| JL | Button |
IT
18.06.2009
15:06:59
ID: 2943.1
| Je třeba nasetovat správnou MailDB
Set mailDb = New NotesDatabase( "", "" )
Call mailDb.OpenMail
|
| Jiří Rampír | Re: Button |
IT
18.06.2009
15:46:20
ID: 2943.2
| a to mame nastavit kde?
Prominte za hloupe otazky? |
| VZ | Jiné (hloupé?) otázky |
18.06.2009
15:51:35
ID: 2943.3
| 1. Ta databáze, kde to má fungovat, má stejný design jako ta pošta? (tzn. vychází z poštovní šablony?)
2. Co přesně na tom kódu v té DB nefunguje (na kterém řádku to hlásí chybu a jakou)? |
| Jiří Rampír | Re: Button |
IT
18.06.2009
15:55:12
ID: 2943.4
| 1. ano
2. v tom kodu kterej jsem poslal tak ten funguje, ale potrebuju to nastavit tak jak jsem napsal
|
| VZ | Upřesnění zadání |
18.06.2009
16:13:59
ID: 2943.5
| Tlačítko ve všech schránkách funguje a když ho umístíte do databáze se stejným designem jako u ostatních DB, tak se musí upravit kód, protože nefunguje?
Takže:
1. kam to tlačítko umísťujete - jako akci (do ActionBar) formuláře, nebo někam do těla formuláře jako běžný hotspot typu "Button" nebo třeba jako nějakého agenta nebo někam jinam?
2. A pokud tam tedy nefunguje, na kterém řádku to hlásí chybu a jakou? |
| Jiří Rampír | Re: Button |
IT
18.06.2009
16:23:49
ID: 2943.6
| tlacitko umistujeme do vytvorene databaze *.nsf
jako bezny hotspot "Button" |
| Martin Humpolec | Re: Button |
18.06.2009
19:37:26
ID: 2943.7
| Tak ten problém je spíš v tom, že předtím ho uživatelé měli ve své schránce, kdežto teď je v nějaké obecné, ne?
takže řádek set thisdb = s.CurrentDatabase je potřeba změnit jak psal JL na
set thisdb = New NotesDatabase( "", "")
call thisdb.OpenMail
a mohlo by to fungovat (netestováno) |
| VZ | Práva k profilu DB? |
18.06.2009
20:25:38
ID: 2943.8
| Tak bych tipoval, že uživatelé nemají dostatečná práva, aby v té databázi mohli přepisovat hodnoty v profilu. |
| Jiří Rampír | Re: Button |
IT
18.06.2009
22:09:27
ID: 2943.9
| Diky za rady.Nez jsem stacil jsem odpovedet, tak jsem to zprovoznil.
Udelal jsem to jak psal Martin H.
Ohledne prav je to OK :)
Vse funguje jak ma :)
Jste skvely!!!
Diky |
