Como enviar correo con archivo adjunto
Tengo el siguiente código:
Sub Mail_ActiveSheet1()
Dim wb As Workbook
Dim strdate As String
Dim stEmail As Integer
strEmail = "[email protected]"
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ActiveSheet.Name
.SendMail strEmail, "EnvioAutomatico: Solicitud Mayor a 20 Días"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub
Al realizar el proceso de envío sale un mensaje donde se debe hacer click en permitir o denegar, lo que quisiera es que se envíe directo el correo y no estar dándole click, también si se puede agregar un cuerpo del mensaje (Body).
1 respuesta
Respuesta de Samuel David Diaz
1