+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Acessten Mail Gönderme(SMTP+GMAİL) (/konu-acessten-mail-gonderme-smtp-gmail.html)
Cvp: Acessten Mail Gönderme(SMTP+GMAİL) - uMits - 23/03/2018
emeğinize sağlık normal mesaj gönderiyor fakat dosya ekleyince eklenen dosya sayısı 1 , resim gönderiyor .rar uzantısını göndermiyor
sistem belirtilen dosyayı bulamıyor diye mesaj geliyor
debug dediğimde
.AddAttachment Dosya(I)
bu satırda sarı gösteriyor .
yardımcı olurmusunuz Access 2003 kullanıyorum
Cvp: Acessten Mail Gönderme(SMTP+GMAİL) - mujdatb - 25/05/2019
çok güzel olmuş bunları kod bilmeden yapmak mümkün mü bende böyle bir şey yapmak ama biraz daha kapsamlı bir şey yapmak istiyorum.
Cvp: Acessten Mail Gönderme(SMTP+GMAİL) - berduş - 26/05/2019
kod bilmekten kastınız ne, eğer ezbere gözü kapalı yazmaksa kodları o kadar bilmeseniz de yaparsınız. ama hiç bilmeden yapmak biraz zor gibi. Ama zaten çözmeye çalışırken öğreniyor bir çok şeyi insan, deneye-yanıla araştıra-sora... ama işin içine girdikten sonra siz istemeseniz de öğreniyorsunuz kod yazmayı.
iyi çalışmalar
Kolay gelsin.
Cvp: Acessten Mail Gönderme(SMTP+GMAİL) - serdem48 - 15/11/2019
iyi çalışmalar.
bir yerde hata yapıyorum galiba.
aktarım, sunucuya bağlanmadı
hatası ile karşılaşıyorum. Deneyen varmı çalışıyormu
RE: Acessten Mail Gönderme(SMTP+GMAİL) - murat dikme - 23/09/2023
Sayın Hocalarım Merhaba.
SMTP Mail gönderimi yapmak istiyorum.
Çalışmadaki Gönder Komutunu kendi uygulamama entegre etmeye çalışıyorum fakat " Mail Gönderimi Başarısız" Hatası alıyorum.
Gönder Butonu tıkladığında kullandığım Olay Yordamı aşağıdaki gibidir.
Debug - Compile yaptığımda hata vermemekte.
Hatayı nerde yaptığım konusunda desteklerinizi rica ederim.
Teşekkür ederim.
Kod:
Private Sub Komut83_Click()
Dim BelgeAdi As String
BelgeAdi = CurrentProject.Path & "\" & Format(Now(), "dd.mm.yyyy") & Me.acilank1 & "DenRaporu.pdf"
DoCmd.OutputTo acOutputReport, "rpr_denk", acFormatPDF, BelgeAdi, False
Dim I As Integer
For I = 1 To SendMail(BelgeAdi)
Next I
'SendMail
End Sub
Function SendMail(BelgeAdi)
Dim objCDOMail As Object
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Mail "
objMessage.From = Me.acilank2 & "<" & "den@com.tr" & ">"
objMessage.To = Me.Metin62 & " ; " & acilan10.Column(0) & " ; " & acilan11.Column(0) & " ; " & acilan12.Column(0) & " ; " & acilan13.Column(0) & " ; " & acilan14.Column(0) & " ; " & acilan15.Column(0) & " ; " & acilan16.Column(0) & " ; " & acilan17.Column(0)
objMessage.HTMLBody = "Mail Bildirimi"
On Error GoTo Hata
objMessage.AddAttachment BelgeAdi
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.com.tr"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "den@com.tr"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "6*/123"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.send
MsgBox "Mail gönderimi başarılı.", vbInformation, "İşlem tamam"
Exit Function
Hata: MsgBox "Mail gönderimi başarısız.", vbCritical, "Hata oluştu."
End FunctionRE: Acessten Mail Gönderme(SMTP+GMAİL) - atoykan - 23/09/2023
CDO kitaplığınız yüklü mü, SMTP kimlik ve port bilgileriniz doğru mu, firewallunuz erişimi engelliyor mu engellemiyor mu kodu işletirken hata mesajı var mı, SSL/TSL kullanılıyor mu bütün bunları kontrol etmelisiniz. Sizin özelinizde yazıyorum ancak bütün arkadaşlar hata ayıklama kodu yazarken Msgbox "Amanda aman nurtopu gibi bir hatan oldu" şeklinde sadece basit bir text uyarısı çalıştırıyor. Hata kodunuzu
Kod:
MsgBox "Mail gönderimi başarısız. Hata Numarası: " & Err.Number & vbNewLine & "Hata Açıklaması: " & Err.Description, vbCritical, "Hata oluştu."