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)