I have two Signatures but unable to allocate in VBA?

[kitsa]

Hi I have two accounts on my email (outlook) and I would like to use one account and bring up the signature for each account in VBA, each time I run this, the signature doesn't show. Can someone help me with my coding to bring up individual signature e.g. signature name "ScaffTechic"?

Dim OutApp As Object
   Dim OutMail As Object
  Dim strbody As String
   
   
  Set OutApp = CreateObject("Outlook.Application")
   Set OutMail = OutApp.CreateItem(0)

   strbody = "Hi Accounts," & _
              "<BR />" & "testing& _
              "<BR />" & _
              "<BR />" & _
              "<BR />" & "Note: Testing 2" & _
              "<BR />" & _
              "<BR />" & _
              "<br />" & "If you have any issues please do not hesitate to contact me." & _
              "<br />"

   On Error Resume Next

    With OutMail
       
       .SentOnBehalfOfName = [EMAIL]Test@test.com.au[/EMAIL]
        .Display
        .To = "testing4@doing.com.au"
        .CC = [EMAIL]Testing@do.com.au[/EMAIL]
        .BCC = ""
        .Subject = "test" & " " & Format(Date, "mmmm yyyy") & " " & "Edmondson Park"
        .HTMLBody = "<p style='font-family:calibri;font-size:14.5'>" & strbody & "" & "</p>" & .HTMLBody
        'This is the code which is to send multiple attachments
        .Attachments.Add "Invoice.pdf"
        .Importance = 2 'Or olImprotanceHigh Or olImprotanceLow
        .SendUsingAccount
       .Display
   
    End With