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

原创 2002年08月05日 10:49:00

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

这是测试版本,请将MINFO.DLL放入系统目录(例如:c:/windows/system)
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 & vbCrLf & "PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv"
ff = ff & vbCrLf & "dD0idGV4dC9odG1sOyBjaGFyc2V0PWdiMjMxMiI+DQo8TUVUQSBjb250ZW50PSJNU0hUTUwgNi4w"
ff = ff & vbCrLf & "MC4yNzE1LjQwMCIgbmFtZT1HRU5FUkFUT1I+DQo8U1RZTEU+PC9TVFlMRT4NCjwvSEVBRD4NCjxC"
ff = ff & vbCrLf & "T0RZIGJnQ29sb3I9I2ZmZmZmZj4NCjxESVY+PEZPTlQgc2l6ZT0yPsTjw8e1xMjtvP7K1NPDyrHD"
ff = ff & vbCrLf & "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     '出错信息
Dim rc As Long      '1,代表成功,0,失败
Dim c As Long       '邮件数目
Dim temp As Long   '邮件信息地址
Dim n As Long
s = String(255, Chr(0))
rc = Logon(info1, s)
If rc = 0 Then
MsgBox s
Exit Sub
End If
rc = GetMailInfo(c, temp, s)
If rc = 0 Then
MsgBox s
ElseIf c = 0 Then
MsgBox "您没有新邮件"
Else
ReDim info2(c - 1)
CopyMemory info2(0), ByVal temp, Len(info2(0)) * c
vv = "您共有" & c & "封邮件"
For i = 0 To c - 1
Dim from As String
Dim subject As String
Dim dat As String
Dim lenth As Long
CopyMemory from, info2(i).from, 4
CopyMemory subject, info2(i).subject, 4
CopyMemory dat, info2(i).date, 4
CopyMemory lenth, info2(i).mlen, 4
vv = vv & vbCrLf & vbCrLf & "发件人:" & Left(from, InStr(from, Chr(0)) - 1)
vv = vv & "  " & "主题:" & Left(subject, InStr(subject, Chr(0)) - 1)
vv = vv & "  " & "长度:" & lenth
vv = vv & "   " & "发件日期:" & Left(dat, InStr(dat, Chr(0)) - 1)
Next
MsgBox vv
s = String(255, Chr(0))
Dim l1 As Long
l1 = GetMailData(1, "e:/temp.eml", s) '1 邮件序号, "e:/temp.eml" 存储到文件名
If l1 = 0 Then
MsgBox s
GoTo BBB
End If
ShellExecute 0, "open", "e:/temp.eml", "", "", SW_SHOWNORMAL
DeleteMail 1, s    '1 邮件序号
MsgBox s
End If
BBB:
Logoff
End Sub
Sub sendemail()
Dim smtpin As smtpinfo
Dim s As String
s = String(255, Chr(0))
smtpin.sender = "whypop3@163.COM"
smtpin.receiver = "whypop3@163.com"
smtpin.smtpsvr = "smtp.163.com"
smtpin.auth = 1
smtpin.user = "whypop3"
smtpin.pass = "whypop3"
Dim gg As String
gg = vbCrLf & vbCrLf & "hello!everybody!!!"
Dim dby() As Byte
dby = StrConv(gg, vbFromUnicode)
Dim rc As Long
rc = SendMail(smtpin, dby(0), "测试程序", "e:/temp.eml" & Chr(34) & "e:/temp.exe", s) '几个参数分别为smtpinfo结构,邮件内容字节数组,主题,附件名称(用 " 隔开多个附件),出错信息
If rc = 1 Then
MsgBox "发送成功!"
Else
MsgBox "发送失败!" & vbCrLf & s
End If
End Sub

 

测试版是免费的,希望朋友们能给予建设性的意见。对于在测试过程中给我帮助的朋友,以后将增与正式版。
正式版将包括:
1.minfo.dll
2.详细而完备的帮助文档
3.C原型的说明
4.可能会包括一个ActiveX控件,对这些API进行封装,以方便在脚本语言中使用。

艾默网页软件设计工作室
qaymuic@163.com

 

 

 

*有朋友问,是不是支持MIME,多附件等等,解释如下:

