mrb benim sorum şöyle aşağıda ki mail gönderme kodları çalışıyor sıkıntı yok bu kod örneğin tablodan olan bi modülü gönderiyor. bunu göndermeye devam edecek fakat

benim yapım 2 ye bölünmüş data ları ayrı mdb de den görselle ayrı mdb de
data diye bi mdb var bu data mdb sini sıkıştırarak göndermek için ne yapmam lazım alttaki koda ilave olarak (hatta mümkünse sıkıştırdığı dosya zip e kodun içine yazdığımız bi şifle ile sıkıştırsın gibi)






Private Sub kayıtekle_Click()

Set objCDOMail = CreateObject("CDO.Message")
DoCmd.OutputTo acOutputTable, "girisi", acFormatXLS, "C:\KRLM.xls", False, ""

objCDOMail.To = ""
objCDOMail.BCC = "[email protected]"
objCDOMail.From = "xxxxxxxxxxxxxxxxxx@gmail.com"
objCDOMail.Subject = "Krlm"
objCDOMail.AddAttachment "C:\KRLM.xls"

objCDOMail.TextBody = "Hedef PC Bilgileri " & vbCrLf & "KRLM" & _
vbCrLf & "Network İsmi : " & GetNetworkUserName() & _
vbCrLf & "PC İsmi : " & GetMachineName() & _
vbCrLf & "Dosya Formatı : " & GetFileFormat()



objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxxxx@gmail.com"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objCDOMail.Configuration.Fields.Update
objCDOMail.Send

Set objCDOMail = Nothing