How to insert signature in VBScript for sending emails from QlikView

[Anonymous]

Hi All,

I desperately in need of your help for inserting my outlook's default signature in the below VBScript for sending emails from QlikView

FUNCTION GlobalFEPSendReport() 

    Dim objEmail

    Const cdoSendUsingPort = 2    

    Const cdoAnonymous = 0    

    Const cdoBasic = 1         

    Const cdoNTLM = 2        

    SMTPServer = "xxxxx.bbb.com" 

    Const SMTPPort = 25                 

    Const SMTPTimeout = 60              

    'Sending mail 

    Set objEmail = CreateObject("CDO.Message") 

    Set objConf = objEmail.Configuration 

    Set objFlds = objConf.Fields 

    With objFlds 

        '--------------------------------------------------------------------- 

           ' SMTP server details 

           .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort 

           .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer 

           .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous  

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort 

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 

          .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SMTPTimeout 

           .Update 

        '--------------------------------------------------------------------- 

msgbox "Mail Sent Successfully"

    End With 

    objEmail.To = ""        'Email Recipient 

    objEmail.cc = ""        'Email Recipient

    objEmail.From = ""                        'Email Sender 

    objEmail.Subject = "Report on Global FEP Alerts" & ":" & " " & PreviousWeekNum()         ' Subject 

    objEmail.HTMLBody = "Please find attached the report on Global FEP alerts for the" & " " & PreviousWeekNum() &_

    "<BR><BR>Thank You<BR>"

    objEmail.AddAttachment   ""    ' Attachement 

    objEmail.Send 

    Set objFlds = Nothing 

    Set objConf = Nothing 

    Set objEmail = Nothing 

END FUNCTION