Sub Mail_small_Text_Outlook() 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Working in Office 2000-2013 Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) strbody = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This is line 3" & vbNewLine & _ "This is line 4" On Error Resume Next With OutMail .To = "email@example.com" ' .CC = "" ' .BCC = "" .Subject = "This is the Subject line" .Body = strbody .Send 'or use .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub
|Extracting report from Exchange 2010 of Mailboxes whose E-mails are greater then 25 MB.||2||42|
|Excel 2016 formulas||5||30|
|Outlook 2016: The message store has reached its maximum size.||5||8|
|tabctrl with page click event||9||10|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!