AccessTr.neT

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.