Please help.. VBA to add default outlook signature

[Revathi]

Please help wherein i want to add the outlook signature using VBA macro..

Can someone help me on this.

 

[ranman256]

I use this:

Public Sub CreateNewMessage()
Dim objMsg As MailItem
Dim Selection As Selection
Dim obj As Object
Dim sSignat As String, sPath As String


     Set objMsg = Application.CreateItem(olMailItem)
     With objMsg
      
      sPath = Environ("appdata") & "\Microsoft\Signatures\Bob.htm"
      sSignat = GetSignature(sPath)
      
      .HTMLBody = String(4, vbCrLf) &  sSignat
      
      .Display
    End With
    Set objMsg = Nothing


End Sub




Function GetSignature(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetSignature = ts.readall
    ts.Close
End Function