(07/12/2008, 06:43)karam yazdı: runtime error veriyor sadece raporu görüyorum ayar yapmak gerekiyor galiba ?

mail adresini değiştirdim mükemmel çalışıyor
bu arada rapor üzerinde sağ tuş taptığınızda posta seçenekleri size şeçenekler sunuyor istediğin biçimde gerek word ama trf formatlı gerek Excel ve çok çesitleri var bunlardam mail göndermeye musade ediyor office 2003 te tabi Access 2000 de posta şeceneği yok

(07/12/2008, 06:25)sledgeab yazdı: attila52 nin örneği. rapor gönderen yok ama raporu excele çevirip gönderen var.

Tam istedigim sey mukemmle valla elinize saglik

merhaba Access de toplu mail gönderme programı mevcutmudur elinde olan varsa ekleyebilir mi arkadaşlar.

Göndermek için önce outlook falan açmak gerekiyor değil mi ?

CDO ile gönderilir cdo referansını ekle

Function mail()
Dim rs2 As New ADODB.Recordset
rs2.Open "okulbilgi", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

okulad = rs2("okuladi")
okuladres = rs2("okulgmailadres")
okuls = rs2("okulgmailsifre")
bankaadres = rs2("bankamailadres")
Set rs2 = Nothing
Set rs2 = Nothing

End Function

Function SendMail()
Dim iMsg, iConf, Flds, schema
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

' send one copy with Google SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = okuladres
Flds.Item(schema & "sendpassword") = okuls
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = bankaadres
.From = okulad
.Subject = okulad & " " & durumum
.HTMLBody = okulad & " " & durumum
.Sender = okulad
.Organization = okulad
.ReplyTo = okuladres
.AddAttachment stFile
Set .Configuration = iConf
.Send

End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

End Function



üstteki ado kodu tüm akyıtları dolanacak şekilde düzenlenirse o zaman tablodaki yada seçilen kişilere toplu gönderim yapılır outlook falan açılmaz benim örneğim banka listesi göndermek içindi siz kendinize göre değiştirin

---

ayrıca gmail için geçerli hotmail ile pop3 desteği yok

Sn esrefigit,

verdiğiniz toplu eposta gönderimi için oldu sanırım. Buna küçük bir örnek ekleyebilir misiniz?

Burdaki örnek ise resimdeki hatayı verdi !