get and past htmlsigniture from outlook into excel

[selkov]

Is there some way to read the outlook signature html file and paste the signature to the end of an excel spreadsheet?

 

[6StringJazzer]

You can define multiple signatures in Outlook, and can have multiple accounts. If you go to

C:\Users\[username]<username>\AppData\Roaming\Microsoft\Signatures

you will see your signature files. Do you just see one HTM (not HTML) file? If so, you can code to that. Otherwise you need a way to select which account to use.

Public Function GetSignature() As String


   Dim TextLine As String
   Open "C:\Users\[username]\AppData\Roaming\Microsoft\Signatures\[sigfilename].htm" For Input As #1 
   Do Until EOF(1)
      Line Input #1 , TextLine
      GetSignature = GetSignature & TextLine
   Loop
   Close #1 
   
End Function

It might also be possible to do this by creating an Outlook instance and retrieving the signature through that, but I thought this was a little easier.

Note! This returns HTML code. If you want to insert it into an Excel file and have it look the same way it does in an email, that's a completely different problem.</username>

 

[selkov]

I do have a htm file available and I do want to insert it into an Excel file and have it look the same way it does in an email.
How can I do that?

 

[6StringJazzer]

Open the signature file in Excel, copy it, paste it where you want it, and close. This will paste it into the active sheet after the last row column A that has data.

Depending on how complex your signature is, the format may not be compatible. For example, in my signature, Excel opens with a very wide column A, but if the sheet you are pasting into does not have a wide column A, it won't look right.

Public Sub PasteSignature()

   Dim SigWB As Workbook
   
   Set SigWB = Workbooks.Open("C:\Users\[username]\AppData\Roaming\Microsoft\Signatures\[sig file name].htm")
   SigWB.Worksheets(1).UsedRange.Copy Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, "A")
   SigWB.Close savechanges:=False
   
End Sub