Word Wrapping as though and normal email

[irishr_ram]

Hi All,

I have some VBA which sends a report via email using the below code but unlike a normal email you have this one does not wrap the text when the email window in outlook is reduced or increased in size.

Code:

With ActiveSheet.MailEnvelope
.Item.To = "xxx@xxx.com"
.Item.Cc = "xxx@xxx.com"
.Item.Subject = Worksheets("Dashboard Data").Range("C2").Value & " - " & Worksheets("Dashboard Data").Range("C3").Value & " - " & Worksheets("Dashboard Data").Range("C5").Value & " - " & "Weekly Report"
.Item.Send
End With

Is there a way to get the email sent through (which is just text and not any fancy boxes or formatting etc) so that is will auto adjust the text to fit the outlook email window size for example when viewing on a phone or laptop etc?

Thanks

 

[daverunt]

I have never used MailEnvelope and it may only be capable of sending HTML mail, which means it will use fixed sized tables for the data.

If it has the ability to send a text format mail that should work.

Failing that If you have Outlook then you could try the following basic code to see if that suits:
.Body sends the mail as Text and you may need to enter a vbNewline between each range otherwise the content of the 3 ranges is all in one single line (wrapped of course)

Sub Mail_test()

MailBody = Worksheets("Dashboard Data").Range("C2").Text & " - " & Worksheets("Dashboard Data").Range("C3").Text & " - " & Worksheets("Dashboard Data").Range("C5").Text & " - " & "Weekly Report"

   Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(o)
        With OutMail
            .Subject = EmailSubject
            .To = "EmailTo"
            .Cc = ccTo
            .Body = MailBody
            .Display 'Change to .Send once tested to your satisfaction
End With

End Sub