Send Correo

Hola Mauro,

Prueba esto:

Application.Dialogs(xlDialogSendMail).Show "",
"Requerimiento"

Tambien, si necesitas enviar el mensaje a varias direcciones, podrias poner
las direcciones q quieras separandolas por punto y coma, p.ej:

Application.Dialogs(xlDialogSendMail).Show ";
", "Requerimiento"

o

Application.Dialogs(xlDialogSendMail).Show "" & "; " &
"", "Requerimiento"

Finalmente, para mas alternativas revisa este enlace:

http://www.rondebruin.nl/sendmail.htm

Saludos,
KL

"Mauro" wrote in message
news:

Tengo una hoja de excel que trabaja con area de trabajo, en dicha hoja los
usarios deben llenar cierta informacion y debe ser enviada por correo
(Outlook), para esto tengo un boton donde le asigne la siguiente macro con
el
siguiente codigo :

Application.Dialogs(xlDialogSendMail).Show ().

Con esto quiero que en el encabezado del Para : me adicione la direccion
electronica ()y en el Asunto : (Pueda dejar la palabra
Requerimiento). Actualmente estos campos aparecen en blanco y el usuario
debe llenarlos manualmente

Alguien me puede colaborar para que esto sea automatico? me podrian decir
si
me sirve esta instruccion o se puede utilizar otra ?

Hola KL aprovecho para hacer la consulta sobre el mismo tema.
Este codigo esta en la pagina de Fernando Arroyo

Sub EnviarRango()
Dim wbL As Workbook

Set wbL = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Hoja1").Range("A1:E20").Copy
Destination:=wbL.Worksheets(1).Range("A1")
wbL.SendMail Recipients:="direcció", Subject:="Envío de libro
Excel"
wbL.Close savechanges:=False
Set wbL = Nothing
End Sub

Ya probe con "direcció" & ";" & "direcció" pero no
funciona.
Gracias. Disculpen la molestia.


"KL" escribió en el mensaje
news:O$L5$

Hola Mauro,

Prueba esto:

Application.Dialogs(xlDialogSendMail).Show "",
"Requerimiento"

Tambien, si necesitas enviar el mensaje a varias direcciones, podrias

poner

las direcciones q quieras separandolas por punto y coma, p.ej:

Application.Dialogs(xlDialogSendMail).Show ";
", "Requerimiento"

o

Application.Dialogs(xlDialogSendMail).Show "" & "; " &
"", "Requerimiento"

Finalmente, para mas alternativas revisa este enlace:

http://www.rondebruin.nl/sendmail.htm

Saludos,
KL

"Mauro" wrote in message
news:
> Tengo una hoja de excel que trabaja con area de trabajo, en dicha hoja

los

> usarios deben llenar cierta informacion y debe ser enviada por correo
> (Outlook), para esto tengo un boton donde le asigne la siguiente macro

con

> el
> siguiente codigo :
>
> Application.Dialogs(xlDialogSendMail).Show ().
>
> Con esto quiero que en el encabezado del Para : me adicione la direccion
> electronica ()y en el Asunto : (Pueda dejar la palabra
> Requerimiento). Actualmente estos campos aparecen en blanco y el

usuario

> debe llenarlos manualmente
>
> Alguien me puede colaborar para que esto sea automatico? me podrian

decir

> si
> me sirve esta instruccion o se puede utilizar otra ?

Hola Fabian,

El truco con SendMail es q para multiples destinatarios tienes q usar rangos
o matrices veticales.

por ejemplo:

Sub EnviarRango()
Dim wbL As Workbook
Dim Destinatarios as Range
Destinatarios = ThisWorkbook.Worksheets("Hoja1").Range("E1:F1")
Set wbL = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Hoja1").Range("A1:E20").Copy _
Destination:=wbL.Worksheets(1).Range("A1")
wbL.SendMail Recipients:=Destinatarios, _
Subject:="EnvIo de libro Excel"
wbL.Close savechanges:=False
Set wbL = Nothing
End Sub

o bien

Sub EnviarRango()
Dim wbL As Workbook
Dim Destinatarios as Variant
Destinatarios = WorksheetFunction. _
Transpose(Array("direcció", "direcció"))
Set wbL = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Hoja1").Range("A1:E20").Copy _
Destination:=wbL.Worksheets(1).Range("A1")
wbL.SendMail Recipients:=Destinatarios, _
Subject:="EnvIo de libro Excel"
wbL.Close savechanges:=False
Set wbL = Nothing
End Sub

Saludos,
KL

"Fabian" wrote in message
news:eZoF%

Hola KL aprovecho para hacer la consulta sobre el mismo tema.
Este codigo esta en la pagina de Fernando Arroyo

Sub EnviarRango()
Dim wbL As Workbook

Set wbL = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Hoja1").Range("A1:E20").Copy
Destination:=wbL.Worksheets(1).Range("A1")
wbL.SendMail Recipients:="direcció", Subject:="Envío de libro
Excel"
wbL.Close savechanges:=False
Set wbL = Nothing
End Sub

Ya probe con "direcció" & ";" & "direcció" pero no
funciona.
Gracias. Disculpen la molestia.


"KL" escribió en el mensaje
news:O$L5$

Hola Mauro,

Prueba esto:

Application.Dialogs(xlDialogSendMail).Show "",
"Requerimiento"

Tambien, si necesitas enviar el mensaje a varias direcciones, podrias

poner

las direcciones q quieras separandolas por punto y coma, p.ej:

Application.Dialogs(xlDialogSendMail).Show ";
", "Requerimiento"

o

Application.Dialogs(xlDialogSendMail).Show "" & "; " &
"", "Requerimiento"

Finalmente, para mas alternativas revisa este enlace:

http://www.rondebruin.nl/sendmail.htm

Saludos,
KL

"Mauro" wrote in message
news:
> Tengo una hoja de excel que trabaja con area de trabajo, en dicha hoja

los

> usarios deben llenar cierta informacion y debe ser enviada por correo
> (Outlook), para esto tengo un boton donde le asigne la siguiente macro

con

> el
> siguiente codigo :
>
> Application.Dialogs(xlDialogSendMail).Show ().
>
> Con esto quiero que en el encabezado del Para : me adicione la
> direccion
> electronica ()y en el Asunto : (Pueda dejar la palabra
> Requerimiento). Actualmente estos campos aparecen en blanco y el

usuario

> debe llenarlos manualmente
>
> Alguien me puede colaborar para que esto sea automatico? me podrian

decir

> si
> me sirve esta instruccion o se puede utilizar otra ?

Hola Fabian,

Creo q el truco con SendMail es q para multiples destinatarios tienes q usar
rangos
o matrices veticales.

por ejemplo:

Sub EnviarRango()
Dim wbL As Workbook
Dim Destinatarios as Range
Destinatarios = ThisWorkbook.Worksheets("Hoja1").Range("E1:F1")
Set wbL = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Hoja1").Range("A1:E20").Copy _
Destination:=wbL.Worksheets(1).Range("A1")
wbL.SendMail Recipients:=Destinatarios, _
Subject:="EnvIo de libro Excel"
wbL.Close savechanges:=False
Set wbL = Nothing
End Sub

o bien

Sub EnviarRango()
Dim wbL As Workbook
Dim Destinatarios as Variant
Destinatarios = WorksheetFunction. _
Transpose(Array("direcció", "direcció"))
Set wbL = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Hoja1").Range("A1:E20").Copy _
Destination:=wbL.Worksheets(1).Range("A1")
wbL.SendMail Recipients:=Destinatarios, _
Subject:="EnvIo de libro Excel"
wbL.Close savechanges:=False
Set wbL = Nothing
End Sub

Saludos,
KL

"Fabian" wrote in message
news:eZoF%

Hola KL aprovecho para hacer la consulta sobre el mismo tema.
Este codigo esta en la pagina de Fernando Arroyo

Sub EnviarRango()
Dim wbL As Workbook

Set wbL = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Hoja1").Range("A1:E20").Copy
Destination:=wbL.Worksheets(1).Range("A1")
wbL.SendMail Recipients:="direcció", Subject:="Envío de libro
Excel"
wbL.Close savechanges:=False
Set wbL = Nothing
End Sub

Ya probe con "direcció" & ";" & "direcció" pero no
funciona.
Gracias. Disculpen la molestia.


"KL" escribió en el mensaje
news:O$L5$

Hola Mauro,

Prueba esto:

Application.Dialogs(xlDialogSendMail).Show "",
"Requerimiento"

Tambien, si necesitas enviar el mensaje a varias direcciones, podrias

poner

las direcciones q quieras separandolas por punto y coma, p.ej:

Application.Dialogs(xlDialogSendMail).Show ";
", "Requerimiento"

o

Application.Dialogs(xlDialogSendMail).Show "" & "; " &
"", "Requerimiento"

Finalmente, para mas alternativas revisa este enlace:

http://www.rondebruin.nl/sendmail.htm

Saludos,
KL

