Newsgroup: it.comp.appl.access
Titolo: [OT] Dove sono le firme

  Quale chiave di registro devo leggere a prescidere dalla versione di 
Outlook e del sistema operativo per
1) conoscere l'elenco delle firme
2) di ogni item delle firme conoscere il path e il nome completo?
Vi ringrazio sin da ora...
Non vorrei invetarmi nuovamente l'acqua calda.
Credo che percorrere la strada di leggere il registro di configurazione 
non si possa attuare, altrimenti rendo "assoluto" il percorso anziché 
relativo come in questo esempio 
http://www.outlookcode.com/codedetail.aspx?id=615
La mia idea è quella di inserire una firma tra quelle già disponibili in 
outlook, proponendo quella di default
Grazie.
-- 
Daniele
Rispondere scartando OneEDP, spam e 32


Non so se può aiutarti,
http://www.dreamincode.net/forums/topic/31537-use-of-default-signature-from-outlook-olmail/
Non l'ho provato !!!!
Saluti 


Grazie, ma in realtà non è quello che cerco
Dovrei utilizzare questi suggerimenti 
http://www.msoutlook.it/index.php?option=com_content&view=article&id=39
In pratica Environ("%USERPROFILE%") &
\Application Data\Microsoft\Signatures\
  oppure
\Application Data\Microsoft\Firme Elettroniche\
  (a seconda della versione di Outlook)
ma non si sa ancora qual'è quella default
Grazie cmq


 ma non si sa ancora qual'è quella default
Dim xxxx as string
Dim x&
x = 1
Do While Environ(x) <> ""
    Debug.Print x, Left(Environ(x), 12) 'Environ(x)
    If Left(Environ(x), 12) = "USERPROFILE=" Then
        xxxx = Mid(Environ(x), 13)
    End If
    x = x + 1
Loop
TuaPath = xxxx & "\Dati applicazioni\Microsoft\Firme elettroniche"

 TuaPath = xxxx&  "\Dati applicazioni\Microsoft\Firme elettroniche"
Direttamente on Environ("USERPROFILE") ottengo la path della variabile 
di sistema senza l'estrazione con la mid
Environ("APPDATA") dà un aiutino in più, ma ancora dovrei appurare la 
versione di outlook...
Grazie
Ciao
-- 


 Ciao
-- 
Ciao
Geppo 


E' un po' andare a tentoni.
Mi piacerebbe qualcosa di più IT ;-)
I discrimanti sono questo cocktail: versione outlook, versione sistema 
operativo, impostazioni utente
Grazie cmq


 ha scritto nel messaggio 
news:4c728d35$0$18998$4faf...@reader5.news.tin.it...

Vedi se aiuta:
http://support.microsoft.com/kb/938360/it
Un risultato di quella teoria potrebbe essere questo (preso da qui:
http://www.outlookcode.com/codedetail.aspx?id=615
Try this (it works only with Outlook 2002):
Uses registry to find the Outlook Signature file and then reads it itno a 
string
Function GetOutlookSignature() As String
    Dim oShell As Object
    Dim bRegKey
    On Error GoTo ErrHandler
    '-- Read from Registry the Default Signature Name
    Set oShell = CreateObject("WScript.Shell")
    bRegKey = 
oShell.RegRead("HKCU\Software\Microsoft\Office\10.0\Common\MailSettings\NewSignature")
    'oppure: 'bRegKey = 
oShell.RegRead("HKCU\Software\Microsoft\Office\11.0\Common\MailSettings\NewSignature")
    '-- Get Application Data Directory
    Dim sAppDataDir As String
    sAppDataDir = oShell.SpecialFolders("AppData")
    '-- Read the Default Signature from a file
    Dim strSignaturePath As String, strHTML As String
    strSignaturePath = sAppDataDir + "\Microsoft\Signatures\" + bRegKey + 
".htm"
    'oppure:
    'strSignaturePath = sAppDataDir + "\Microsoft\Firme elettroniche\" + 
bRegKey + ".htm"
    Const ForReading = 1, ForWriting = 2
    Dim fso As Object, f As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(strSignaturePath, ForReading)
    strHTML = f.ReadAll
    f.Close
    '-- Parse out Body
    Dim iStart As Integer, iEnd As Integer
    iStart = InStr(LCase(strHTML), "<body>") + Len("<Body>")
    iEnd = InStr(LCase(strHTML), "</body>")
    MsgBox strHTML
    GetOutlookSignature = "<br><br>" + Mid(strHTML, iStart, iEnd - iStart)
    MsgBox GetOutlookSignature
    GoTo ExitHandler
ErrHandler:
    MsgBox Err.Description, vbCritical, "GetOutlookSignature"
ExitHandler:
    Set oShell = Nothing
    Set fso = Nothing
    Set f = Nothing
End Function
Ciao, Carlo 


Grazie!
Faccio delle prove!
