Una de emails

Hola Adolfo,
Aplica lo que yo tengo. a mi me funciona...
PROCESO:
1. En VBA ir a Herramientas/Referencias y seleccionar/activar Microsoft
Outlook Object Library...

2. Despues pegas el siguiente código en un módulo general...
(puedes asignar este código a un botón en la hoja)...

Sub Envio_Hoja()
' Crea Libro con la Hoja que vas a enviar
Ruta = ActiveWorkbook.Path
Sheets("A Enviar").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Ruta & "\Enviado.xls"
ActiveWindow.Close
' Envío por mail
Dim olapp As Outlook.Application
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ""
msg.Subject = "Asunto:"
msg.Body = "Adjunto Hoja a remitir"
msg.Attachments.Add Source:=Ruta & "\Enviado.xls"
msg.Send
End Sub

Compruebalo, y modificalo para tus necesidades, y si tienes problemas o
dudas comentas...
SALUDOS.

"Adolfo Fernández" escribió:

Buenas tardes,

Necesitaba saber el código para que el usuario, una vez rellenado un archivo
excel aprete un botón y envíe ese archivo, o una copia del mismo a una
dirección fija de correo electrónico.

Si alguien me puede ayudar o por lo menos decirme por donde puedo empezar a
mirar, a parte de ahorrarme mucho trabajo se lo agradecería eternamente.

Un saludo,
Adolfo

Muchas gracias, en principio funciona perfectamente.
El único problema es que si el usuario no tiene configurado el Outlook no
funciona.
¿Conoces alguna forma de enviar el correo sin necesidad de que tenga
Outlook?

Un saludo,
Adolfo

"Albymar" escribió en el mensaje
news:

Hola Adolfo,
Aplica lo que yo tengo. a mi me funciona...
PROCESO:
1. En VBA ir a Herramientas/Referencias y seleccionar/activar Microsoft
Outlook Object Library...

2. Despues pegas el siguiente código en un módulo general...
(puedes asignar este código a un botón en la hoja)...

Sub Envio_Hoja()
' Crea Libro con la Hoja que vas a enviar
Ruta = ActiveWorkbook.Path
Sheets("A Enviar").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Ruta & "\Enviado.xls"
ActiveWindow.Close
' Envío por mail
Dim olapp As Outlook.Application
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ""
msg.Subject = "Asunto:"
msg.Body = "Adjunto Hoja a remitir"
msg.Attachments.Add Source:=Ruta & "\Enviado.xls"
msg.Send
End Sub

Compruebalo, y modificalo para tus necesidades, y si tienes problemas o
dudas comentas...
SALUDOS.

"Adolfo Fernández" escribió:

> Buenas tardes,
>
> Necesitaba saber el código para que el usuario, una vez rellenado un

archivo

> excel aprete un botón y envíe ese archivo, o una copia del mismo a una
> dirección fija de correo electrónico.
>
> Si alguien me puede ayudar o por lo menos decirme por donde puedo

empezar a

> mirar, a parte de ahorrarme mucho trabajo se lo agradecería eternamente.
>
> Un saludo,
> Adolfo
>
>
>
>

Hola Adolfo,
Adolfo indicó:
¿Conoces alguna forma de enviar el correo sin necesidad de que tenga Outlook?

En principio NO, porque mis necesidades eran esas... pero ...
parece ser que es necesario tener instalado en el equipo un programa de
correo electrónico ... (para poder efectuar una llamada a dicho programa)...
consulta la respuesta de Mari a Marisa en el post: "Asunto: RE: ENVIO DE
MAIL DESDE EXCEL"

Hola,

puede servir esto...
Utilizar SMTP para los mensajes salientes
http://www.microsoft.com/latam/tech...fault.aspx



Saludos
Francisco Parrilla

News Microsoft:
news.microsoft.com
Comunidad:
http://groups.msn.com/ExcelVbaMacrosOffice
Ayuda y Soporte:
http://support.microsoft.com/search/?adv=1

"Albymar" escribió en el mensaje
news:

Hola Adolfo,
Adolfo indicó:
¿Conoces alguna forma de enviar el correo sin necesidad de que tenga

Outlook?

En principio NO, porque mis necesidades eran esas... pero ...
parece ser que es necesario tener instalado en el equipo un programa de
correo electrónico ... (para poder efectuar una llamada a dicho

programa)...

consulta la respuesta de Mari a Marisa en el post: "Asunto: RE: ENVIO DE
MAIL DESDE EXCEL"