Há muitos motivos para enviar emails de uma macro do Excel. Por exemplo, quando uma soma de vendas atinge um determinado valor, um gerente pode querer saber imediatamente. Embora existam algumas maneiras de enviar e-mail de uma macro do Excel, o método mais usado é aproveitar o Outlook. Isso é um problema se você não tiver o Outlook instalado no computador que está usando para abrir a planilha. Nesse caso, você pode usar CDO, que significa Collaboration Data Object.
Etapa 1
Pressione “Alt” e “F11″ ao mesmo tempo na planilha do Excel para abrir o editor interno do Visual Basic.
Etapa 2
Copie e cole o seguinte código na janela de código em branco: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") _ ' ="Preencher em seu servidor SMTP aqui" ' .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
Etapa 3
Substitua "Preencha seu servidor SMTP aqui" pelo endereço do servidor SMTP que você deseja usar.
Etapa 4
Pressione “F5″ para executar a macro e enviar sua mensagem de e-mail.
Dica
Se você não tiver o seu próprio, o Google fornece um servidor SMTP (http://gmail.google.com) que você pode usar gratuitamente.
