Maili Raporlama hk.yardım

[MURATT]

Merhaba bir konu hakkında sizden yardım alabilirmiyim?
Elimde basit ekteki şekilde bir rapor var.Bu raporu mail listesinden göndermek istiyorum.Ben modülü aşağıdaki gibi yazıyorum. Tabii ayrıca aşağıdaki gibi herkese aynı standart mail değil benim "ad" sahasında verdiğim kritere göre gitmesini istiyorum.

Eğer bu şekilde yazarsam mail adreslerini, subject ,mesaj ve ad kriterini tek tek girmem gerekiyor ve bayağı uzun sürüyor.
Buradaki mail adresini,subject ,mesaj ve kriter sahasını tek tek girmeden
bir tabledan okutarak girmenin daha kolay bir yolu olabilirmi?

Forumda biraz inceledim ama tam olarak bana göre bir şey bulamadım.
Teşekkürler saygılar...

Sub mm()

DoCmd.OpenReport "table1", acViewPreview, , "ad = 'aaa'"
DoCmd.SendObject acSendReport, , acFormatSNP, "mm@hotmail.com", , , "deneme", , False
DoCmd.Close

DoCmd.OpenReport "table1", acViewPreview, , "ad = 'bbb'"
DoCmd.SendObject acSendReport, , acFormatSNP, "vvv@hotmail.com", , , "deneme", , False
DoCmd.Close

End Sub

 

[modalı]

Sayın MURATT,

Tablodaki herkese mi göndermek istiyorsunuz yoksa göndereceğiniz kişiler demi seçilecek?

İyi çalışmalar

 

[MURATT]

Sayın MURATT,

Tablodaki herkese mi göndermek istiyorsunuz yoksa göndereceğiniz kişiler demi seçilecek?

İyi çalışmalar

merhaba,
tablodaki bütün mail listesine gitmesi gerekiyor.ama rapordaki ad sahasında kim varsa ona ait rapor mail ile gitsin
ben mesajda yazdığım gibi modülde tek tek kriter girerek yapıyordum.Eğer mümkünse subject ve mesaj sahasıda ayrı birer table'da olabilir mi?
İlginiz için teşekkürler.

 

[beab05]

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

Verdiğim örnekteki tam istediğiniz gibi...

 

[MURATT]

vermiş olduğunuz linkle benim istemiş olduğum şey arasında pek bağlantı kuramadım.Burada bir telefon fihristi var.Seçtiğiniz kişiye gönder deyince mail gönderiyor.Benim isteğim yukarıda belirttiğim şekilde çok daha farklı.
Yine de ilginiz için teşekkürler.

 

[modalı]

Sayın MURRAT,

Sanırım istediğiniz ekdeki uygulama.

Yeni bir form ekledim, üstünden mesaj konusunu ve mesajı seçip göndere basarsanız tüm tablodaki kişilere ilişkili raporun gittiğini görürsünüz.

İyi çalışmalar

 

[MURATT]

Sayın MURRAT,

Sanırım istediğiniz ekdeki uygulama.

Yeni bir form ekledim, üstünden mesaj konusunu ve mesajı seçip göndere basarsanız tüm tablodaki kişilere ilişkili raporun gittiğini görürsünüz.

İyi çalışmalar

Sn modalı,
Elinize ve emeğinize sağlık teşekkür ederim.

 

[beab05]

vermiş olduğunuz linkle benim istemiş olduğum şey arasında pek bağlantı kuramadım.Burada bir telefon fihristi var.Seçtiğiniz kişiye gönder deyince mail gönderiyor.Benim isteğim yukarıda belirttiğim şekilde çok daha farklı.
Yine de ilginiz için teşekkürler.

Merhaba;
Linki tamamen incelemezseniz tabii ki bağlantı kuramazsanız orada "mass_emailing" diye dosya vardı. Sizin incelemeniz gereken buydu..
Herneyse zaten sorunuza da cevap bulmuşsunuz.

 

[MURATT]

sn.beab05 belirtmiş olduğunuz dosyayı inceledikten sonra cevap yazmıştım merak etmeyin.Eğer sizde bu mdb'yi dikkatli inceleyip birde sn. modalı'nın gönderdiği dosyayı incelerseniz arasındaki farkı görebilirsiniz.

 

[beab05]

......................................

 

[MURATT]

Sn modalı merhaba,

Sizden bir ricam daha olucaktı.Burada bana hazırlamış olduğunuz mail raporlama programını Outlook kullanarak göndermeye çalışıyorum.Yalnız outlook'un beş saniye duvarı var.Ve her mailde 5 sn duvarına takılıyorum.Bende clickyes isminde bir program kurdum fakat sanıyorum kodlar içerisinde outlook tanımı olmadığı için clickyes bunu anlamıyor.Hatırlatma açısından formun içindeki kodlar bunlar,

Yardımcı olabilirmisiniz?

Saygılarımla,

Private Sub cmdEmail_Click()
On Error GoTo Err_cmdEmailGönder_Click

Dim stDocName As String
Dim stTo As String
Dim stCc As String
Dim stBcc As String
Dim stSubject As String
Dim stMesajText As String
Dim EditMesage As Variant
Dim stWhere As String
Dim rs As New ADODB.Recordset

rs.Open "Table1", CurrentProject.Connection, adOpenDynamic, adLockReadOnly

If rs.EOF = True Then
MsgBox "Tabloda kayıt yok."
Else
rs.MoveFirst

Do While Not rs.EOF

stDocName = "rptTable1"
MsgBox rs("email")
stTo = rs("email")
'stCc = Me.txtCc
'stBc = Me.txtBc
stSubject = Me.cboSubject
stMesajText = Me.cboMesaj
EditMesage = 0

stWhere = "ad='" & rs("ad") & "'"
DoCmd.OpenReport stDocName, acViewPreview, , stWhere, acHidden
DoCmd.SendObject acReport, stDocName, acFormatSNP, stTo, stCc, stBc, stSubject, stMesajText, EditMesage
DoCmd.Close acReport, stDocName, acSaveNo
rs.MoveNext
Loop

End If
Set rs = Nothing


Exit_cmdEmailGönder_Click:
Exit Sub

Err_cmdEmailGönder_Click:
MsgBox Err.Description
Resume Exit_cmdEmailGönder_Click

End Sub

 

[MURATT]

Sn modalı merhaba,

Sizden bir ricam daha olucaktı.Burada bana hazırlamış olduğunuz mail raporlama programını Outlook kullanarak göndermeye çalışıyorum.Yalnız outlook'un beş saniye duvarı var.Ve her mailde 5 sn duvarına takılıyorum.Bende clickyes isminde bir program kurdum fakat sanıyorum kodlar içerisinde outlook tanımı olmadığı için clickyes bunu anlamıyor.Hatırlatma açısından formun içindeki kodlar bunlar,

Yardımcı olabilirmisiniz?

Saygılarımla,

Private Sub cmdEmail_Click()
On Error GoTo Err_cmdEmailGönder_Click

Dim stDocName As String
Dim stTo As String
Dim stCc As String
Dim stBcc As String
Dim stSubject As String
Dim stMesajText As String
Dim EditMesage As Variant
Dim stWhere As String
Dim rs As New ADODB.Recordset

rs.Open "Table1", CurrentProject.Connection, adOpenDynamic, adLockReadOnly

If rs.EOF = True Then
MsgBox "Tabloda kayıt yok."
Else
rs.MoveFirst

Do While Not rs.EOF

stDocName = "rptTable1"
MsgBox rs("email")
stTo = rs("email")
'stCc = Me.txtCc
'stBc = Me.txtBc
stSubject = Me.cboSubject
stMesajText = Me.cboMesaj
EditMesage = 0

stWhere = "ad='" & rs("ad") & "'"
DoCmd.OpenReport stDocName, acViewPreview, , stWhere, acHidden
DoCmd.SendObject acReport, stDocName, acFormatSNP, stTo, stCc, stBc, stSubject, stMesajText, EditMesage
DoCmd.Close acReport, stDocName, acSaveNo
rs.MoveNext
Loop

End If
Set rs = Nothing


Exit_cmdEmailGönder_Click:
Exit Sub

Err_cmdEmailGönder_Click:
MsgBox Err.Description
Resume Exit_cmdEmailGönder_Click

End Sub

merhaba sn. modalı,
yardımcı olabilirmisiniz?

 

[modalı]

Sayın MURATT,

Yanlış anlamadıysam, email gönderim süreleri arasında 5 saniye ara vermek istiyorsunuz. Aşağıdaki kodlar programın istenen noktasına 5 saniye pause ekliyorlar. Bu süreyi PauseTime dan ayarlayabiliriz.

O zaman

En başa:

Dim PauseTime, Start, Finish, TotalTime

kodunu ekleyin.

En aşağıya, End Sub ın üstüne:

pause:
PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
Return

kodunu ekleyin.

kodunuzdaki

re.MoveNext
Loop

arasına

GoTo pause

ekleyip deneyin.

İyi çalışmalar. :hey:

 

[MURATT]

sn modalı merhaba öncelikle ilginize teşekkürler,
yalnız sorunum bu değil.
Outlook'un toplu mail gönderimlerinde spam gönderimini kısıtlamak için bir engellemesi var.Her mail de bu mesaj çıkıyor ve yes'e basmamı istiyor ve mail bu yesten sonra gidiyor.Bu sebeple toplu mail gönderimi yapamıyorum.Bende clickyes isminde bir program kurdum.Fakat sorun çözülmedi.Sanıyorum sizin yazdığınız kodda mail gönderirken outlook application'ını kullanacağı yok.Bu kodlara outlook'u kullanacağı şekilde ekleme yapabilirmisiniz?Tabi bu benim tahminim.
teşekkürler saygılarımla,

 

[MURATT]

sn modalı tekrar merhaba sorunu çözdüm.iyi çalışmalar.

 

[yeni54]

sayın MURATT,

tebrikler sorunu çözmüşsünüz de,

nasıl çözdüğünüzü yazmayı unutmuşsunuz.

onu da yazın da, forum amacına ulaşsın.

 

[MURATT]

sayın MURATT,

tebrikler sorunu çözmüşsünüz de,

nasıl çözdüğünüzü yazmayı unutmuşsunuz.

onu da yazın da, forum amacına ulaşsın.

Merhaba haklısınız.Click yes adlı programa sadece outlook application'ı eklemek yetmiyor.Ayrıca access application'ını da ekleyince problem çözüldü.

Saygılar.

 

[MURATT]

sn modalı merhaba,
daha önce hazırlamış olduğunuz toplu mail gönderme programı ile ilgili sizden tekrar bir yardım rica edecektim.formda mesaj yazma sahası textbox'ı kullandığı için toplam 255 karakterle sınırlı.255 karakterden uzun bir mesaj yazılamıyor bunu çözmenin başka bir yolu olabilirmi?

Saygılar...

 

[modalı]

Sayın MURATT,

Alan bir tabloyla ilişkili ve o alan da metin veri türüne ayarlanmış. O alanın veri türünü Not olarak değiştirin.

İyi çalışmalar

 

[MURATT]

Tablodan dediğiniz gibi memo olarak kaydettim fakat değişme olmadı.Bende formu tekrar yaptım fakat combo box yerine textbox olarak sorun çözüldü.
Çok teşekkürler Saygılar.