AccessTr.neT
Acessten Mail Gönderme(SMTP+GMAİL) - Baskı Önizleme

+- 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)

Sayfalar: 1 2 3 4 5


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 & "<" & "[email protected]" & ">"
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") = "[email protected]"

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 Function




RE: 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."
şeklinde düzenlerseniz size hata kodunu verir ve bu spesifik hata numarası ile çözümleri araştırabilir sorununuz ile alakasız bir çok çözümü incelemekten kurtularak vakit kazanabilirsiniz.