Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

ozanakkaya
ozanakkaya
Access Örnekleri ve Uygulamaları
53
24404

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

#25
ates2014
Aktif Üye
ates2014
Bul
Aktif Üye
Adı Soyadı:
Konum: Adana
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 04/04/2025,23:27
Yorumları: 434
Konuları: 83
Kayıt Tarihi: 31/10/2014
Teşekkür Puanı: 0
Sy.ozan, bu çalışmanızı 64bit'de çalışır hale getirebilirmisiniz lütfen
Cevapla
#26
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,13:50
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
(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
Cevapla
#27
ates2014
Aktif Üye
ates2014
Bul
Aktif Üye
Adı Soyadı:
Konum: Adana
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 04/04/2025,23:27
Yorumları: 434
Konuları: 83
Kayıt Tarihi: 31/10/2014
Teşekkür Puanı: 0
Çok teşekkür ederim ozan hocam, elinize sağlık
Cevapla
#28
uMits
Aktif Üye
uMits
Bul
Aktif Üye*
Adı Soyadı: Üm.... SE....
Yaşı: 35
Konum: Samsun
Ofis Versiyonu: Ofis 2003
Son Oturumu: 29/06/2024,14:27
Yorumları: 84
Konuları: 9
Kayıt Tarihi: 29/10/2011
Teşekkür Puanı: 6
Mesleğiniz: Esnaf
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
Cevapla
#29
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,13:50
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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.
Cevapla
#30
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,13:50
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Ekli uygulama ile çoklu ek ekleyebilirsin. rar uzantısının gönderilebilirliği test edilmiştir.
.rar gmaililemailgonder_2.rar (Dosya Boyutu: 145,68 KB | İndirme Sayısı: 35)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task