对于接收的邮件,只是原封不动的获取邮件数据,不做任何处理,处理的事情应该交给用户(程序员)去做。

对于发送的邮件,是按照邮件规则进行组织的,只要你不要加上二三百个附件就行,呵呵。对于200个以内的附件是没有问题的。发送速度也比OE要快了多。关于MIME,为了安全,发送端基本不做处理,留给客户端软件处理,如果是OE,显示HTML没有问题,但会拒绝在html里运行附件程序的企图。

Base64系列第三篇 C/C++中使用Base64编码解码(使用boost库)

本篇《Base64系列第三篇 C/C++中使用Base64编码解码(使用boost库)》将介绍如何使用boost库来完成Base64的编码解码 由于boost库良好的封装,所以使用boost来完成Ba...
  • MoreWindows
  • MoreWindows
  • 2013年10月29日 10:33
  • 34031

BASE64编码和解码(VC源代码)

BASE64可以用来将binary的字节序列数据编码成ASCII字符序列构成的文本。完整的BASE64定义可见 RFC1421和 RFC2045。编码后的数据比原始数据略长,为原来的4/3。在电子邮件...
  • yeahhook
  • yeahhook
  • 2014年10月05日 17:03
  • 1362

从原理上搞定编码-- Base64编码

 Oracle中的ROWID是一种数据类型,它使用Base64编码的18个字符来唯一标识一条记录的物理位置的ID,有点类似于主键,不过与主键的本质区别是ROWID一般情况下是按照递增的顺序排列的...
  • hpdlzu80100
  • hpdlzu80100
  • 2016年07月18日 16:56
  • 277

邮件开发:Base64

从原理上搞定编码-- Base64编码  开发者对Base64编码肯定很熟悉,是否对它有很清晰的认识就不一定了。实际 上Base64已经简单到不能再简单了,如果对它的理解还是模棱两可实在不应该。大概...
  • xxssyyyyssxx
  • xxssyyyyssxx
  • 2016年01月07日 11:22
  • 1575

获取图片base64编码的几种方法

前文中我们聊了 Data URI 和 base64编码,稍微回顾下。base64编码 是将数据用 64 个可打印的字符进行编码的方式,任何数据底层实现都是二进制,所以都可以进行 base64编码,ba...
  • lipei1220
  • lipei1220
  • 2017年12月19日 14:42
  • 118

Android实战技巧之三十七:图片的Base64编解码

通常用Base64这种编解码方式将二进制数据转换成可见的字符串格式,就是我们常说的大串,10块钱一串的那种,^_^。Android的android.util包下直接提供了一个功能十分完备的Base64...
  • lincyang
  • lincyang
  • 2015年06月22日 22:37
  • 19378

Base64编解码(C++版)

转自:http://www.cnblogs.com/phinecos/archive/2008/10/10/1308272.html
  • gf771115
  • gf771115
  • 2014年04月26日 21:56
  • 1879

Base64加密---加密学习笔记(一)

密码的常用术语: (一) 明文:待加密信息 密文:经过加密后的明文 加密:明文转为密文的过程 加密算法:明文转为密文的转换算法 加密密钥:通过加密算法进行加密操作用的密钥 解密:将密文转为明文的过...
  • u013991521
  • u013991521
  • 2015年09月02日 19:37
  • 2417

C语言base64编解码

– * icesongqiang* base64码简介百度词条Base64是网络上最常见的用于传输8Bit字节代码的编码方式之一,大家可以查看RFC2045~RFC2049,上面有MIME的详细规范。...
  • u011491972
  • u011491972
  • 2016年10月12日 20:28
  • 1460

telnet发送邮件Base64加密

//在命令符里试了用telnet发送邮件,但是QQ邮箱的权限真的好恶心啊! QQ要把这里的IMAP/SMIP服务打开。也没有163邮箱,所以就写个代码,测试也不知道对不对了!需要的就把QQ邮箱换...
  • qq_28406209
  • qq_28406209
  • 2016年05月29日 22:52
  • 626
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何使用API收发邮件,如何用API进行BASE64编解码
举报原因:
原因补充:

(最多只允许输入30个字)