Mail gönderme kodundaki hata

[cavanoos]

Merhaba;

Aşağıdaki kodu çalıştırdığımda,mailin açıklama kısmında şunlar yazıyor.

Fatura Tutarı 35000
Yanıtınızı rica ediyoruz.
İyi Çalışmalar

Olmasını beklediğim ise

Merhaba
Mayıs ayı alış tutarlarımız aşağıdaki gibidir.
Fatura Miktarı 5
Fatura Tutarı 35000
Yanıtınızı rica ediyoruz
İyi Çalışmalar

Yardım edebilir misiniz ?


Sub MailGönder()
Dim evnOut As Outlook.Application, evn As Object
Dim evngovde As String, i As Long
For i = 2 To Range("a65536").End(3).Row
Set evnOut = New Outlook.Application
Set evn = evnOut.CreateItem(0)
With evn
.To = Cells(i, "f").Value
.Subject = "Ba Formu Mutabakatı"
evngovde = "Merhaba " & Cells(i, "aa").Value & vbLf & vbLf
evngovde = evngovde & "Mayıs ayı alış tutarlarımız aşağıdaki gibidir." & vbLf
evngovde = "Fatura Miktarı " & Cells(i, "d").Value & vbLf
evngovde = "Fatura Tutarı " & Cells(i, "e").Value & vbLf
evngovde = evngovde & "Yanıtınızı rica ediyoruz." & vbLf
evngovde = evngovde & "İyi Çalışmalar"
.body = evngovde
.Display ' Ekranda gösterir
.Send
End With
Next i
Set evn = Nothing: Set evnOut = Nothing
evngovde = vbNullString: i = Empty
End Sub