Formulde paragraf yaptırmak

[Karanlik1]

Merhabalar,

Yine bu forumdandan öğrendiğim "excelden mail gönderme " kodları aşağıdaki şekile sokmayı başaradım.

With OutMail
.To = cell.Value
.Subject = "Konu"
.Body = "Sayın " & cell.Offset(0, -1).Value & cell.Offset(0,-2).Value
For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell) <> "" Then
If Dir(FileCell.Value) <> "" Then
.Attachments.Add FileCell.Value

Ancak Outlook'da bu &#351;ekilde g&#246;r&#252;n&#252;yor.

SAYIN AHMET TATLI; Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aliquam ante felis, venenatis et, pharetra at, varius quis, libero. Aenean eget nunc a enim tempor dapibus. Pellentesque sapien. Donec vehicula, massa ut tristique tincidunt, mauris tellu......

Kodun outlook'da a&#351;a&#287;&#305;daki g&#246;z&#252;kmesi i&#231;in koyu sat&#305;ra ne eklemem gerekiyor?

SAYIN AHMET TATLI;

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aliquam ante felis, venenatis et, pharetra at, varius quis, libero. Aenean eget nunc a enim tempor dapibus. Pellentesque sapien. Donec vehicula, massa ut tristique tincidunt, mauris tellus pellentesque dolor, .....

 

[Ferhat Pazarçevirdi]

Deneyiniz

.Body = "Say&#305;n " & cell.Offset(0, -1).Value & vbcrlf & cell.Offset(0,-2).Value

 

[Karanlik1]

Saol dostum, 2 tane koyunca oldu