Enviar por mail
Hola Elsa ¿cómo estás?
Me puedes ayudar con lo siguiente: cómo se puede enviar por mail en excel un archivo que no es el mismo desde donde se ejecutará la macro.
Saludos
Me puedes ayudar con lo siguiente: cómo se puede enviar por mail en excel un archivo que no es el mismo desde donde se ejecutará la macro.
Saludos
1 Respuesta
Respuesta de Elsa Matilde
1
Ajusta el contenido de las variables para probar esta rutina. Espero te sea de utilidad.
Saludos
Elsa
Option Explicit
Sub enviamail()
Dim midire, miasunto, miruta As String
Dim wb
midire = "[email protected]"
miasunto = "Envío prueba"
miruta = ThisWorkbook.Path & "\LibroParaEnviar.xls"
'se abre el libro y pasa a ser el activo
Workbooks.Open (miruta)
Set wb = ActiveWorkbook
On Error GoTo ErrorEnvio
With wb
.SendMail midire, miasunto
.Close False
End With
Set wb = Nothing
End Sub
PD) No te pierdas mi manual '300 Macros' explicadas paso a paso en español. Descarga la demo gratis desde: http://es.geocities.com/lacibelesdepunilla/manual
Saludos
Elsa
Option Explicit
Sub enviamail()
Dim midire, miasunto, miruta As String
Dim wb
midire = "[email protected]"
miasunto = "Envío prueba"
miruta = ThisWorkbook.Path & "\LibroParaEnviar.xls"
'se abre el libro y pasa a ser el activo
Workbooks.Open (miruta)
Set wb = ActiveWorkbook
On Error GoTo ErrorEnvio
With wb
.SendMail midire, miasunto
.Close False
End With
Set wb = Nothing
End Sub
PD) No te pierdas mi manual '300 Macros' explicadas paso a paso en español. Descarga la demo gratis desde: http://es.geocities.com/lacibelesdepunilla/manual