"Mauro" wrote in message
news:
> Tengo una hoja de excel que trabaja con area de trabajo, en dicha hoja

los

> usarios deben llenar cierta informacion y debe ser enviada por correo
> (Outlook), para esto tengo un boton donde le asigne la siguiente macro

con

> el
> siguiente codigo :
>
> Application.Dialogs(xlDialogSendMail).Show ().
>
> Con esto quiero que en el encabezado del Para : me adicione la
> direccion
> electronica ()y en el Asunto : (Pueda dejar la palabra
> Requerimiento). Actualmente estos campos aparecen en blanco y el

usuario

> debe llenarlos manualmente
>
> Alguien me puede colaborar para que esto sea automatico? me podrian

decir

> si
> me sirve esta instruccion o se puede utilizar otra ?

Gracias KL.
"KL" escribió en el mensaje
news:

Hola Fabian,

Creo q el truco con SendMail es q para multiples destinatarios tienes q

usar

rangos
o matrices veticales.

por ejemplo:

Sub EnviarRango()
Dim wbL As Workbook
Dim Destinatarios as Range
Destinatarios = ThisWorkbook.Worksheets("Hoja1").Range("E1:F1")
Set wbL = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Hoja1").Range("A1:E20").Copy _
Destination:=wbL.Worksheets(1).Range("A1")
wbL.SendMail Recipients:=Destinatarios, _
Subject:="EnvIo de libro Excel"
wbL.Close savechanges:=False
Set wbL = Nothing
End Sub

o bien

Sub EnviarRango()
Dim wbL As Workbook
Dim Destinatarios as Variant
Destinatarios = WorksheetFunction. _
Transpose(Array("direcció", "direcció"))
Set wbL = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets("Hoja1").Range("A1:E20").Copy _
Destination:=wbL.Worksheets(1).Range("A1")
wbL.SendMail Recipients:=Destinatarios, _
Subject:="EnvIo de libro Excel"
wbL.Close savechanges:=False
Set wbL = Nothing
End Sub

Saludos,
KL

"Fabian" wrote in message
news:eZoF%
> Hola KL aprovecho para hacer la consulta sobre el mismo tema.
> Este codigo esta en la pagina de Fernando Arroyo
>
> Sub EnviarRango()
> Dim wbL As Workbook
>
> Set wbL = Workbooks.Add(xlWBATWorksheet)
> ThisWorkbook.Worksheets("Hoja1").Range("A1:E20").Copy
> Destination:=wbL.Worksheets(1).Range("A1")
> wbL.SendMail Recipients:="direcció", Subject:="Envío de

libro

> Excel"
> wbL.Close savechanges:=False
> Set wbL = Nothing
> End Sub
>
> Ya probe con "direcció" & ";" & "direcció" pero no
> funciona.
> Gracias. Disculpen la molestia.
>
>
> "KL" escribió en el mensaje
> news:O$L5$
>> Hola Mauro,
>>
>> Prueba esto:
>>
>> Application.Dialogs(xlDialogSendMail).Show "",
>> "Requerimiento"
>>
>> Tambien, si necesitas enviar el mensaje a varias direcciones, podrias
> poner
>> las direcciones q quieras separandolas por punto y coma, p.ej:
>>
>> Application.Dialogs(xlDialogSendMail).Show ";
>> ", "Requerimiento"
>>
>> o
>>
>> Application.Dialogs(xlDialogSendMail).Show "" & "; " &
>> "", "Requerimiento"
>>
>> Finalmente, para mas alternativas revisa este enlace:
>>
>> http://www.rondebruin.nl/sendmail.htm
>>
>> Saludos,
>> KL
>>
>> "Mauro" wrote in message
>> news:
>> > Tengo una hoja de excel que trabaja con area de trabajo, en dicha

hoja

> los
>> > usarios deben llenar cierta informacion y debe ser enviada por correo
>> > (Outlook), para esto tengo un boton donde le asigne la siguiente

macro

> con
>> > el
>> > siguiente codigo :
>> >
>> > Application.Dialogs(xlDialogSendMail).Show ().
>> >
>> > Con esto quiero que en el encabezado del Para : me adicione la
>> > direccion
>> > electronica ()y en el Asunto : (Pueda dejar la palabra
>> > Requerimiento). Actualmente estos campos aparecen en blanco y el
> usuario
>> > debe llenarlos manualmente
>> >
>> > Alguien me puede colaborar para que esto sea automatico? me podrian
> decir
>> > si
>> > me sirve esta instruccion o se puede utilizar otra ?
>>
>>
>
>