Accessten Mail Gönderimi

1 2 3 4
07/12/2008, 07:26

karam

(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
17/05/2009, 09:31

dengesiz

(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
26/05/2009, 21:27

youngman34

merhaba Access de toplu mail gönderme programı mevcutmudur elinde olan varsa ekleyebilir mi arkadaşlar.
27/05/2009, 09:30

goodfalles

Göndermek için önce outlook falan açmak gerekiyor değil mi ?
27/05/2009, 13:32

esrefigit

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
27/05/2009, 15:00

mehmeser

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 !
1 2 3 4