Sıkıştırma işlemi mail atmaktan çok farklı bir işlem.
Önce dosyanızı sıkıştırıp, daha sonra sıkıştırılan dosyayı ve yolunu göstererek mail atabilirsiniz.

Aşağıda dosya sıkıştırma ile ilgili çeşitli Access kodlarını bulabilirsiniz.

İngilizceniz yeterliyse aşağıdaki sayfalardan yararlanabilirsiniz.
http://www.xstandard.com/en/documentation/xzip/
Zip and Unzip from Microsoft Access VBA
Working with Compressed (zipped) folders in MS Access


Eğer WinRar kullanıyorsanız, aşağıdaki kısa kodları kullanabilirsiniz.

Access Üzerinden Başka Bir Dosyayı WinRar ile Sıkıştırma



Kod :

Dim trz As String

trz = "C:\\dosya.xls"

Shell Environ$("ProgramFiles") & "\\WinRAR\\rar.exe" & _

    " a -ep " & Chr(34) & Left$(trz, Len(trz) - 4) & ".rar" & _

      Chr(34) & " " & Chr(34) & trz & Chr(34)

access-vb-kod-deposu
Excel Vba WinRar Dosyası Oluşturma