How can I add line breaks in my email messages?

[sharingan_gv]

Hi!

So I have been working on this Macro for about a week now and finally got it to work. However, whenever the email is sent (using outlook), it comes out as 1 line. The body I want sent includes the line breaks in Excel, but I cannot seem to translate it over to an email message.

Does anyone know what I need to include in my code? Or Where?

Thank you!

Sub Mail_In_Excel2011_Mac()

    Application.ScreenUpdating = False
    Application.EnableEvents = False


    For i = 1 To Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
        MailFromMacwithOutlook bodycontent:=Sheets(1).Cells(i, 5), _
            mailsubject:=Sheets(1).Cells(i, 4), _
            toaddress:=Sheets(1).Cells(i, 3), _
            ccaddress:="", _
            bccaddress:="", _
            attachment:="", _
            displaymail:=False
    Next i

    Application.ScreenUpdating = True
    Application.EnableEvents = True

End Sub

Function MailFromMacwithOutlook(bodycontent As String, mailsubject As String, _
            toaddress As String, ccaddress As String, bccaddress As String, _
                          attachment As String, displaymail As Boolean)
'Ron de Bruin, function to Mail with Outlook for the Mac, 19-Aug-2013
    Dim scriptToRun As String

    scriptToRun = scriptToRun & "tell application " & _
                  Chr(34) & "Microsoft Outlook" & Chr(34) & Chr(13)

    scriptToRun = scriptToRun & _
     "set NewMail to make new outgoing message with properties" & _
       "{content:""" & bodycontent & """, subject:""" & mailsubject & """}" & Chr(13)

    scriptToRun = scriptToRun & "tell NewMail" & Chr(13)
    If toaddress <> "" Then
        scriptToRun = scriptToRun & "set toaddressList to {" & _
                  Chr(34) & Replace(toaddress, ",", """,""") & Chr(34) & "}" & Chr(13)
        scriptToRun = scriptToRun & "repeat with i from 1 to count toaddressList" & Chr(13)
        scriptToRun = scriptToRun & "make new to recipient at end of to recipients with " & _
                     "properties {email address:{address:item i of toaddressList}}" & Chr(13)
        scriptToRun = scriptToRun & "end repeat" & Chr(13)
    End If
    If ccaddress <> "" Then
        scriptToRun = scriptToRun & "set ccaddressList to {" & _
                  Chr(34) & Replace(ccaddress, ",", """,""") & Chr(34) & "}" & Chr(13)
        scriptToRun = scriptToRun & "repeat with i from 1 to count ccaddressList" & Chr(13)
        scriptToRun = scriptToRun & "make new cc recipient at end of cc recipients with " & _
                     "properties {email address:{address:item i of ccaddressList}}" & Chr(13)
        scriptToRun = scriptToRun & "end repeat" & Chr(13)
    End If
    If bccaddress <> "" Then
        scriptToRun = scriptToRun & "set bccaddressList to {" & _
                  Chr(34) & Replace(bccaddress, ",", """,""") & Chr(34) & "}" & Chr(13)
        scriptToRun = scriptToRun & "repeat with i from 1 to count bccaddressList" & Chr(13)
        scriptToRun = scriptToRun & "make new bcc recipient at end of bcc recipients with " & _
                     "properties {email address:{address:item i of bccaddressList}}" & Chr(13)
        scriptToRun = scriptToRun & "end repeat" & Chr(13)
    End If
    If attachment <> "" Then
        scriptToRun = scriptToRun & "set attachmentList to {" & _
                  Chr(34) & Replace(attachment, ",", """,""") & Chr(34) & "}" & Chr(13)
        scriptToRun = scriptToRun & "repeat with i from 1 to count attachmentList" & Chr(13)
        scriptToRun = scriptToRun & "make new attachment at end of attachments with " & _
                        "properties {file:item i of attachmentList}" & Chr(13)
        scriptToRun = scriptToRun & "end repeat" & Chr(13)
    End If
    scriptToRun = scriptToRun & "end tell" & Chr(13)

    If displaymail = False Then
        scriptToRun = scriptToRun & "send NewMail" & Chr(13)
    Else
        scriptToRun = scriptToRun & "open NewMail" & Chr(13)
        scriptToRun = scriptToRun & "activate NewMail" & Chr(13)
    End If
    scriptToRun = scriptToRun & "end tell" & Chr(13)

    If Len(toaddress) + Len(ccaddress) + Len(bccaddress) = 0 Or mailsubject = "" Then
        MsgBox "There is no To, CC or BCC address or Subject for this mail"
        Exit Function
    Else
        On Error Resume Next
        MacScript (scriptToRun)
        On Error GoTo 0
    End If
End Function 

[AlphaFrog]

If your default body text format in Outlook is HTML, replace the linefeed characters in your bodytext with the HTML tag <br>

MailFromMacwithOutlook bodycontent:=Replace(Sheets(1).Cells(i, 5), vbLf, "<br>"), _