Default Outlook Signature when generating email from VBA

[kgkev]

I have done a good bit of searching to modify some existing code to include the default outlook signature, but I haven't had any luck.
Any help is appreciated

I have cut the code to barebones in an effort to simplify.

Sub create_Email_test()    
    Dim oApp As Object
    Dim oMail As Object
  
    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    With oMail
        .TO = "test@test.com"
        .Subject = "TEST"
        .HTMLBody = "Dear Sir or Madam," [COLOR=#ff0000]'ADD SIGNATURE HERE[/COLOR]
        .Display  
    End With
     
    Set oMail = Nothing
    Set oApp = Nothing
End Sub

 

[Fluff]

For all things related to email with Outlook have a look at Ron's site
https://www.rondebruin.nl/win/s1/outlook/mail.htm

 

[kgkev]

Turns out I just had the .display in the wrong place

Sub create_Email_test()
    Dim oApp As Object
    Dim oMail As Object
  
    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    With oMail
        .Display
        .TO = "test@test.com"
        .Subject = "TEST"
        .HTMLBody = "Dear Sir or Madam," & "[BR]" & .HTMLBody
       
    End With
     
    Set oMail = Nothing
    Set oApp = Nothing
End Sub

 

[Fluff]

Glad you sorted it & thanks for the feedback