如何使用API收发邮件 如何用API进行BASE64编解码

minfo.dll是我做的一个收发邮件的动态连接库，目前是测试版。可以从http://xlrj.com/am下载。以下是readme.txt的内容：

这是测试版本，请将MINFO.DLL放入系统目录（例如：c:windowssystem）
minfo.dll包括以下api:
Public Declare Function Logon Lib "minfo.dll" (popinfo As popinfo, ByVal er As String) As Long
登录pop3服务器，如果成功，应使用Logoff退出。
Public Declare Function DeleteMail Lib "minfo.dll" (ByVal nIndex As Long, ByVal er As String) As Long
删除指定的邮件
Public Declare Function GetMailInfo Lib "minfo.dll" (mount As Long, minfo As Long, ByVal er As String) As Long
获取邮件信息，包括邮件数目，邮件标题、发件人、邮件长度、邮件日期
Public Declare Function GetMailData Lib "minfo.dll" (ByVal nIndex As Long, ByVal filename As String, ByVal er As String) As Long
获取指定的邮件内容，并存入文件
Public Declare Sub Logoff Lib "minfo.dll" ()
退出pop3邮件服务器
Public Declare Function Encode Lib "minfo.dll" (data As Byte, ByVal l As Long, rtnlong As Long) As Long
base64编码字节数组
Public Declare Function Decode Lib "minfo.dll" (data As Byte, l As Long) As Long
base64解码字节数组
Public Declare Function SendMail Lib "minfo.dll" (smtpin As smtpinfo, maildata As Byte, ByVal subject As String, ByVal attachment As String, ByVal er As String) As Long
发送邮件

test.xls提供了使用这些api的一些范例。以下是该文件的VBA代码：

Type popinfo
user As String '用户名
pass As String '密码
popsvr As String '接收邮件服务器
End Type
Type mailinfo
from As Long '发件人
subject As Long '邮件主题
date As Long '邮件日期
mlen As Long '邮件长度
End Type
Type smtpinfo
smtpsvr As String 'smtp服务器
sender As String '发件人
receiver As String '收件人，多个收件人用 , 隔开
auth As Long '是否需要AUTH认证 1 需要 0 不需要
user As String '用户名
pass As String '密码
End Type
Public Declare Sub Logoff Lib "minfo.dll" ()
Public Declare Function Logon Lib "minfo.dll" (popinfo As popinfo, ByVal er As String) As Long
Public Declare Function DeleteMail Lib "minfo.dll" (ByVal nIndex As Long, ByVal er As String) As Long
Public Declare Function SendMail Lib "minfo.dll" (smtpin As smtpinfo, maildata As Byte, ByVal subject As String, ByVal attachment As String, ByVal er As String) As Long '发送邮件
Public Declare Function GetMailInfo Lib "minfo.dll" (mount As Long, minfo As Long, ByVal er As String) As Long '获取邮件信息
Public Declare Function Encode Lib "minfo.dll" (data As Byte, ByVal l As Long, rtnlong As Long) As Long 'BASE64编码
Public Declare Function Decode Lib "minfo.dll" (data As Byte, l As Long) As Long 'BASE64解码
Public Declare Function GetMailData Lib "minfo.dll" (ByVal nIndex As Long, ByVal filename As String, ByVal er As String) As Long '获取邮件内容
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long)
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub EncodeIt()
Dim hh() As Byte '编码前的字节数组
hh = StrConv("为了提前为您提供服务，您的软件作品可以现在就通过我们的系统自动加入。", vbFromUnicode) '被编码的字节数组
Dim ll As Long '编码后字节数组地址
Dim rlong As Long '编码后长度
ll = Encode(hh(0), UBound(hh) + 1, rlong) 'UBound(hh) + 1是待解码字节数组长度
Dim lll() As Byte
ReDim lll(rlong - 1)
CopyMemory lll(0), ByVal ll, rlong
Dim llll As String
llll = StrConv(lll, vbUnicode)
MsgBox llll
End Sub

Sub DecodeIt()
Dim gg() As Byte '待解码字节数组
Dim bb As Long '解码后字节数组地址
Dim m As Long '解码后字节数组的长度
Dim ff As String
ff = "PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv"
ff = ff %26amp; vbCrLf %26amp; "PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv"
ff = ff %26amp; vbCrLf %26amp; "dD0idGV4dC9odG1sOyBjaGFyc2V0PWdiMjMxMiI+DQo8TUVUQSBjb250ZW50PSJNU0hUTUwgNi4w"
ff = ff %26amp; vbCrLf %26amp; "MC4yNzE1LjQwMCIgbmFtZT1HRU5FUkFUT1I+DQo8U1RZTEU+PC9TVFlMRT4NCjwvSEVBRD4NCjxC"
ff = ff %26amp; vbCrLf %26amp; "T0RZIGJnQ29sb3I9I2ZmZmZmZj4NCjxESVY+PEZPTlQgc2l6ZT0yPsTjw8e1xMjtvP7K1NPDyrHD"
ff = ff %26amp; vbCrLf %26amp; "3MLryuTKssO0PC9GT05UPjwvRElWPjwvQk9EWT48L0hUTUw+DQo="
gg = StrConv(ff, vbFromUnicode)
bb = Decode(gg(0), m)
Dim cc() As Byte
ReDim cc(m - 1)
CopyMemory cc(0), ByVal bb, m
Dim dd As String
dd = StrConv(cc, vbUnicode)
MsgBox dd
End Sub
Sub GetMail()
On Error GoTo BBB
Dim info1 As popinfo
info1.user = "whypop3" '用户名
info1.pass = "whypop3" '密码
info1.popsvr = "pop.163.com" 'pop3邮件服务器
Dim info2() As mailinfo '作为邮件信息将被返回
Dim s As String '出错信息