Enviar e-mail
Hola valedor, ante todo ¿que tal estas?.
Mi duda es la siguiente: he utilizado un codigo dado por ti en otra respuesta para enviar un email.Este es el codigo:
Dim myOlapp As Object
Dim myItem As Object
Const olmailtemp As Integer = 0
Set myOlapp = CreateObject("outlook.application")
Set myItem = myOlapp.createItem(olmailitem)
myItem.Subject = "prueba"
myItem.body = "body "
myItem.to = "[email protected]"
myItem.display
La duda es como puedo que este email lleve insertada la hoja de excel desde la cual estoy ejecutando este codigo.
Mi duda es la siguiente: he utilizado un codigo dado por ti en otra respuesta para enviar un email.Este es el codigo:
Dim myOlapp As Object
Dim myItem As Object
Const olmailtemp As Integer = 0
Set myOlapp = CreateObject("outlook.application")
Set myItem = myOlapp.createItem(olmailitem)
myItem.Subject = "prueba"
myItem.body = "body "
myItem.to = "[email protected]"
myItem.display
La duda es como puedo que este email lleve insertada la hoja de excel desde la cual estoy ejecutando este codigo.
1 respuesta
Respuesta de valedor
1
Con este otro codigo, que es casi igual, tu tarea es ver las diferencias y saber por que, saludos...
Option Explicit
Public Sub EnviarCorreoConAnexo()
Dim myOlapp As Object
Dim myItem As Object
Dim myAttach As Object
Dim wbTmp As Workbook
Dim strRuta As String
Const olMailiTem As Integer = 0
Const olByValue As Integer = 1
Set myOlapp = CreateObject("Outlook.Application")
Set myItem = myOlapp.CreateItem(olMailiTem)
Set myAttach = myItem.Attachments
strRuta = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs strRuta
ActiveWorkbook.Close
myAttach.Add strRuta, olByValue, 1, "Ejemplo de archivo anexo"
myItem.Subject = "Prueba de mensaje"
myItem.body = "Cuerpo del mensaje"
myItem.to = "[email protected]"
myItem.display
'Kill strRuta
Set myOlapp = Nothing
Set myItem = Nothing
Set myAttach = Nothing
End Sub
Option Explicit
Public Sub EnviarCorreoConAnexo()
Dim myOlapp As Object
Dim myItem As Object
Dim myAttach As Object
Dim wbTmp As Workbook
Dim strRuta As String
Const olMailiTem As Integer = 0
Const olByValue As Integer = 1
Set myOlapp = CreateObject("Outlook.Application")
Set myItem = myOlapp.CreateItem(olMailiTem)
Set myAttach = myItem.Attachments
strRuta = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs strRuta
ActiveWorkbook.Close
myAttach.Add strRuta, olByValue, 1, "Ejemplo de archivo anexo"
myItem.Subject = "Prueba de mensaje"
myItem.body = "Cuerpo del mensaje"
myItem.to = "[email protected]"
myItem.display
'Kill strRuta
Set myOlapp = Nothing
Set myItem = Nothing
Set myAttach = Nothing
End Sub
