Insertar firma con imagen a macro mails automático
Mi pregunta es para Dante Amor, si fuera posible. He encontrado la siguiente macro que está adecuada a lo que busco (yo tengo otra que realiza algo similar que adapté de ron de bruin pero esta está mejor). Necesito insertar una firma con logo, ya que trabajo para una compañía y los mails salen con firma. No he logrado hacerlo. Sí puedo si le inserto un mail en .to y me manejo con el display, pero donde le agrego la condición if o la variabllepara que recorra toda la columna enviando unmail a cada dirección de las celdas, me genera error. La macro de Dante a la que me gustaría insertarle la firma con logo es la siguiente (trabajo con outlook 2013 o 2016)
3 Respuestas
Cambia "firma.jpg" por el nombre del archivo que tiene la firma y logo
Private Sub Workbook_Open()
'envía mail
'Por.Dante Amor
'
'
Sheets("Task Status").Select
ufila = Range("B" & Rows.Count).End(xlUp).Row
For i = 4 To ufila
If Cells(i, 7) <= Cells(i, 8) Then
Set dam = CreateObject("outlook.application").createitem(olmailitem)
para = Cells(i, 10) & ";" & Cells(i, 11) & ";" & Cells(i, 12)
dam.To = para 'Destinatarios
dam.Subject = "Task Status" '"Asunto"
'
'carpeta y nombre del archivo con el logo
ruta = "c:\trabajo\"
logo = "firma.jpg"
dam.Attachments.Add ruta & logo
'
cuerpo = "Señ@r " & Cells(i, 5) & _
" el trabajo " & Cells(i, 2) & _
" le fue asignado el día " & Cells(i, 6) & _
" y actualmente se encuentra " & Cells(i, 8) & _
". Favor indicar la razón de esta situación." & _
"<br> <br>"
'
dam.HTMLBody = _
"<HTML> " & _
"<BODY>" & _
cuerpo & _
"<img src=cid:" & logo & " height=150 width=275>" & _
"</BODY> " & _
"</HTML>"
'
'dam. Attachments.Add Ruta & Archivo
Dam. Send 'El correo se envía en automático
'dam. Display 'El correo se muestra
End If
Next
End Sub.
¿Me podran ayudar con esta Macro? Solo me que cuando envie el mail se envie con image, ( no necesito que se adjunte el archivo de la imagen, sino que salga como firma)
Sub EnviarEmail()
'
' Declaramos variables
'
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Observación As String
Dim Solicitud As String
Dim Msg As String
'
Set OutlookApp = New Outlook.Application
'
'Recorremos la columna EMAIL
'
For Each cell In Range("B11:B200")
'
'Asignamos valor a las variables
'
Asunto = "DOCUMENTACIÓN FALTANTE-NO REPLY"
Destinatario = cell.Offset(0, -1).Value
Correo = cell.Value
Observación = Format(cell.Offset(0, 1).Value, "$#,##0")
Solicitud = cell.Offset(0, 2).Value
'
'Cuerpo del mensaje
'
Msg = "Estimado " & Destinatario & " N° de Solicitud:" & Solicitud & vbNewLine & vbNewLine
Msg = Msg & " Nos dirigimos a usted a fin de informale que su sucripción a Plan Ovalo, se encuentra a un paso de quedar aprobada. Por favor diríjase a su Concesionario para completar los siguientes requisitos faltantes: " & vbNewLine & vbNewLine
Msg = Msg & Observación & vbNewLine & vbNewLine
Msg = Msg & "Atentamente:" & vbNewLine
Msg = Msg & "Plan Ovalo."
Msg = Msg & "ESTE E-MAIL ES AUTOMÁTICO Y NO RESPONDE CONSULTAS." & vbNewLine
Msg = Msg & "La información y documentos contenidos en este correo electrónico son confidenciales y están legalmente protegidos. Este correo electrónico está dirigido únicamente a la dirección de correo señalada. El acceso a este correo electrónico por cualquier otra persona no está autorizado. Si usted no es la persona a la cual el presente correo electrónico estaba originalmente dirigido, cualquier difusión, copia o distribución está prohibida y puede ser ilegal. Si lo ha recibido por error, por favor notifique al emisor e inmediatamente bórrelo de forma permanente y destruya cualquier copia impresa."
'
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Correo
.Subject = Asunto
.Body = Msg
.Send
'
End With
'
Next
'
End Sub
Sub EnviarEmail()
'
' Declaramos variables
'
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Observación As String
Dim Solicitud As String
Dim Msg As String
'
Set OutlookApp = New Outlook.Application
'
'Recorremos la columna EMAIL
'
For Each cell In Range("B11:B200")
'
'Asignamos valor a las variables
'
Asunto = "DOCUMENTACIÓN FALTANTE-NO REPLY"
Destinatario = cell.Offset(0, -1).Value
Correo = cell.Value
Observación = Format(cell.Offset(0, 1).Value, "$#,##0")
Solicitud = cell.Offset(0, 2).Value
'
'Cuerpo del mensaje
'
Msg = "Estimado " & Destinatario & " N° de Solicitud:" & Solicitud & vbNewLine & vbNewLine
Msg = Msg & " Nos dirigimos a usted a fin de informale que su sucripción a Plan Ovalo, se encuentra a un paso de quedar aprobada. Por favor diríjase a su Concesionario para completar los siguientes requisitos faltantes: " & vbNewLine & vbNewLine
Msg = Msg & Observación & vbNewLine & vbNewLine
Msg = Msg & "Atentamente:" & vbNewLine
Msg = Msg & "Plan Ovalo."
Msg = Msg & "ESTE E-MAIL ES AUTOMÁTICO Y NO RESPONDE CONSULTAS." & vbNewLine
Msg = Msg & "La información y documentos contenidos en este correo electrónico son confidenciales y están legalmente protegidos. Este correo electrónico está dirigido únicamente a la dirección de correo señalada. El acceso a este correo electrónico por cualquier otra persona no está autorizado. Si usted no es la persona a la cual el presente correo electrónico estaba originalmente dirigido, cualquier difusión, copia o distribución está prohibida y puede ser ilegal. Si lo ha recibido por error, por favor notifique al emisor e inmediatamente bórrelo de forma permanente y destruya cualquier copia impresa."
'
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Correo
.Subject = Asunto
.Body = Msg
.Send
'
End With
'
Next
'
End Sub
¿Quiere crear y gestionar firmas de correo electrónico profesionales? No se preocupe, porque Newoldstamp tiene todo lo que necesita. Un generador de firmas de correo electrónico es una potente herramienta en línea que te ayuda a personalizar tus correos electrónicos con firmas profesionales. Es realmente fácil de usar y puedes crear rápidamente una firma que cumpla con todos los requisitos.
para Dante...y cómo podría añadir la firma a tu macro enviar correos?. Es una macro muy buena donde se pueden adjuntar varios archivos además de copia CCO..Gracias - Pedro Moya