Toplu e-mail gönderme

[arnavut]

Merhaba arkadaşlar,

Acces'te yapılmış ve kullandığım basit bir adres ve telefon fihristim var.
Bu fihristte e-mail bilgileride bulunuyor. Yapmak istediğim şey şu;
Ana form'a bir buton koyup, bu butona tıkladığımda Lotus Notes programında To: bölümüne bu e-mail adreslerinin tümünün otomatik olarak gelmesini istiyorum. Denedim ama beceremedim bir türlü.
Bunu nasıl yapabilirim? Yardımcı olursanız sevinirim.
İyi çalışmalar.

 

[celoy]

Sayın Arnavut ,Örneğinizden gönderirseniz belki bizde yararlanırız,Acaba göndermeniz mümkünmü,şimdiden teşekkürler,
Ayrıca ben ve benim gibi yeni öğrenmeye çalışanlar için bu tür örnekler gerekiyor ,ayrıca diğer arkadaşlar yaptıkları küçük önreklerden gönderrlerse bizlerde faydalanma ,ve ufkumuzun açılmasında yardımcı olacaklarına inanıyorum
Şimdiden gönderen arkadaşlara çok teşekkür ederim.

 

[Taruz]

Sayın arnavut;

Linkteki programı inceleyin; istediğinizi bulacaksınız...

Kendi kullandığız programa uygulamak isterseniz "Ayrıntı" formundaki E-posta gönder düğmesindeki kodu kendi çalışmanızdaki düğmeye işlemeniz ve varsayılan Posta denetçinizi Lotus Notes olarak ayarlamanınız yeterli olacaktır..

http://www.excel.web.tr/showthread.php?t=33884


Düzeltme Notu:

Sayın arnavut, kusura bakmayın.. Okuduğumu eksik anlamışım... Toplu kelimesini atlamışım.. Linkte tek tek gönderebileceğiniz örnek var...

 

[arnavut]

Merhaba Sayın Taruz,

ilgilendiğiniz için çok teşekkürler, örneğinizi inceledim bu şekilde de kullanabilirim. Ama kendi formuma ekleyemedim. Sürekli hata veriyor.

Bir de bunun yanında toplu olarak bütün mailleri de ekleyebilirmiyiz?
Kolay gelsin

 

[celoy]

Bilgileriniz için çok teşekkür ederim,diğer arkadaşlardan da böyle örnekler göndererek bizi aydınlaşmalarını istiyorum
kolay gelsin

 

[cyberwolf1980]

su anda pcde ofıs yok tam bakamıyorum ama sanırım soyle bı sey ısınızı gorebılır.

1 - sorgu olusturup maıl adreslerını tablolardan cekın
2 - ana form uzerınde bır tus eklıyıp ona makro atayın
3 - olusturdugunuz tusa makro yazın

a - ılk basta olusturdugunuz sorguyu deger olarak makroya atayın
b - olusturdugunuz degerı kıme bolumune esıtleyın

tahmınıme gore bu sekılde olması lazım kusura bakmayın ornek veremıyorum eve gıdınce bakarım ok ıyı gunler.

 

[arnavut]

Arkadaşlar teşekkür ediyorum ilgilendiğiniz için.
Henüz bir çözüm yolu bulamadım ama

 

[Taruz]

Sayın arnavut;

Örneğinize TEK TEK e-posta gönderebileceğiniz bir düğme yerteştirdim..

 

[beab05]

Merhabalar;

Tekli ya da çoklu mail göndermek için iyi bir örnek..
Listeden ctrl ya da shift ile çoklu seçim yapabilirsiniz (bu şekilde tavsiye ederim) ya da select all düğmesini kullanabilirsiniz.
Mail adreslerini BCC bölmesine koyuyor...

 

[arnavut]

çok teşekküerler sayın Taruz, elinize sağlık
çoklu gönderim için yapacak pek bir şey yok herlade. ?
sayın beab05 örneğinizi açtım ama açılışta hata veriyor. inceleyemedim

 

[Taruz]

Sayın arnavut;

Rica ederim....

Çoklu gönderim için maalesef benim yapabilecek bir şeyim yok, üzgünüm...

