Cómo usar una macro de Excel para enviar correos electrónicos sin usar Outlook

Hay muchas razones para enviar correo desde una macro de Excel. Por ejemplo, cuando una suma de ventas alcanza cierto valor, un gerente puede querer saberlo de inmediato. Si bien hay algunas formas de enviar correo electrónico desde una macro de Excel, el método más utilizado es aprovechar Outlook. Eso es un problema si no tiene Outlook instalado en la computadora que está usando para abrir la hoja de cálculo. En ese caso, puede usar CDO, que significa Collaboration Data Object, en su lugar.

Paso 1

Presiona "Alt" y "F11" al mismo tiempo desde la hoja de cálculo de Excel para abrir el editor integrado de Visual Basic.

Paso 2

Copie y pegue el siguiente código en la ventana de código en blanco:Sub CDO_Mail_Small_Text() Dim iMsg As Object Dim iConf As Object Dim strbody As String ' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

.Item("http://schemas.Microsoft.com/cdo/configuration/sendusing") =2 ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserver") _ ' ="Rellenar en su servidor SMTP aquí" ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserverport") =25 ' .Update ' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
 "This is line 1" & vbNewLine & _
 "This is line 2" & vbNewLine & _
 "This is line 3" & vbNewLine & _
 "This is line 4"

With iMsg
 Set .Configuration = iConf
 .To = "person@email.com"
 .CC = ""
 .BCC = ""
 .From = """Person"" < person@email.com >"
 .Subject = "Subject Line"
 .TextBody = strbody
 .Send
End With

Finalizar sub

Paso 3

Reemplace "Rellene aquí su servidor SMTP" con la dirección del servidor SMTP que desea utilizar.

Paso 4

Presione "F5" para ejecutar la macro y enviar su mensaje de correo electrónico.

Consejo

Si no tiene uno propio, Google proporciona un servidor SMTP (http://gmail.google.com) que puede usar de forma gratuita.