- Public Function SendMessage(sToUser As String, sFromUser As String, sBody As String) As Boolean
- Dim abTo() As Byte, abFrom() As Byte, abBody() As Byte
- abTo = sToUser & vbNullChar
- abFrom = sFromUser & vbNullChar
- abBody = sBody & vbNullChar
- If NetMessageBufferSend(ByVal 0&, abTo(0), ByVal 0&, abBody(0), UBound(abBody)) = NERR_Success Then
- SendMessage = True
- Forms("net send").journal.Caption = "Le message a bien été envoyé"
- Else
- Forms("net send").journal.Caption = "Une erreur est survenue"
- SendMessage = False
- End If
- End Function
Public Function SendMessage(sToUser As String, sFromUser As String, sBody As String) As Boolean
Dim abTo() As Byte, abFrom() As Byte, abBody() As Byte
abTo = sToUser & vbNullChar
abFrom = sFromUser & vbNullChar
abBody = sBody & vbNullChar
If NetMessageBufferSend(ByVal 0&, abTo(0), ByVal 0&, abBody(0), UBound(abBody)) = NERR_Success Then
SendMessage = True
Forms("net send").journal.Caption = "Le message a bien été envoyé"
Else
Forms("net send").journal.Caption = "Une erreur est survenue"
SendMessage = False
End If
End Function