Mail gönderme

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...