Enviar correo desde Excel

Que tal, he colocado un botón en la hoja de una planilla de cálculo, cuyo fin era enviar un aviso a otro usuario por medio de correo electrónico. Pero el Excel no me deja grabar la macro con: Enviar a ...
Luego probé con: Application.ActiveWorkbook.SendMail...
Pero ésta úlitma me envía el archivo adjunto.
¿Se puede sacar esta opción del archivo adjunto?
¿Hay alguna manera más flexible de manejar el envío de correos mediante Excel?
Gracias.

1 respuesta

1
Respuesta de
Hola, TDM!
Asóciale a ese botón el siguiente código:
Sub Send_Msg()
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = "tdm252@hotmail.com" ' cambia al destinatario de correo que desees
.Subject = "Aquí coloca el título de tu mensaje"
.Body = "Aqui coloca el mensaje que quieres que aparezca"
' .Display 'muestra mensaje
.Send
End With
Set objMail = Nothing
Set objOL = Nothing
MsgBox "Mail enviado"
End Sub
También podrías tomar el nombre de alguna celda de la planilla si es que este cambiara con alguna frecuencia.
Importante: Para que este código funcione, debe estar instalada la biblioteca de Outlook.
Dentro del Editor de Visual Basic, haz click en "Herramientas" | "Referencias"; busca y marca (si no lo estuviera) la biblioteca "Microsoft Outlook Object Library"
Esto debería resolver tu pregunta. Si así fuera, agradeceré un comentario y que la finalices.
Si no, pregúntame de nuevo.
Un abrazo!
Fernando
*====================================*
La presente respuesta ha demandado un tiempo de lectura,
análisis, elaboración y redacción. A cambio, simplemente,
pretendo que te tomes un minuto para FINALIZARLA, si
hubiera satisfecho -en alguna medida- tu requerimiento.
(Considera que la valoración que figura predeterminada
es 3/5. Tal vez quieras cambiarla...)
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó. Gracias...
*====================================*
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje