Como usar uma macro do Excel para e-mail sem usar o Outlook

isto`s possible to send email from Excel without calling up Outlook.

Há muitas razões para enviar correio a partir de uma macro do Excel. Por exemplo, quando uma soma de vendas atinge um determinado valor, um gerente pode querer saber de imediato. Enquanto existem algumas maneiras de enviar e-mail a partir de uma macro Excel, o método mais comumente utilizado é aproveitar Outlook. Isso é um problema se você não tiver o Outlook instalado no computador que você está usando para abrir a planilha. Nesse caso, você pode usar CDO, que está para Collaboration Data Object, em vez disso.

pressione "Alt" e "F11" ao mesmo tempo a partir da folha de cálculo Excel para abrir o editor do Visual Basic embutido.

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
strbody Dim As String
`Dim Flds As Variant
Definir IMsg = CreateObject ("CDO.Message")
Definir iConf = CreateObject ("CDO.Configuration")

.Item("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

`.Item("https://schemas.microsoft.com/cdo/configuration/smtpserver") _
`= "Preencha o seu servidor SMTP aqui"
`.Item("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
`.Atualizar
`End Withstrbody = "Olá" &Amp- vbNewLine &Amp- vbNewLine &Amp- _
"Esta é a linha 1" &Amp- vbNewLine &Amp- _
"Esta é a linha 2" &Amp- vbNewLine &Amp- _
"Esta é a linha 3" &Amp- vbNewLine &Amp- _
"Esta é a linha 4"
com IMsg
Definir .Configuration = iConf
.para = "[email protected]"
.CC = ""
.BCC = ""
.De = """Pessoa"" lt; [email protected] gt;"
.Assunto = "Linha de assunto"
.TextBody = strbody
.Enviar
End With

End Sub

Substituir "Preencha o seu servidor SMTP aqui" com o endereço do servidor SMTP que você deseja usar.
pressione "F5" para executar a macro e envie sua mensagem de e-mail.

dicas & avisos

Se você não tiver o seu próprio, o Google fornece um servidor SMTP (https://gmail.google.com) que você pode usar gratuitamente.

De esta maneira? Compartilhar em redes sociais: