Default Outlook Signature when generating email from VBA

kgkev

Well-known Member
Joined
Jun 24, 2008
Messages
1,245
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.

Code:
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
 
Last edited:

Some videos you may like

Excel Facts

Lock one reference in a formula
Need 1 part of a formula to always point to the same range? use $ signs: $V$2:$Z$99 will always point to V2:Z99, even after copying

kgkev

Well-known Member
Joined
Jun 24, 2008
Messages
1,245
Turns out I just had the .display in the wrong place

Code:
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
 
Last edited:

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
36,145
Office Version
365
Platform
Windows
Glad you sorted it & thanks for the feedback
 

Watch MrExcel Video

Forum statistics

Threads
1,090,457
Messages
5,414,637
Members
403,539
Latest member
rthompsona

This Week's Hot Topics

Top