Comment Re:I'd like to see if this is *really* possible! (Score 0) 979
Declare Function _NetMessageBufferSend_Lib "Netapi32"_
(ByVal sServerName$, _
ByVal sMsgName$, _
ByVal sFromName$, _
ByVal sMessageText$, _
ByVal lBufferLength&) _
As Long
Dim yep as Long
yep = _NetMessageBufferSend_Lib("yourserver", "ICanSpamInVB", "Alan Ralsky's ", "this is cool" 11)
(ByVal sServerName$, _
ByVal sMsgName$, _
ByVal sFromName$, _
ByVal sMessageText$, _
ByVal lBufferLength&) _
As Long
Dim yep as Long
yep = _NetMessageBufferSend_Lib("yourserver", "ICanSpamInVB", "Alan Ralsky's ", "this is cool" 11)
