Hi,
Message was not sent properly (with HTML format). If it is not using HTML format below, everything is fine. Why?
Sub Send_email() On Error GoTo ErrHandler ' SET Outlook APPLICATION OBJECT. Dim objOutlook As Object Set objOutlook = CreateObject("Outlook.Application") ' CREATE EMAIL OBJECT. Dim objEmail As Object Set objEmail = objOutlook.CreateItem(olMailItem) With objEmail .to = "??@gmail.com" .Subject = "This is a test message on Jan 31" '.Body = "Hi there" '.Display ' DISPLAY MESSAGE. .BodyFormat = olFormatHTML .HTMLBody = "<HTML><H2>The body of this message will appear in HTML.</H2><BODY> Please enter the message text here. </BODY></HTML>" .send End With ' CLEAR. Set objEmail = Nothing: Set objOutlook = NothingErrHandler: 'End Sub
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.