Including HTML Code in Email Body

[Mikeyabosbht]

Hi Guys,

I have included some prelim code that should send a HTML email that includes my company signature.

However, it only generates the required signature if I add ".display" method before the .HTML body property within the "With Block".

If I include .send method after .HTML property it strips the email of formatting and I include the .send method after the .HTML body it generates an error message.

I am looking to retain the HTML formatting and the .display method - is this possible, please?

[georgiboy]

You can have .Display just before the .Send as a simple workaround

[Mikeyabosbht]

Thank you for your reply, Georgiboy and thank for your help previously with other queries.

When I add the .display method before the .send method the for loop will trigger and output and send one email but then stop and generate a run-time error: "Item has been moved or deleted"

Please let me know if there is an alternative workaround

[georgiboy]

How about if you add the below line of code under the .Display:

DoEvents

[Mikeyabosbht]

Darnit - it is still flagging with the same run time error. Thank you for your help. So frustrating as I am really keen to retain the HTML formatting

[georgiboy]

Google: ron de bruin send email keep signature vba

Have a look at the first link that comes up - he is the master at automating Outlook via excel (IMO)

[georgiboy]

Here is another example where the signature is captured from the display before it is then sent with the signature:

Sub test()    
    Dim OApp As Object, OMail As Object, signature As String
    
    Set OApp = CreateObject("Outlook.Application")
    
    For x = 1 To 5
        Set OMail = OApp.CreateItem(0)
        With OMail
            .Display
            DoEvents
        End With
        signature = OMail.HTMLBody
        With OMail
            .to = "jbloggs@somebusiness.com"
            .Subject = "Subject here"
            .HTMLBody = "Body text here" & vbNewLine & signature
            .Send
        End With
    Next x
    
    Set OMail = Nothing
    Set OApp = Nothing
End Sub

[Mikeyabosbht]

No. I think you are the master. The sample code you have provided is amazing and works.

Thanks so much!