Hay un montón de razones para enviar correo desde una macro de Excel. Por ejemplo, cuando una cantidad de ventas alcanza un determinado valor, un administrador puede querer saber de inmediato. Si bien hay algunas maneras de enviar correo electrónico desde una macro de Excel , el método más utilizado es el de aprovechar Outlook. Eso es un problema si usted no tiene Outlook instalado en el equipo que está utilizando para abrir la hoja de cálculo. En ese caso , puede utilizar CDO , que significa la colaboración objeto de datos , en su lugar. Instrucciones
1

Pulse " Alt " y "F11 " al mismo tiempo de la hoja de cálculo Excel para abrir el built -in editor de Visual Basic .
2

Copiar y pegar el siguiente código en la ventana de código en blanco : Sub CDO_Mail_Small_Text () IMSG As ObjectDim iConf Como ObjectDim strBody Como Flds Dim cadena ' As Variant

Set IMSG = CreateObject ( " CDO.Message ") Set iConf = = 2 ' . Artículo ( " http://schemas.microsoft.com/cdo/configuration/smtpserver ") _ " =" Introduzca el servidor SMTP aquí " . Artículo ( " http://schemas.microsoft.com/CDO /configuración /SMTPServerPort ") = 25 ' . Actualizar' End Con

strBody =" Hola "& vbNewLine y vbNewLine & _ " Esta es la línea 1 " y vbNewLine & _ " Este es la línea 2 "y vbNewLine & _ " Esta es la línea de 3 "y vbNewLine & _ " "Configuración

iMsgSet . = iConf.To =" Esta es la línea 4 person@email.com " . CC = "" . BCC = "" . De = " ", " persona " "< person@email.com > ." Subject = " Línea de asunto " . TextBody = strbody.SendEnd Con

End Sub
3

Reemplazar " Rellene el servidor SMTP aquí " con la dirección del servidor SMTP que desea utilizar .
4

Press "F5 " para ejecutar la macro y envía su mensaje de correo electrónico.