email from excel text на отдельных строках

Question

Получил макрос для запуска и очистки имен и почтовых адресов в порядке, но я не могу получить текст в миане, отправленном на разные строки, он отображается как одна длинная строка текста. Я пытался добавить vbline т.д., но это не имеет никакого значения

в подпункте mailtoo()

Dim OutApp As Object 

Dim OutMail As Object 

Dim cell As Range 



Application.ScreenUpdating = False 

Set OutApp = CreateObject("Outlook.Application") 



On Error GoTo cleanup 

For Each cell In Columns("b").Cells.SpecialCells(xlCellTypeConstants) 

    If cell.Value Like "?*@?*.?*" And _ 

     LCase(Cells(cell.Row, "c").Value) = "yes" Then 



     Set OutMail = OutApp.CreateItem(0) 

     On Error Resume Next 

     With OutMail 

      .To = cell.Value 

      .Subject = "for Action" 

      .Body = "Dear " & Cells(cell.Row, "A").Value _ 

        & vbNewLine & vbNewLine & _ 

        "line one of text here. " & _ 
        "line two of text here" & _ 
        "line three of text here" & _ 

        "Regards" & _ 

        "your name" 





      .Attachments.Add "C:\demofilename.xlsx" 

      .Send 'Or use Display 

     End With 

     On Error GoTo 0 

     Set OutMail = Nothing 

    End If 

Next cell 

очистки:

Set OutApp = Nothing 

Application.ScreenUpdating = True 

End Sub

Answer 1

Вы должны использовать этот VbNewLine переменной где бы вы ни появлялись новые строки текста:

    & vbNewLine & vbNewLine & _ 

        "line one of text here. " & vbNewLine & _ 
        "line two of text here" & vbNewLine & _ 
        "line three of text here" & vbNewLine & vbNewLine &_ 

        "Regards" & vbNewLine & _ 

        "your name" 

Просто помните, что символ продолжения строки VB _ не делает ничего особенного для строк, он предназначен только для того, чтобы сделать ваш код более читаемым. Если вы удалите продолжения строки, что ничего не значит для среды выполнения, ваш исходный код будет выглядеть примерно так, как это делается:

"line one of text here. " & "line two of text here" & "line three of text here" & "Regards" & "your name"