Gmail Hesabıyla E-Mail Gönderme Uygulaması

1 2 3 4 5 6 7 8 9
15/10/2016, 11:15

ates2014

Sy.ozan, bu çalışmanızı 64bit'de çalışır hale getirebilirmisiniz lütfen
15/10/2016, 12:50

ozanakkaya

(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
15/10/2016, 14:54

ates2014

Çok teşekkür ederim ozan hocam, elinize sağlık
24/03/2018, 13:49

uMits

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
26/03/2018, 09:43

ozanakkaya

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.
26/03/2018, 10:38

ozanakkaya

Ekli uygulama ile çoklu ek ekleyebilirsin. rar uzantısının gönderilebilirliği test edilmiştir.
1 2 3 4 5 6 7 8 9