data.mdb dosyasın sıkıştırarak mail atma - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: data.mdb dosyasın sıkıştırarak mail atma (/konu-data-mdb-dosyasin-sikistirarak-mail-atma.html) Sayfalar:
1
2
|
data.mdb dosyasın sıkıştırarak mail atma - osman06 - 16/08/2014 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 Cvp: data.mdb dosyasın sıkıştırarak mail atma - osman06 - 18/08/2014 yardımcı olabilecek arkadaş varmı çözüm yok ise kapatıyım fazlalık yapmasın Cvp: data.mdb dosyasın sıkıştırarak mail atma - Seruz - 19/08/2014 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-vb-kod-deposuExcel Vba WinRar Dosyası Oluşturma Cvp: data.mdb dosyasın sıkıştırarak mail atma - benremix - 14/09/2014 (18/08/2014, 18:27)osman06 yazdı: yardımcı olabilecek arkadaş varmı çözüm yok ise kapatıyım fazlalık yapmasın Bir zahmet dönüş yapsanız. Seruz hocam çözüm önermiş yol göstermiş. Hocam emeğiniz için teşekkürler... Cvp: data.mdb dosyasın sıkıştırarak mail atma - osman06 - 20/09/2014 ilginize tşkler konu çözülmüştür. Cvp: data.mdb dosyasın sıkıştırarak mail atma - ates2014 - 26/04/2015 Merhaba arkadaşlar, yukarıdaki kod ile sıkıştırma işlemini yaptıramadım, hata veriyor, yedeklemek istediğim programın klasörünün içindeki DATA klasörünün içindeki 2010.mdb bağlı tabloların olduğu belge. işletim sistemim win8 ondanmı olmuyor acaba... Dim trz As String trz = CurrentProject.Path & "\DATA\2010.mdb" Shell Environ$("ProgramFiles") & "\\WinRAR\\rar.exe" & _ " a -ep " & Chr(34) & Left$(trz, Len(trz) - 4) & ".rar" & _ Chr(34) & " " & Chr(34) & trz & Chr(34) |