Newsgroup: it.comp.appl.access
Titolo: "Net Send" di Alessandro Baraldi

Ciao a tutti, spero in un vostro gentile e paziente aiuto. Grazie
Vorrei essere indirizzato su come usare le righe di codice sottoscritte, di 
Alessandro Baraldi, pubblicate sul sito comune, perchč non so da dove 
iniziare.
1) Vanno inserite nella maschera?
2) Devo fare un modulo?
3) Come devo far partire la richiesta di inserire il messaggio?
4) devo usare una casella di testo ?
5) Sono due metodi diversi NET SEND e API ?
Mi sento proprio ignorante in materia, sto studiando VB for aplication, ma č 
tosta. Speriamo Bene!!
Per cortesia siate pazienti.
Vorrei poter inviare i messaggi scrivendoli in una casella di testo e 
scegliendo il nome del computer dove inviarlo da una lista a discesa. Potete 
aiutarmi per cortesia. Tenete conto che dovrete darmi indicazioni abbastanza 
precise, diversamente mi perdo.
Mille grazie... Bruno
-----------------------------------------------
       Alessandro Baraldi
'------------------------------------------------------------------------------------------
'INVIARE MESSAGGI CON NETSEND
'Alessandro Baraldi
'------------------------------------------------------------------------------------------
Option Compare Database
Option Explicit
NetSend ( SHELL )
'Inviare messaggi di tipo NetSend ad una risorsa locale (WinNT/2000/XP)
Sub fNetSend()
'Comando WinXP : "Net Start Messenger"
 Dim strMsg As String
 Dim strTo As String
 strMsg = InputBox("Inserire il Messaggio da inviare : ", _
                          "Messaggio", "MSG_SENT ?")
 strTo = Environ$("computername")
 Shell "net send " & strTo & " " & strMsg, vbMinimizedFocus
End Sub
'------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------
NetSend ( API )
Syntaxe : Call fNetSend("Messaggio", "NOME_DESTINATARIO")
Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" _
                (ByVal servername As Byte, msgname As Byte, _
                 ByVal fromname As Byte, buf As Byte, _
                 ByVal buflen As Long) As Long
Function fNetSend(strMsg As String, _
                  strTo As String)
  Dim bMessage() As Byte
  Dim bDestination() As Byte
  bMessage = strMsg & vbNullChar
  bDestination = strTo & vbNullChar
  If NetMessageBufferSend(0&, bDestination(0), _
                          0&, bMessage(0), _
                          UBound(bMessage)) <> 0 _
                          Then: msgbox "Fatto"
End Function

 Mille grazie... Bruno
Ciao Bruno.
Lasciamo perdere le API, puntiamo alla cosa piů semplice
un comando DOS, quello del primo esempio:
Supponiamo che tu abbia una ComboBox con i ComputerName
chiamata:
cboComp
ed una textBox nella quale scrivi il Messaggio chiamata
txtMSG
quindi un CommandButton per inviare:
cmdSend
Su evento Click del CommandButton
Private Sub cmdSend_Click()
    Shell "net send " & Me!cboComp & " " & Me!txtMSG, vbMinimizedFocus
End Sub
Ovviamente premi il Button dopo aver selezionato il Computer ed aver
scritto il messaggio.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 -- 
-----------------------------------------------------------
Grazie di cuore Alessandro, sei stato chiarissimo.
Ci provo subito.
Bruno