我们一般备份文件可能选择本地硬盘、移动U盘或局域网，但在现在免费的电子邮箱是越来越大，功能也还比较好，在我们程序使用过程中就可充分利用网络的优越性，将我们的文件备份到邮箱中去。方法也很简单，就是调用RAR的压缩并Email的功能。

注意：Outlook Express中发送选项可取消：在“己发送邮件”中保存己发送邮件的副本
最好取消：当别的应用程序试图用我的名义发送电子邮件时警告我。
这样，可以在发送时不必弹出确认窗口。
另外，为了防止服务器超时错误，可适当延长服务器的超时时间（在邮件帐户的属性的高级选项中设置）。

调用如下语句，引用万山的MdbShell中的部分语句：
Call Shell(getShortPath(MdbShellPath) & "support\RAR.EXE" & " A -p1230 -v20000 -ieml.lijiaxiang@126.com " & "ACCESS源程序MdbShellData" & Date & "-Bak.RAR" & " " & "c:\data.mdb", vbHide)

简单说明：参数V20000用于分卷压缩文件的大小20000，000字节，一般要设置比最大的邮箱附件大小小一点，因为，在邮件中，实际显示的大小好象要大于文件的实际大小。
-P1230设置压缩文件的密码为1230

只是有个问题，就是发送时有时出现错误如“服务器响应: '421 Read data from client error'”，会发送失败，但当打开Outlook后，再次发送可以成功发送，不知是否还是服务器的超时时间设置过短？

Private Declare Function GetShortPathName32 Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Public Function getShortPath(ByVal strfullpath As String) As String

    Dim strShortPath As String
    strShortPath = Space(256)
    GetShortPathName32 strfullpath, strShortPath, 256
    strShortPath = Left(strShortPath, InStr(strShortPath, Chr(0)) - 1)
    getShortPath = strShortPath

End Function

广东移动手机用户现免费开通无限容量的邮箱，最大发送50M附件（同时还有其他的优惠和功能，广东移动用户如没有开通的赶紧开通吧）。点此免费开通
QQ邮箱容量2G，最大发送20M附件，但接收可超过至少30M的附件。
网易的免费邮箱也可以申请无限容量，但发送和接收的附件也只能是20M。