Private Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (yServer As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, FromUser As String, BodyMessage As String) As Boolean Dim RcptTo() As Byte Dim From() As Byte Dim Body() As Byte RcptTo = RcptToUser & vbNullChar From = FromUser & vbNullChar Body = BodyMessage & vbNullChar If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _ Body(0), UBound(Body)) = NERR_Success Then SendMessage = True End If End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question