ник: k@s
Изменил порты.Но почту не могу принять.В чем проблема?Помогите...
Declare Function CheckMsg Lib "freemail.dll" _
(ByVal strHost As String, ByVal strUserName As String, _
ByVal strPassword As String, Optional ByVal lPort As Long = 995) As Long
' отправить сообщение
Declare Function SendMsg Lib "freemail.dll" _
(ByVal fpCallback As Long, ByRef mmMsg As Any, _
ByVal strHost As String, Optional ByVal lPort As Long = 465) As Long
' отправить сообщение для серверов с авторизацией
Declare Function SendAuthMsg Lib "freemail.dll" _
(ByVal fpCallback As Long, ByRef mmMsg As Message, _
ByVal strHost As String, ByVal strUserName As String, _
ByVal strPassword As String, Optional ByVal lPort As Long = 465) As Long
' получить сообщение
Declare Function ReceiveMsg Lib "freemail.dll" _
(ByVal fpCallback As Long, ByVal lMsgNum As Long, ByVal mmMsg As Long, _
ByVal lDelAfterRcv As Long, _
ByVal strHost As String, ByVal strUserName As String, _
ByVal strPassword As String, Optional ByVal lPort As Long = 995) As Long
' получить заголовки сообщения
Declare Function ReceiveHdr Lib "freemail.dll" _
(ByVal lMsgNum As Long, ByVal mmMsg As Long, _
ByVal strHost As String, ByVal strUserName As String, _
ByVal strPassword As String, Optional ByVal lPort As Long = 995) As Long
' удалить сообщение из почтового ящика
Declare Function DeleteMsg Lib "freemail.dll" _
(ByVal lMsgNum As Long, _
ByVal strHost As String, ByVal strUserName As String, _
ByVal strPassword As String, Optional ByVal lPort As Long = 995) As Long
' получить размер сообщения
Declare Function GetMsgSize Lib "freemail.dll" _
(ByVal lMsgNum As Long, _
ByVal strHost As String, ByVal strUserName As String, _
ByVal strPassword As String, Optional ByVal lPort As Long = 995) As Long
Declare Function ConvertCyr Lib "freemail.dll" _
(ByRef strSrcDest As String, ByVal strSrcSrc As String, _
ByVal strFromToCP As String) As Long