[Potassium]

also ich hab was gefunden das funzt aber ich verwende nur ungerne fremde wuelletxt noch dazu wenn ich sie nicht verstehe.... vielleicht kann mit dsa jemand erklären was da alles vorsich geht???

Public Declare Function NetSend Lib "netapi32" Alias "NetMessageBufferSend" (ByVal cServerName As String, ByVal cMsgName As String, ByVal cFromName As String, ByVal cBuf As String, ByRef iBufLen As Integer) As Integer  

Public Sub Senden(Von As String, Zu As String, Meldung As String)         Dim Text As String   
Dim Adressat As String   
Dim Absender As String   
Dim i As Integer     
If Von = "" Then   
Von = Computername   
End If   
If Zu = "" Then   
MsgBox "Bitte geben Sie einen Empänger ein", , "Kein gültiger Empänger"    
Exit Sub        
End If   
If Meldung = "" Then   
MsgBox "Bitte geben Sie ihre Nachricht ein", , "Keine gültige Nachricht"   
Exit Sub    
End If      
Text = StrConv(Meldung, vbUnicode)   
Adressat = StrConv(Zu, vbUnicode)   
Absender = StrConv(Von, vbUnicode)     
i = NetSend(Absender, Adressat, vbNullString, Text, ByVal Len(Text))   End Sub