net send problem

[amnine]

I made a little program that is using the net send command.I want it to display a mesage if it failed to send the message,or whatever error the dos returned.I got a tip to use a txt file (like in command.com when u write after everything >> c:\this.txt),but it doesn't work.Any ideas how can do this?
Thanx!

[Bruce Fox]

Here is one way.

Note: You could remove the Else section, and place the error code after a False condition. (So you just have an If..Then)

Dim intFF As Integer
 
    'Handle sent message action
    If NetMessageBufferSend(ByVal 0&, bytToName(0), ByVal 0&, bytMsg(0), UBound(bytMsg)) = 0 Then
        'Message succeeded
    Else
        'Message failed
        MsgBox Environ$("USERNAME") & ", there was an error sending your message." & vbCrLf & _
        "Please try again.", vbCritical + vbOKOnly, App.Title & " - Send Error"
    
        intFF = FreeFile
    
        Open "C:\NetSend_Log.txt" For Append As #intFF
            Print #intFF, Now 'Capture the date and time the failure occured
        Close #intFF
        
    End If

Bruce.

[x-ice]

Or if you want to use API you can look at this example, created by ME

http://pscode.com/vb/scripts/ShowCod...51063&lngWId=1

p.s. it has error reporting