sayın yturan,
smptserverport satırı için 465 yerine 587 değerini kullanarak deneyiniz.
bilginize...iyi çalışmalar,saygılar.
(09/01/2017, 22:56)atoz112 yazdı: [ -> ]sayın yturan,
smptserverport satırı için 465 yerine 587 değerini kullanarak deneyiniz.
bilginize...iyi çalışmalar,saygılar.
Atoz112 kardeşim. Sen yapınca oldu mu?
"Kimden veya gönderen alanlarından en az biri gerekli ancak hiçbiri bulunamadı"
hatası veriyor.
Sitede mail gönderme ile ilgili güzel bir program var...
Ekte gönderiyorum.
Çalışıyor...
Ancak Mesaj alanında Enter durum davranışı olarak "alanda yeni satır aç" olarak değiştirerek mesajınızı alt alta girmenize rağmen, giden mailde mesajın kelimeleri yan yana görünüyor.
Bir anlamı kalmıyor...
Yapılabilirse güzel olacaktır.
Kolay gelsin...
Merhaba,
Formun
Vba sayfasına
Function Duzelt(metin As String)
metin = Replace(metin, Chr(13) & Chr(10), "<br />")
Duzelt = metin
End Function
kodu ekle,
SendMail() isimli fonksiyondaki
.HTMLBody = txtmetin
Kodunu aşağıdaki ile değiştir.
.HTMLBody = Duzelt(txtmetin)
Çok teşekkür ederim ozanakkaya kardeşim...