Skip to main content

AccessTr.neT


data.mdb dosyasın sıkıştırarak mail atma

data.mdb dosyasın sıkıştırarak mail atma

Çözüldü #1
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
Cevapla
#2
yardımcı olabilecek arkadaş varmı çözüm yok ise kapatıyım fazlalık yapmasın
Cevapla
#3
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
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
#4
(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...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#5
ilginize tşkler konu çözülmüştür.
Cevapla
#6
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)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da