Option Explicit
 
Private Declare Function NetMessageBufferSend Lib "netapi32.dll" ( _
    lpServerName As Any, _
    lpMsgName As Byte, _
    lpFromName As Any, _
    lpBuf As Byte, _
    ByVal lnBufLen As Long _
) As Long
 
Private Const NERR_Success As Long = 0&

Public Function SendMsg(ByVal SendTo As String, ByVal Message As String, _
  Optional ByVal FromName As String) As Long
    Dim WrittenTo() As Byte  'Empfänger
    Dim MSGBuffer() As Byte  'Nachricht
    Dim WrittenFrom() As Byte 'Absender
 
    'String mit NullChar abschließen
    WrittenTo = SendTo & vbNullChar
    MSGBuffer = Message & vbNullChar
    WrittenFrom = FromName & vbNullChar
 
    If Len(FromName) > 0 Then
        'Absender verfälschen
        SendMsg = (NetMessageBufferSend(ByVal 0&, WrittenTo(0), _
        WrittenFrom(0), MSGBuffer(0), UBound(MSGBuffer)) = NERR_Success)
    Else
        'Standardabsender verwenden
        SendMsg = (NetMessageBufferSend(ByVal 0&, WrittenTo(0), ByVal 0&, _
        MSGBuffer(0), UBound(MSGBuffer)) = NERR_Success)
    End If
End Function

Gru?,
Frank

FrankGrimm.net - Meine kleine Ecke des Webs