Dieses Projekt ist ein einfacher SMTP-Mail-Server. Er arbeitet sicherlich nicht perfekt, aber er kann alles, was die minimal Implementierung laut der RFC können muss. Leider fehlt noch ein Mail-Fowarder, aber der wird sicherlich noch kommen!
History:
30.08.2002 - Beginn der Programmierung
02.01.2003 - Onlinestellung auf vbInside
Autor: Tim Braun
eMail: zork_auf_vbinside.de
Code aus modMain.bas
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias _
"Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As _
NOTIFYICONDATA) As BooleanConst NIM_ADD = &H0
Const NIM_MODIFY = &H1
Const NIM_DELETE = &H2
Const NIF_MESSAGE = &H1
Const NIF_ICON = &H2
Const NIF_TIP = &H4
Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_LBUTTONDBLCLK = &H203
Const WM_RBUTTONDOWN = &H204
Const WM_RBUTTONUP = &H205
Const WM_RBUTTONDBLCLK = &H206
Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Dim TIcon As NOTIFYICONDATA
