Sy.ozan, bu çalışmanızı 64bit'de çalışır hale getirebilirmisiniz lütfen
(15/10/2016, 11:15)ates2014 yazdı: Sy.ozan, bu çalışmanızı 64bit'de çalışır hale getirebilirmisiniz lütfen
1-) Referanslara "Microsoft Office 1X.0 Object Library" referansını ekle,
2-) Ekle isimli butonun tıklandığında olayındaki koddaki
Me![txtEklenti] = GetOpenFile_CLT("", "Gönderilecek Dosya Seçin.")
kodunu sil, yerine aşağıdaki kodu ekle
Dim Sonuc as integer
With Application.FileDialog(msoFileDialogOpen)
.Title = "Select a file"
.Filters.Clear
.Filters.Add "Tüm Dosyalar", "*.*"
.AllowMultiSelect = False
.Title = "Seçiniz"
.InitialFileName = CurrentProject.Path
Sonuc = .Show
If (Sonuc <> 0) Then
Me![txtEklenti] = Trim(.SelectedItems.Item(1))
End If
End With
Çok teşekkür ederim ozan hocam, elinize sağlık
emeğinize sağlık normal mesaj gönderiyor fakat dosya ekleyince eklenen dosya sayısı 1 , resim gönderiyor .rar uzantısını göndermiyor
sistem belirtilen dosyayı bulamıyor diye mesaj geliyor
debug dediğimde
.AddAttachment Dosya(I)
bu satırda sarı gösteriyor .
yardımcı olurmusunuz Access 2003 kullanıyorum
Merhaba, uygulama örnek olduğu için sadece 1 dosya gönderecek şekilde tasarlanmıştır. Örnek uygulamada
.AddAttachment Dosya(I)
şeklinde kod bulunmamaktadır.
Ekli uygulama ile çoklu ek ekleyebilirsin. rar uzantısının gönderilebilirliği test edilmiştir.