我們一般備份文件可能選擇本地硬盤、移動(dòng)U盤或局域網(wǎng)，但在現(xiàn)在免費(fèi)的電子郵箱是越來越大，功能也還比較好，在我們程序使用過程中就可充分利用網(wǎng)絡(luò)的優(yōu)越性，將我們的文件備份到郵箱中去。方法也很簡單，就是調(diào)用RAR的壓縮并Email的功能。

注意：Outlook Express中發(fā)送選項(xiàng)可取消：在“己發(fā)送郵件”中保存己發(fā)送郵件的副本
最好取消：當(dāng)別的應(yīng)用程序試圖用我的名義發(fā)送電子郵件時(shí)警告我。
這樣，可以在發(fā)送時(shí)不必彈出確認(rèn)窗口。
另外，為了防止服務(wù)器超時(shí)錯(cuò)誤，可適當(dāng)延長服務(wù)器的超時(shí)時(shí)間（在郵件帳戶的屬性的高級(jí)選項(xiàng)中設(shè)置）。

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

簡單說明：參數(shù)V20000用于分卷壓縮文件的大小20000，000字節(jié)，一般要設(shè)置比最大的郵箱附件大小小一點(diǎn)，因?yàn)�，在郵件中，實(shí)際顯示的大小好象要大于文件的實(shí)際大小。
-P1230設(shè)置壓縮文件的密碼為1230

只是有個(gè)問題，就是發(fā)送時(shí)有時(shí)出現(xiàn)錯(cuò)誤如“服務(wù)器響應(yīng): '421 Read data from client error'”，會(huì)發(fā)送失敗，但當(dāng)打開Outlook后，再次發(fā)送可以成功發(fā)送，不知是否還是服務(wù)器的超時(shí)時(shí)間設(shè)置過短？

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

廣東移動(dòng)手機(jī)用戶現(xiàn)免費(fèi)開通無限容量的郵箱，最大發(fā)送50M附件（同時(shí)還有其他的優(yōu)惠和功能，廣東移動(dòng)用戶如沒有開通的趕緊開通吧）。點(diǎn)此免費(fèi)開通
QQ郵箱容量2G，最大發(fā)送20M附件，但接收可超過至少30M的附件。
網(wǎng)易的免費(fèi)郵箱也可以申請無限容量，但發(fā)送和接收的附件也只能是20M。