Newsgroup: it.comp.lang.visual-basic
Titolo: Sito web ed email nel Menu

Salve,
esiste una funzione in VB6 che cliccando una voce nel menu di un mio
programma permette di aprire il broswer web con un determinato
indirizzo? Si può fare la stessa cosa ma questa volta aprendo il
client di posta elettronica con un determinato indirizzo email?
Grazie

 Grazie
Esiste l'API ShellExecute. Dai un'occhiata a questo esempio:
http://vbnet.mvps.org/code/intrinsic/sehyperlink.htm
Bye
Raf 



Indirizzo Internet 
SW_SHOWNORMAL=1
iRet = ShellExecute(Me.hWnd, vbNullString, "http//...", vbNullString,
vbNullString, _
  SW_SHOWNORMAL)
Per email:
iRet = ShellExecute(Me.hWnd, vbNullString, "mailto: 
in...@dominio.com
",
vbNullString, vbNullString, _
  SW_SHOWNORMAL)

   SW_SHOWNORMAL)
Grazie per la dritta, però il codice per l'indirizzo internet non
funziona, infatti avviando il programma e cliccando non succede nulla.
Mentre il pezzo di codice per l'email funziona perfettamente. Da cosa
può dipendere? Come dichiarazione per la ShellExecute ho usato il
seguente codice:
Private Declare Function ShellExecute Lib "shell32" _
   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

 funziona
Nessun errore? Tu cosa scrivi?
-- 
Greg 

 Nessun errore? Tu cosa scrivi?
nessun errore, è come se all'interno della funzione click non ci sia
nulla. Non si apre nemmeno il broswer (il mio broswer predefinito è
chrome, ma ho provato a impostare come predefino explorer e non
funziona uguale)
ecco il pezzo di codice interessato:
Private Declare Function ShellExecute Lib "shell32" _
   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 sito_Click()
    SW_SHOWNORMAL = 1
    iRet = ShellExecute(Me.hwnd, vbNullString, "http//
www.sito.it
",
vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

 ha scritto:
Questa funziona perfettamente sul mio pc:
 iRet = ShellExecute(Me.hwnd, vbNullString, "
http://www.google.it/
",
vbNullString, vbNullString, SW_SHOWNORMAL)
--
ciao
  Stefano

vbNullString, vbNullString, SW_SHOWNORMAL)
Al limite guarda il valore di  iRet, deve essere maggiore di 32.
AllApi dice questo su ShellExecute:
If the function succeeds, the return value is the instance handle of the
application that was run, or the handle of a dynamic data exchange (DDE) server
application. 
If the function fails, the return value is an error value that is less than or
equal to 32. The following table lists these error values:
0 
 The operating system is out of memory or resources. 
 
--
ciao
  Stefano

 ha
scritto:
Ho copia&incollato male:
 
If the function succeeds, the return value is the instance handle of the
application that was run, or the handle of a dynamic data exchange (DDE) server
application. 
If the function fails, the return value is an error value that is less than or
equal to 32. The following table lists these error values:
0 
 The operating system is out of memory or resources. 
 
ERROR_FILE_NOT_FOUND 
 The specified file was not found. 
 
ERROR_PATH_NOT_FOUND 
 The specified path was not found. 
 
ERROR_BAD_FORMAT 
 The .EXE file is invalid (non-Win32 .EXE or error in .EXE image). 
 
SE_ERR_ACCESSDENIED 
 The operating system denied access to the specified file. 
 
SE_ERR_ASSOCINCOMPLETE 
 The filename association is incomplete or invalid. 
 
SE_ERR_DDEBUSY 
 The DDE transaction could not be completed because other DDE transactions were
being processed. 
 
SE_ERR_DDEFAIL 
 The DDE transaction failed. 
 
SE_ERR_DDETIMEOUT 
 The DDE transaction could not be completed because the request timed out. 
 
SE_ERR_DLLNOTFOUND 
 The specified dynamic-link library was not found. 
 
SE_ERR_FNF 
 The specified file was not found. 
 
SE_ERR_NOASSOC 
 There is no application associated with the given filename extension. 
 
SE_ERR_OOM 
 There was not enough memory to complete the operation. 
 
SE_ERR_PNF 
 The specified path was not found. 
 
SE_ERR_SHARE 
 A sharing violation occurred. 
--
ciao
  Stefano


Mancano i : dopo http...
Ciao
Raf 

 ha

 Mi da iret=2 a quale degli errori da te postati corrisponde 2?? dove
hai letto questi errori?
grazie mille!

hai letto questi errori?
Qui:
http://allapi.mentalis.org/apilist/ShellExecute.shtml
ma tu hai provato a incollare la stringa che ho postato prima?
 iRet = ShellExecute(Me.hwnd, vbNullString, "
http://www.google.it/
",
vbNullString, vbNullString, SW_SHOWNORMAL)
che FUNZIONA.
--
ciao
  Stefano

 vbNullString, vbNullString, SW_SHOWNORMAL)
oppss....come aveva notato Rafunk mancavano i due punti dopo http....
grazie a tutti, ciao