En este artículo, crearemos una macro para enviar una hoja como archivo adjunto en un correo electrónico.
Antes de ejecutar la macro, debemos especificar una identificación de correo electrónico y el asunto del correo electrónico.
En este ejemplo, queremos enviar "Hoja de datos" como un archivo adjunto en el correo electrónico.
Explicación lógica
Hemos creado la macro "MailSheet", que toma la identificación del correo electrónico y el asunto del correo electrónico de los cuadros de texto. Crea una nueva copia de "Hoja de datos", la guarda y la envía como un archivo adjunto.
Explicación del código
Hojas de cálculo ("Hoja de datos"). Copiar
El código anterior se utiliza para crear una copia de "Hoja de datos" en un nuevo libro de trabajo.
ActiveWorkbook.SaveAs "Parte de" & ThisWorkbook.Name _
& "" & StrDate & ".xls"
El código anterior se usa para guardar el nuevo libro de trabajo.
ActiveWorkbook.SendMail EmailID, MailSubject
El código anterior se utiliza para enviar el libro de trabajo activo como un archivo adjunto a la identificación de correo electrónico especificada, con el asunto dado.
ActiveWorkbook.Close False
El código anterior se usa para cerrar el libro activo sin guardarlo.
Siga a continuación para obtener el código
Sub MailSheet () 'Declarando variables Dim StrDate, EmailID, MailSubject As String' Obteniendo valor para ID de correo electrónico y asunto de cuadros de texto EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'Copiando "DataSheet" a nuevas hojas de libro (" Hoja de datos "). Copiar 'Formatear la fecha y la hora a un formato particular StrDate = Formato (Fecha," dd-mm-aa ") &" "& Formato (Hora," h-mm ")' Guardar el libro activo con el nuevo nombre ActiveWorkbook. Guardar como "Parte de" & ThisWorkbook.Name _ & "" & StrDate & ".xls" 'Enviar correo ActiveWorkbook.SendMail EmailID, MailSubject' Cerrar el libro activo ActiveWorkbook.Close False End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico