+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html)
+--- Konu Başlığı: Accessten Mail Gönderimi (/konu-accessten-mail-gonderimi.html)
Cvp: Accessten Mail Gönderimi - karam - 07/12/2008
(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
Cvp: Accessten Mail Gönderimi - dengesiz - 17/05/2009
(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
Cvp: Accessten Mail Gönderimi - youngman34 - 26/05/2009
merhaba Access de toplu mail gönderme programı mevcutmudur elinde olan varsa ekleyebilir mi arkadaşlar.
Cvp: Accessten Mail Gönderimi - goodfalles - 27/05/2009
Göndermek için önce outlook falan açmak gerekiyor değil mi ?
Cvp: Accessten Mail Gönderimi - esrefigit - 27/05/2009
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
Cvp: Accessten Mail Gönderimi - mehmeser - 27/05/2009
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 !