Insertar firma en correo creado via MACRO
Publicado por Kazuno Shiranui (1 intervención) el 27/08/2013 17:07:19
Hola chicos, estoy recien aprendiendo a usar las macros de EXCEL debido a mi trabajo xD, pero quede topado en algo.
tengo que mandar un reporte Excel por correo, ya cree la macro que selecciona el area de la hoja excel y la envia por correo a la lista de destinatarios, todo funciona bien, excepto un detalle, los correos no incluyen mi firma, de que manera podria agregarla para que los correos, a parte de la info, incluyan mi firma?
la macro que uso para esto es la siguiente
tengo que mandar un reporte Excel por correo, ya cree la macro que selecciona el area de la hoja excel y la envia por correo a la lista de destinatarios, todo funciona bien, excepto un detalle, los correos no incluyen mi firma, de que manera podria agregarla para que los correos, a parte de la info, incluyan mi firma?
la macro que uso para esto es la siguiente
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Send_Range()
Dim fechahoy As String
' Guardamos el asunto como String
fechahoy = "informe de hoy " & Date
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A5:L183").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope.Item.To = "lol@lol.org"
.Item.Cc = "unmonton@depersonas.org"
.Item.Subject = fechahoy
.Item.Send
End With
End Sub
Valora esta pregunta
0