Including HTML Code in Email Body

[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