I have the below code to generate an email with several different lines of text, however i can get the lines of text to start on a new line in the body of the email
Dim olApp As Object
Dim olMsg As Object
Set olApp = CreateObject("Outlook.Application")
Set olMsg = olApp.CreateItem(0)
With olMsg
.To = z
.Cc = B
.Subject = "ECB for " & PrgName & "-" & x
.Body = BodyTxt + " " + BodyTxt1 + " " + BodyTxt2
.Attachments.Add ActiveDocument.Path + "\" + ActiveDocument.Name
.Display
End With
Set olMsg = Nothing
Set olApp = Nothing
Dim olApp As Object
Dim olMsg As Object
Set olApp = CreateObject("Outlook.Application")
Set olMsg = olApp.CreateItem(0)
With olMsg
.To = z
.Cc = B
.Subject = "ECB for " & PrgName & "-" & x
.Body = BodyTxt + " " + BodyTxt1 + " " + BodyTxt2
.Attachments.Add ActiveDocument.Path + "\" + ActiveDocument.Name
.Display
End With
Set olMsg = Nothing
Set olApp = Nothing