l 函數原型：
int WINAPI icePub_receiveMailText(char *strUsername,char *strPassword,char *strSmtpSever,char *strMailText,int TextMaxLen,char *strFenge,int deleteFlag)
輸入：strUsername pop3用戶名
strPassword 用戶密碼
strSmtpSever pop3服務器
TextMaxLen strMailText最大長度
StrFenge 每個郵件間分隔符串
DeleteFlag 收完是否刪除郵標誌
輸出：strMailText 接收的郵件內容
VB sample 代碼：
Private Declare Function icePub_receiveMailText Lib "icePubDll.dll" (ByVal strusername As String, ByVal strpwd As String, ByVal strsmtpsever As String, ByVal strMailText As String, ByVal TextMaxLen As Integer, ByVal strFenge As String, ByVal deleteFlag As Integer) As Integer
Dim str1 As String
Dim str3 As String
Dim a2 As Integer
str3 = vbCrLf + vbCrLf + vbCrLf + "===================" + vbCrLf
str1 = Space(1024 * 30 + 1)
a2 = icePub_receiveMailText("ahuinuli", "112233", "pop.tom.com", str1, 1024 * 30, str3, 0)
MsgBox str1
3.72 icePub_receiveMailTextToFile
l 函數原型：
int WINAPI icePub_receiveMailTextToFile(char *strUsername,char *strPassword,char *strSmtpSever,char *strFenge,char *strFileName,int appendFlag,int deleteFlag)
輸入：strUsername pop3用戶名
strPassword 用戶密碼
strSmtpSever pop3服務器
TextMaxLen strMailText最大長度
StrFenge 每個郵件間分隔符串
DeleteFlag 收完是否刪除郵標誌
輸出：strMailText 接收的郵件內容
VB sample 代碼：
Private Declare Function icePub_receiveMailTextToFile Lib "icePubDll.dll" (ByVal strusername As String, ByVal strpwd As String, ByVal strsmtpsever As String, ByVal strFenge As String, ByVal strFileName As String, ByVal appendFlag As Integer, ByVal deleteFlag As Integer) As Integer
Dim str3 As String
Dim str4 As String
Dim a2 As Integer
str3 = vbCrLf + vbCrLf + vbCrLf + "===================" + vbCrLf
str4 = App.Path + "\mymail.txt"
a2 = icePub_receiveMailTextToFile("ahuinuli", "112233", "pop.tom.com", str3, str4, 0, 1)
/dev.php?f=icePubDll.rar 下載