NET SEND VBA ACCESS

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

Télécharger le zip

20 avril 2006 09:50:33 :

Mise a jour du 20 Avril 2006 Utilisation de l'api NetMessageBufferSend qui gère les erreurs. (http://www.ostrosoft.com/vb/projects/net_send/index.asp)

20 avril 2006 14:08:16 :

Correction du code qui n'avait pas ete mis a jour