link a enviar por correo

El viernes, 15 de junio de 2012 17:19:00 UTC+1, lampev escribió:

¡ Hola !
Quiero crear una hoja excel donde mis clientes puedan dar a un botón y de
forma automatica genere un correo electrónico.
eso se puede hacer si recurrir a programación???

Gracias,

Hola

Si fuera un email estandar, siempre el mismo para todo el mundo se podría crear una plantilla con Outlook y llamar esta plantilla desde un Hipervinculo en Excel, pero imagino que quieres incluir información de la hoja de excel dentro del email, ¿no? Que el email será distinto cada vez, distinto destinatario, distinto asunto, etc... de acuerdo al contenido de la hoja. Entonces No, no se puede hacer sin una macro :/

Pero hay macros relativamente sencillas para hacer esto. Yo utilizo este recurso a menudo, déjame que busque un ejemplo y lo cuelgo aquí ;-)

Saludos
Pedro

El viernes, 15 de junio de 2012 20:14:26 UTC+1, Pedro F. Pardo escribió:

El viernes, 15 de junio de 2012 17:19:00 UTC+1, lampev escribió:
> ¡ Hola !
> Quiero crear una hoja excel donde mis clientes puedan dar a un botón y de
> forma automatica genere un correo electrónico.
> eso se puede hacer si recurrir a programación???
>
> Gracias,

Hola

Si fuera un email estandar, siempre el mismo para todo el mundo se podría crear una plantilla con Outlook y llamar esta plantilla desde un Hipervinculo en Excel, pero imagino que quieres incluir información de la hoja de excel dentro del email, ¿no? Que el email será distinto cada vez, distinto destinatario, distinto asunto, etc... de acuerdo al contenido de la hoja. Entonces No, no se puede hacer sin una macro :/

Pero hay macros relativamente sencillas para hacer esto. Yo utilizo este recurso a menudo, déjame que busque un ejemplo y lo cuelgo aquí ;-)

Saludos
Pedro

Aquí copio una macro sencilla que envía un email utilizando Outlook desde excel.


Private Sub enviar_email()
Dim olApp As Outlook.Application
Dim olMail As MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)


strbody = "<B>Hola,</B><BR><BR>" & _
"Esto es un email de ejemplo.<br>" & _
"Se escribe con formato HTML.<br> BR entre corchetes indica un salto de línea.<br><br>Saludos,<br>"

With olMail
.To = Range("A2").Value
.CC = Range("B2").Value
.Subject = "Mail de ejemplo: " & Range("C2").Value
.HTMLBody = strbody
'.Attachments.Add "C:\fichero de prueba 1.txt"
'.Attachments.Add "C:\fichero de prueba 2.xls"
.Display '.Send
End With

Set olMail = Nothing
Set olApp = Nothing
End Sub

El viernes, 15 de junio de 2012 13:19:00 UTC-3, lampev escribió:

¡ Hola !
Quiero crear una hoja excel donde mis clientes puedan dar a un botón y de
forma automatica genere un correo electrónico.
eso se puede hacer si recurrir a programación???

Gracias,

Hola...
Creo que no hace falta habilitar un Boton, basta con que pongas la direccion del mail en cualquier celda, y hacer click en ella
Por ejemplo, escribiendo esta direccion en la Celda A3

Cuando hagamos click sobre ella se generara el correo cuyo destinatario sera jjgghh