Enviar email desde excel en pdf

Quisiera saber como enviar el archivo PDF, que ya fue creado con la macro anterior, por correo electrónico, no se si se le agregaría a la misma macro, algo así como guardar y enviar, o se haría desde otro botón.

1 Respuesta

Respuesta
1

Tienes que decirme a qué correo se envía, si es siempre el mismo o se toma de alguna celda. Qué se va a poner en el asunto del correo y qué se va a poner en el cuerpo del correo, de igual forma me tienes que decir si siempre se pone lo mismo o se toma de alguna celda.

Todavía tienes pendiente valorar una respuesta, podrías valorarla para continuar con lo que sigue.

Saludos. Dante Amor

Que el correo se tome de alguna celda, en el asunto que vaya "Envió de reporte", en el cuerpo podría quedar un saludo "Buen día se le envía el reporte...." para que se modifique lo que ira en el cuerpo del correo o en el asunto seria que lo tomara de una celda verdad? si es así entonces que se tome de alguna celda.

Ya valore la respuesta anterior, Gracias!  

Esta es la macro completa para guardar el pdf y enviar por correo

Cambia en la macro las celdas B4, C4 y D4 por el destinatario, asunto y cuerpo respectivamente.

Sub GuardarPdf()
'Por.Dante Amor
    Set celda = Sheets("hoja1").[G8]
    '
    ruta = ThisWorkbook.Path & "\"
    n = celda.Value
    arch = "Control_" & Format(n, "0000")
    Range("A1:H20").ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & arch & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    celda.Value = n + 1
    ActiveWorkbook.Save
    '
    Set dam = CreateObject("outlook.application").createitem(0)
    dam.To = Range("B4")
    dam.Subject = Range("C4")
    dam.Body = Range("D4")
    dam.Attachments.Add ruta & arch & ".pdf"
    dam.Send
End Sub

Feliz año 2015! Te desea Dante Amor

No olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Enviar correo desde excel con otro remitente

Quisiera que me brindes tu apoyo con este inconveniente. Quiero enviar mensajes desde excel con macros. Sin embargo en el trabajo manejo 2 correos uno personal y otro del área donde laboro. Por ejemplo Correo personal: [email protected] correo del...
1 respuesta

Macro para guardar en pdf

Quisiera saber como hacer una macro que me exporte en pdf un rango determinado de una hoja de excel Ejm ( de A1 a H20 ) y lo guarde con un nombre consecutivo Ejm. Control_0001 y cuando vuelva a guardar otro archivo ya sea control_0002 y así...
1 respuesta

Incluir firma al enviar correos automáticos desde excel 2003

Tengo esta macro Ub enviar() Sheets("Control de alquiler").Select ufila = Range("A" & Rows.Count).End(xlUp).Row For i = 4 To ufila If Cells(i, 14) <= Cells(i, 15) Then Set parte1 = CreateObject("outlook.application") Set parte2 =...
1 respuesta

Macro para enviar mail automático desde Excel para Dante Amor

Pudieras ayudarme con el código para una Macro que permita abrir outlook 2010 y enviar un mail automático desde Excel 2010. En mi trabajo tengo una lista de equipos en las cuales cada determinado tiempo vence su calibración, me interesa que con la...
2 respuestas

Macro para abrir outlook y enviar mail automático desde Excel dada alguna condición cumplida.

Necesito enviar un correo outlook automáticamente informando que la tarea no se ha cumplido dada una comparación con una fecha compromiso definitiva de la entrega de tarea con la fecha del día en curso Se busca realizar con excel 2013 y outlook 2013...
2 respuestas

Enviar correo adjuntando todos los archivos de una carpeta

Enviar un correo adjuntando todos los archivos de una carpeta, sin importar el nombre ni la cantidad (ya que pueden variar). Uso el Outlook.
3 respuestas

Auto ajuste de tamaño de celda

Tengo un archivo en excel en que registro texto en varias celdas. Y quiero saber si hay forma de que se auto ajuste el tamaño de las celdas para que sea visible, ya que también lo convierto en PDF y no se alcanza a leer todo el contenido.
1 respuesta

Macro para enviar automáticamente correos y programada para que sean todos los días a la misma hora

Quisiera que me ayudaran con una macro que pueda enviar correos automáticamente, yo ya he iniciado una macro que envía correos pero el problema es que lo hace "manual" porque tengo que darle "enviar" cuando me abre el outlook, yo necesito que cuando...
1 respuesta

Copiar celdas a otras si no están vacías

Encontré aquí este modelo para Copiar celda a otra celda solo si esta esta vacía Sub CopiaPega() If Range("A4") = "" Then Range("A4") = Range("A2") End Sub Lo que yo necesito es hacer lo mismo, pero con un rango de celda: If Range("A4:A44") <>"" Then...
2 respuestas

Enviar un email con outlook usando una macro de excel, sólo con ciertos datos por fila

Necesito una macro de excel con la que generar un correo que se envíe a través de outlook en el que: - El asunto son tres celdas de la misma fila no consecutivas concatenadas. - El para es otro dato en otra celda de la misma fila. - En el cuerpo...
1 respuesta