Tengo una macro que envía correos, pero no envía la firma, ¿Cómo adjunto una firma?
Sub SendMail()
Dim strReportName As String
Dim strReportName2 As String
'Declaración de variables
Dim objOutlook As Object
Dim objMail As Object
Dim objOutlookAttach As Object
Dim Dan As String
Dim Rafa As String
P = 2
For F = P To 50
L = Cells(P, 1).Value
M = Cells(P, 5).Value
C = Cells(P, 6).Value
B = Cells(P, 2).Value
'Se declara un objeto de tipo Outlook
Set objOutlook = CreateObject("Outlook.Application")
'Se crea un nuevo mensaje
Set objMail = objOutlook.CreateItem(olMailItem) 'Create a new
Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)
'Se le asignan los valores a las distintas propiedades del objeto "mail"
With objMail
'A quien va dirigido se podría escribir un grupo de usuarios de Outlook
.To = L
.Cc = M
.Subject = B
'Se especifica el asunto.Subject
'Se especifica lo que se quiere que diga el mensaje
.Body = "Hola, tu solicitud fue asignada a" & " " & C
'Se escriben el o los archivos a adjuntar en el mail
'Se manda el mensaje
.Send
End With
'Se cierran todos los objetos utilizados
Set objMail = Nothing
Set objOutlook = Nothing
P = P + 1
Next F
End Sub