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
ç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.
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.
iyi çalışmalar.
bir yerde hata yapıyorum galiba.
aktarım, sunucuya bağlanmadı
hatası ile karşılaşıyorum. Deneyen varmı çalışıyormu
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 Function
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.