Macro envío de correo con firma.

Cuando generas una firma en outlook te crea un archivo, revisa en esta carpeta

"C:\Documents and Settings\DAMOR\Datos de programa\Microsoft\Signatures\

Cambia DAMOR por el nombre de tu usuario de tu máquina.

En esa carpeta debes tener un archivo .txt, si tu archivo de firma tiene imágenes, entonces no se como hacerle.

Con la siguiente macro puedes insertar el contenido de ese archivo.

Sub correo()
'***Macro Para enviar correos
'Por.Dam
    uf = Range("B" & Rows.Count).End(xlUp).Row
    Set parte1 = CreateObject("outlook.application")
    Set parte2 = parte1.createitem(olmailitem)
    parte2.to = Range("B" & uf) 'Destinatarios
    parte2.Subject = Range("C" & uf) '"Asunto"
    'parte2.send 'El correo se envía en automático
    SigString = "C:\Documents and Settings\DAMOR\Datos de programa\Microsoft\Signatures\saludos.txt"
    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If
    parte2.body = Signature
    'MsgBox SigString
    'parte2.Signature = "Aquí va la firma"
    parte2.display 'El correo se muestra
End Sub
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

Cambia saludos.txt por el nombre de tu archivo

Saludos. Dam

Fue una respuesta excelente, gracias por tu gran ayuda! Lamentablemente mi firma si tiene imagen, seguiré investigando de que forma lo puedo hacer.

Saludos y gracias dam!!