Newsgroup: it.comp.appl.access
Titolo: [Access ed Email] - Questo codice non mi funziona

Il 27 Aprile ik2zok mi ha gentilmente dato il seg. codice:
Option Compare Database 
Option Explicit 
Private Declare Function ShellExecute Lib "shell32.dll" Alias 
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal 
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As 
String, 
ByVal nShowCmd As Long) As Long 
------------------------------­----------------- 
Private Sub Comando1_Click() 
   Dim oggetto As String 
   Dim testo As String 
   Dim ret As Long 
   testo = "testo della mail" 
   oggetto = "oggetto della email" 
   ret = ShellExecute(Me.hwnd, _ 
                      "Open", _ 
                      "mailto:" & destinatario() & _ 
                      "?subject=" & oggetto & _ 
                      "&body=" & testo, _ 
                      vbNullString, _ 
                      vbNullString, SW_HIDE) 
End Sub 
Private Function Destinatario() 
   With Me.RecordsetClone 
      If .RecordCount> 0 Then 
         .MoveFirst 
        Do 
          If Len(!CampoMail)>0 then 
               destinatario = destinatario & ";" & !campoMail 
          End if 
          .MoveNext 
        Loop Until .EOF 
      End If 
   End With 
 destinatario = Right(destinatario, Len(destinatario) - 1) 
End Function 
Ieri l'ho riadattato al mio caso ma ottengo un errore di Variabile non
riconosciuta e precisamente SW_HIDE.
Come mai?
Grazie.
-- 
Insostenibile è il peso della conoscenza, se questa toglie poesia all'
Essere Umano.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel 
messaggio news:d6sfnp$ecj$1...@news.newsland.it...

Puoi mettere 0 (zero) .
Oppure puoi dichiarare una costante pubblica:
Public Const SW_HIDE = 0
Ciao, Carlo 

 Ciao, Carlo
Zero....dove?
Ma scusa...mmm....come trovo la documentazione circa 'sta roba?
Che voce nella guida VB?
Grazie :)
-- 
Insostenibile č il peso della conoscenza, se questa toglie poesia all'



Ovviamente al posto di SW_HIDE.
Se però vuoi mantenere la costante allora dovrai dichiararla come già ti ho 
detto:
Public Const SW_HIDE = 0
in un modulo pubblico o anche nel modulo della maschera cambiando Public con 
Private.
Queste notizie non si trovano facilmente. In particolare quella SW_HIDE è 
una costante di VB che trovi in Visual Basic oppure usando un ApiViewer 
allegato alla versione developer di Access.
Ciao, Carlo 

 Private.
Quindi il codice diventa qualcosa del tipo:
Option Compare Database 
Option Explicit 
Private Declare Function ShellExecute Lib "shell32.dll" Alias 
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal 
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As 
String, 
ByVal nShowCmd As Long) As Long 
------------------------------­----------------- 
Private Sub Comando1_Click() 
Dim oggetto As String 
Dim testo As String 
Dim ret As Long
Public Const SW_HIDE = 0
 
testo = "testo della mail" 
oggetto = "oggetto della email" 
ret = ShellExecute(Me.hwnd, _ 
"Open", _ 
"mailto:" & destinatario() & _ 
"?subject=" & oggetto & _ 
"&body=" & testo, _ 
vbNullString, _ 
vbNullString, SW_HIDE) 
End Sub 
Private Function Destinatario() 
With Me.RecordsetClone 
If .RecordCount> 0 Then 
MoveFirst 
Do 
If Len(!CampoMail)>0 then 
destinatario = destinatario & ";" & !campoMail 
End if 
MoveNext 
Loop Until .EOF 
End If 
End With 
destinatario = Right(destinatario, Len(destinatario) - 1) 
End Function 
Giusto?
Grazie ancora!!!
-- 
Insostenibile è il peso della conoscenza, se questa toglie poesia all'
Essere Umano.
questo articolo e` stato inviato via web dal servizio gratuito 


 ha scritto nel 
messaggio news:d6t440$cbr$1...@news.newsland.it...

Più o meno.
Public Const SW_HIDE = 0 va messo nella sezione dichiarazioni di un modulo 
pubblico oppure
Private Const SW_HIDE = 0 nella sezione dichiarazioni del modulo della 
maschera.
Ciao, Carlo