[VBA] Mail listesine toplu mail göndermek

iscinar · 24-10-2018, 15:37

Öncelikle uzun zamandan beri aktif olamadığım için kendim sanki yeni üye olmuş ve ilk defa soru soruyor gibi hissediyorum.

Örneğini hazırladığım vt de
tbl_MailListe isimli tabloda
Gönder alanı işaretli ise
ilgili kullanıcının mail adresine
Dosya alanında kayıtlı dosyayı ekleyerek toplu mail atmak istiyorum.

Ek dosyalar vt ile aynı klasörde bulunacağı için yol olarak

CurrentProject.Path & "\Ek\" & [Dosya] yolu işimi görebilir

Ek dosyada daha önce başka projemde kullanıp Outlook ile mail gönderdiğim kodlar vardır.
Sanırım bunlara ilaveten sadece bir For döngüsü ile çözebiliriz ama işin o tarafı beni aşıyor.

Şimdiden yardımcı olacak arkadaşlara teşekkür ediyorum.

dsezgin · 24-10-2018, 17:57

Visual Basic
Private Sub btnGonder_Click()
    'Döngü kullanarak form üzerinde gönder onayý iþaretli kullanýcýlara "tblMailListe" tablosunda
    'ilgili kiþiyle eþleþen dosyayý mail olarak gönderebilirmiyiz?
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Dim EkDosya As Outlook.Attachments
        Dim Kyt As Recordset, Sayi As Long
            Set Kyt = Me.RecordsetClone
            Kyt.MoveFirst
           Do Until Kyt.EOF
            If Kyt!Gonder = True Then
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            Set EkDosya = MailOutLook.Attachments
               With MailOutLook
               EkDosya.Add CurrentProject.Path & "\Ek\" & Kyt!Dosya & ".xlsx", olByValue, 1, "iscinar"
               .To = Kyt!Mail & ";"
               .Subject = Me.Subject
               .Body = Me.Body
               .Send
               Sayi = Sayi + 1
             End With
            End If
            Kyt.MoveNext
            Set appOutLook = Nothing: Set MailOutLook = Nothing
            Loop
            Kyt.Close: Set Kyt = Nothing
           MsgBox Sayi & " Adet personele mail gönderilmiþtir"
Exit Sub
email_error:
            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
End Sub

iscinar · 25-10-2018, 14:53

Sayın dsezgin;
İlginiz için teşekkür ediyorum.

Son hali aşağıdaki gibi olmuştur, bu haliyle işaretli olanlara mail gönderiyor, kişiye özel dosya eklemese de rastgele bir dosyayı ekliyor.

Toplu mail derken belki meramımı anlatamamış olabilirim,
İstediğim aslında Tabloda işaretli olan her alıcıya özel eki olan tek tek gönderilecek maili tek tıklamayla topluca göndermek idi.
Örnek:
İsmail İşaretli mi? > Hayır > Alt satıra geç
Ali işaretli mi? > Evet > mail adresini bul> Dosya2.xlsx dosyasını gönder > Alt satıra geç
Ahmet işaretli mi? > Evet > mail adresini bul> Dosya3.xlsx dosyasını gönder > Alt satıra geç
Mehmet işaretli mi? > Evet > mail adresini bul> Dosya4.xlsx dosyasını gönder > Alt satıra geç
Mahmut İşaretli mi? > Hayır > Alt satıra geç
Son Kayda gelindi > İşlemi bitir

Visual Basic
Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
 
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook
            Dim i As Long, Kyt As Recordset, Kimler As String
            Set Kyt = Me.RecordsetClone
            Kyt.MoveFirst
            Do Until Kyt.EOF
               If Kyt!Gonder = True Then Kimler = Kimler & Kyt!Mail & ";"
            Kyt.MoveNext
            Loop
            Kyt.Close: Set Kyt = Nothing
            .To = Kimler
            .Subject = Me.Subject
            .Body = Me.Body
            .Attachments.Add (CurrentProject.Path & "\Ek\" & Me.Dosya & ".xlsx")
 
            .Send
            End With
            Exit Sub

dsezgin · 25-10-2018, 16:07

Mesaj 2'i Guncelledim......

iscinar · 25-10-2018, 16:20

(25-10-2018, 16:07)dsezgin demiş ki: Mesaj 2'i Guncelledim......

Sayın dsezgin;
Teşekkürler,
Saygılar.

ebenli · **Kayıt Tarihi:** 22.09.2018

Sevgili Arkadaşlar,

Kurumsal iş ortamlarında e-mail gönderirken özel tanımlanmış imza alanı da önemli ihtiyaçlar arasında bulunuyor. Yapılan bu çalışmaya gönderen kişinin özel olarak oluşturulmuş imzası da eklense şahane olurdu.

Öncelikle; outlookta önceden tanımlanmış imzalardan birinin Access üzerinden seçilmesini tetikleyip tetikleyemeyeceğimizi denemek istiyorum.

.Signature(imza adı) gibi bir kodlama yapılabilir mi? Ya da farklı bir şekilde kodlanabilir mi?

Bu mümkün olmayacaksa; access üzerinden oluşturacağımız imzalardan birini seçip mail gövdesine(sol alt) eklenmesini sağlayabilir miyiz?

Diğer bir konu da; Kişiye özel dosya seçerken herhangi bir formatta (doc,xls,pdf vs) dosya eklemek için formda ilgili kaydın yanına bir komut butonu ekleyip ilgili dokümanı ek dosyasından seçince doküman adını otomatik olarak dosya alanına yazdırmak mümkün olur mu?

Bu 2 konuya dair kodsal yorumlarınızı paylaşabilir misiniz?

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Word Dot şaplonunu Açtırarak Dosya Göndermek	Aplt	1	330	12-01-2025, 17:11 Son Mesaj: dsezgin
	Sorgudaki Bilgileri Otomatik Tek Tek Mail Gönderme	cirdakc	3	445	08-11-2024, 21:40 Son Mesaj: dsezgin
	Ilgili Raporu Mail Gönderme	Mtaner	6	1.490	21-05-2024, 07:09 Son Mesaj: dsezgin
	Etiket Isimlerini Toplu Değiştirme	hedefkaya	1	342	24-10-2023, 21:06 Son Mesaj: dsezgin
	Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak	adnnfrm	2	575	22-06-2023, 19:04 Son Mesaj: dsezgin
	[VBA] Mail Ile Tablo Ya Da Sorgu Gönderme	benuva	5	591	17-06-2023, 12:18 Son Mesaj: benuva
	[VBA] Tabloda Bulunan Ekleri Toplu şekilde Dışarı çıkarmak	BeyTor	2	409	01-05-2023, 19:16 Son Mesaj: BeyTor
	Toplu Taksitlendirme Işleminde Her Taksit Için Tabloya Ayrı Kayıt Nasıl Yapabilirim.	OĞUZ TÜRKYILMAZ	10	1.198	12-03-2023, 21:18 Son Mesaj: OĞUZ TÜRKYILMAZ

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL