can you find out what is the name of your default signature
(outlook->options->mail->signatures)
if you have found out, replace mySig on the code with your signature name (do not delete the .htm extension):
also i noticed your picture does not have an extension so i add .png (replace it with the extension you have).
Dim sig As String
sig = ReadSignature("Mysig.htm")
With xReplyMailItem
.Subject = "[I] " & Item.Subject
.Attachments.Add "W:\ABC\0 Archiwum\picture1.png", olByValue, 0
.HTMLBody = strbody & "<br></br>" & "<img src=""W:\ABC\0 Archiwum\picture1.png"" width=50>" & & "<p><br/><br/></p>" & sig
.Display
End With
Public Function ReadSignature(sigName As String) As String
' arnelgp
'
' sigName should include the .htm extension
'
Dim appDataDir As String
Dim sig As String
Dim sigPath As String
Dim fileName As String
appDataDir = Environ$("APPDATA") & "\Microsoft\Signatures"
sigPath = appDataDir & "\" & sigName
With CreateObject("Scripting.FileSystemObject")
sig = .OpenTextFile(sigPath).ReadAll
End With
'With CreateObject("Scripting.FileSystemObject").CreateTextFile(Environ("userprofile") & "\desktop\sig2.txt", True)
' .Write sig
' .Close
'End With
' fix relative references to images, etc. in sig
' by making them absolute paths, OL will find the image
fileName = Replace$(sigName, ".htm", "_files/")
sig = Replace$(sig, fileName, appDataDir & "\" & fileName)
ReadSignature = sig
End Function