beab05'in gönderdiği örnek gerçekten çok kullanışlı ama dediğiniz gibi modül hatası veriyor.
Sanıyorum örnek sadeleştirilirken bazı fonksiyonlar silinmiş.

Sayın beab05 örneğiniz benimde çok işime yarayacak. Rica etsek problemle ilgilenebilir misiniz?

 

[beab05]

Bende bir sorun yok sanırım referans hatası alıyorsunuz..
Microsoft Outlook xxx Object Library i ekleyiniz..

Belki de Outlook ya da Microsoft Outlook yapılandırılmamışsa da hata veriyor olabilir..

 

[Taruz]

Sayın beab05;

Haklısınız...

Sorun yapılandırma ayarlarımla ilgili... Şimdi evden denedim problem yok.
Günahınızı aldım kusura bakmayın..:roll:

Teşekkür ederim...

 

[celoy]

Arkadaşlar örnek çalışmam var ilgilenirmisiniz.

Arkadaşlar aşağıdaki adreste benim örnek dosyam var lütfen bunu tabiri cayizse adam edebilirmisiz.


http://www.excel.web.tr/showthread.php?p=186933#post186933


neler yapmak istediğimi ancak yapamadığımı yazdım yinede sizler kendinize uyarlarsanız ve bana eli ayağı düzgün ve kullanabileceğim şekilde tekrar gönderirseniz çooookkk sevinirim.
şimdiden teşekkürler

 

[beab05]

Haklısınız...

Sorun yapılandırma ayarlarımla ilgili... Şimdi evden denedim problem yok.
Günahınızı aldım kusura bakmayın..:roll:

Teşekkür ederim...

Demek günahlardan arınmanın bir yolu da bu

Şaka bir yana kusura bakacak bir şey yok zaten ..

 

[Osmanselim]

Yapamadım

Arkadaşlar gönder dediğimde
"Error no: -2147024770; Description: Automation error Belirtilen Modül Bulunamadı." Gibi bi hata verdi neden yapar.

Referanslar bölümündede
Microsoft Outlook 11.0 Object Library
Visual Basic for Applications
Microsoft Acces 11.0 Object library
Ole Automotion
Microsoft DAO 3.6 object library ler yüklü sizce eksik olan ne var teşekkürler.

 

[arnavut]

Arkadaşlar merhaba,

Toplu mail göndermek konusunda yardım edebilecek arkadaşlar
acil yardımınıza ihtiyacım var.
ekteki adres defterinde e-mail adreslerini çektiğim bir query yaptım ama
bir türlü bunları bir seferde Lotus Notes'a aktaramıyorum.
Lotus Notes 'ta To: bölümüne bu maillerin hepsini nasıl yazdırabilirim ?
Yoksa imkansız birşey mi istiyorum? yardımcı olursanız çok sevinicem.
Kolay gelsin :yardim:

 

[modalı]

Sayın arnavut,

e-mail gönderen düğümenin kodunu şöyle değiştirin:

Dim X
    X = fHandleFile("mailto:" & strMailTo, WIN_NORMAL)

Daha sonrada aynı sayfaya şu fonksiyonu ekleyin:

Private Function strMailTo() As String
Dim rs As New ADODB.Recordset
Dim str As String
Dim X As Integer
rs.Open "emails", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
    
    If rs.EOF = True Then
        MsgBox "Herhangi bir e-mail adresi kayıtlı değil."
    Else
        rs.MoveFirst
        Do While Not rs.EOF
            
            str = str & rs(0) & ";"
            rs.MoveNext
            
        Loop
    End If
   
    strMailTo = str
Set rs = Nothing
End Function

Kolay gelsin. İyi çalışmalar

 

[arnavut]

Yanıtınızı yeni gördüm, yine hızır gibi yetiştiniz imdadıma sayın Modalı
çok teşekkür ederim, hemen deniyorum.

 

[arnavut]

arkadaşlar herkese iyi geceler,
adres defterimi tamamladım, sayın modalı ve sayın taruz yardımlarınız için çok teşekkür ederim.
telefon fihristine ihtiyacı olan arkadaşlar dosyanın son halini ekte bulabilirler.
kolay gelsin
iyi geceler