Satır Atlama hk.

[Fuatckmk]

Arkadaşlar merhaba,

Aşağıdaki kullandığım koddaki, kırmızı ile işaretlediğim alan exceldeki bir hücreden yazıyı alıp maile yapıştırıp gönderiyor. Fakat exceldeki formatta göndermiyor. Exceldeki hücre içerisinde aşağıdaki gibi mesela 3 satır alt alta gelcek şekilde. Ama mailde hepsi yan yana geliyor.

Merhaba;

XLS ile ilgili bilgiler eklidir.

Onay süreci için yardımınız rica ederiz.

Sub mail_gonder()
      Set OutApp = CreateObject("Outlook.Application")
      Set OutMail = OutApp.CreateItem(0)
      With OutMail
      Dim Signature, MS As Object
      If Dir("C:\Users\çakmakf\AppData\Roaming\Microsoft\Signatures\Uzun.htm") = "" Then
      MsgBox "C:\Users\çakmakf\AppData\Roaming\Microsoft\Signatures\Uzun.htm" & " dosyası bulunamadı..."
      Exit Sub
End If
Set MS = CreateObject("Scripting.FilesystemObject")
Set Signature = MS.OpenTextFile("C:\Users\çakmakf\AppData\Roaming\Microsoft\Signatures\Uzun.htm", 1)

       .Subject = Cells(4, "B").Value
       .To = Cells(2, "B").Value
       .CC = Cells(3, "B").Value
       .HTMLBody = "<font color=blue><br><br>" & [COLOR="Red"][B]Cells(5, "B").Value[/B][/COLOR] & "</font><br><br><br>" & _
       "<a href='\\10.230.235.110\Ford Ortak\FINANS\00_GOLCUK FINANS\GIDER_FATURALANDIRMA\Ocak2018.xls'>Lütfen Burayı Tıklayın </a>"
       .HTMLBody = .HTMLBody & "<br><br><br>" & Signature.ReadAll

       .send
      End With
      
      Set wrdEdit = Nothing
      Set OutMail = Nothing
      Set OutApp = Nothing
End Sub

 

[Fuatckmk]

Yardimci olabilecek yok mu?

 

[Fuatckmk]

güncel arkadaşlar yardımlarınızı rica ederim

 

[Fuatckmk]

Aynı durumu yaşan vardır diye yazıyorum, durumu çözdüm.

"<br/>" kodunu kullanarak satır atlamak mümkün