www.pudn.com > 20063518740652.zip > MODULE16.BAS

' 
' EXCEL/ACCESS Module Code (Win16 applications) 
' 
' See MODULE32.BAS for Office 97 Apps (WORD97, EXCEL97, ACCESS97, etc.) 
' 
' Edit "smtp_host_name", "your_email_address", etc. before compiling 
 
Private Declare Function seeClose Lib "SEE16.DLL" () As Integer 
Private Declare Function seeDebug Lib "SEE16.DLL" (ByVal Index As Integer, ByVal Buffer As String, ByVal BufLen As Integer) As Integer 
Private Declare Function seeDeleteEmail Lib "SEE16.DLL" (ByVal MsgNbr As Integer) As Integer 
Private Declare Function seeDriver Lib "SEE16.DLL" () As Integer 
Private Declare Function seeErrorText Lib "SEE16.DLL" (ByVal Code As Integer, ByVal Buffer As String, ByVal BufLen As Integer) As Integer 
Private Declare Function seeExtractText Lib "SEE16.DLL" (ByVal Src As String, ByVal Text As String, ByVal Buffer As String, ByVal BufLen As Integer) As Integer 
Private Declare Function seeGetEmailCount Lib "SEE16.DLL" () As Integer 
Private Declare Function seeGetEmailFile Lib "SEE16.DLL" (ByVal MsgNbr As Integer, ByVal FileName As String, ByVal EmailDir As String, ByVal AttachDir As String) As Integer 
Private Declare Function seeGetEmailLines Lib "SEE16.DLL" (ByVal MsgNbr As Integer, ByVal Lines As Integer, ByVal Buffer As String, ByVal BufLen As Integer) As Integer 
Private Declare Function seeGetEmailSize Lib "SEE16.DLL" (ByVal MsgNbr As Integer) As Long 
Private Declare Function seeIntegerParam Lib "SEE16.DLL" (ByVal Index As Integer, ByVal Value As Integer) As Integer 
Private Declare Function seePop3Connect Lib "SEE16.DLL" (ByVal Server As String, ByVal User As String, ByVal Password As String) As Integer 
Private Declare Function seeSendEmail Lib "SEE16.DLL" (ByVal Rcpt As String, ByVal CC As String, ByVal BCC As String, ByVal Subj As String, ByVal Msg As String, ByVal Attach As String) As Integer 
Private Declare Function seeSmtpConnect Lib "SEE16.DLL" (ByVal Server As String, ByVal From As String, ByVal Reply As String) As Integer 
Private Declare Function seeStatistics Lib "SEE16.DLL" (ByVal Index As Integer) As Long    
Private Declare Function seeStringParam Lib "SEE16.DLL" (ByVal Index As Integer, ByVal Value As String) As Integer 
Private Declare Function seeVerifyFormat Lib "SEE16.DLL" (ByVal EmailAddr As String) As Integer 
Private Declare Function seeVerifyUser Lib "SEE16.DLL" (ByVal EmailAddr As String) As Integer 
Private Declare Function seeEncodeBuffer Lib "SEE16.DLL" (ByVal ClearBuf As String, ByVal CodedBuf As String, ByVal BufLen As Integer) As Integer 
Private Declare Function seeDecodeBuffer Lib "SEE16.DLL" (ByVal CodedBuf As String, ByVal ClearBuf As String, ByVal BufLen As Integer) As Integer 
 
Private Const SEE_MIN_RESPONSE_WAIT = 1 
Private Const SEE_MAX_RESPONSE_WAIT = 2 
Private Const SEE_CONNECT_WAIT = 3 
Private Const SEE_MIN_LINE_WAIT = 5 
Private Const SEE_MAX_LINE_WAIT = 6 
Private Const SEE_QUOTED_PRINTABLE = 8 
Private Const SEE_AUTO_CALL_DRIVER = 9 
Private Const SEE_LOG_FILE = 20 
 
Private Const SEE_GET_COUNTER = 2 
Private Const SEE_GET_RESPONSE = 3 
Private Const SEE_GET_SOCK_ERROR = 4 
Private Const SEE_GET_MESSAGE_BYTES_READ = 10 
Private Const SEE_GET_ATTACH_BYTES_READ = 11 
Private Const SEE_GET_TOTAL_BYTES_READ = 12 
Private Const SEE_GET_MESSAGE_BYTES_SENT = 13 
Private Const SEE_GET_ATTACH_BYTES_SENT = 14 
Private Const SEE_GET_TOTAL_BYTES_SENT = 15 
Private Const SEE_GET_VERSION = 16 
Private Const SEE_GET_MSG_COUNT = 17 
Private Const SEE_GET_MSG_SIZE = 18 
Private Const SEE_GET_BUFFER_COUNT = 19 
Private Const SEE_GET_CONNECT_STATUS = 20 
Private Const SEE_GET_REGISTRATION = 21 
Private Const SEE_GET_ATTACH_COUNT = 22 
Private Const SEE_GET_LAST_RESPONSE = 23 
Private Const SEE_GET_VERIFY_STATUS = 24 
Private Const SEE_GET_SERVER_IP = 25 
Private Const SEE_GET_BUILD = 26 
 
Private Sub ShowError(Code As Integer) 
Dim Buffer As String * 81 
Code = seeErrorText(Code, Buffer, 80) 
MsgBox Buffer 
End Sub 
 
Function vbaSmtpConnect () 
Dim Code As Integer 
Code = seeSmtpConnect("smtp_host_name", "your_email_address", "") 
vbaConnectTo = Code 
End Function 
 
Function vbaSendEmail () 
Dim Code As Integer 
Code = seeSendEmail("receipients_email_address", "", "", "Email from VBA", "Hello from VBA", "") 
vbaSendEmail = Code 
End Function 
 
Function vbaClose ()  
vbaClose = seeClose() 
End Function