Há muitas razões para enviar correio electrónico a partir de uma macro do Excel . Por exemplo, quando a soma de vendas chega a um determinado valor, um gerente pode querer saber de imediato. Enquanto existem algumas maneiras de enviar e-mail a partir de uma macro do 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 o CDO , que significa objeto de dados de colaboração , em vez disso. Instruções
1

Pressione " Alt " e " F11 ", ao mesmo tempo a partir da planilha do Excel para abrir o built-in editor de Visual Basic.
2

Copie e cole o seguinte código na janela de código em branco : Sub CDO_Mail_Small_Text () Dim IMsg Como ObjectDim iConf Como ObjectDim strbody as String ' Dim Flds as Variant

Set IMsg = CreateObject (" CDO.Message " ) Definir iConf = = 2 '. Item (" http://schemas.microsoft.com/cdo/configuration/smtpserver " ) _' = " Preencha o seu servidor SMTP aqui " . Item (" http://schemas.microsoft.com/cdo /configuração /SMTPServerPort ") = 25 ' . Update' End With

strbody =" Olá "& vbNewLine & vbNewLine & _" Esta é a linha 1 "& vbNewLine & _" Este é a linha 2 "& vbNewLine & _" Esta é a linha 3 "& vbNewLine & _" Esta é a linha 4 "

Com iMsgSet . Configuration = iConf.To =" person@email.com " . CC = "" . BCC = "" . From = "" " Pessoa " " ." Subject = " linha de assunto " . TextBody = strbody.SendEnd Com

Fim
Sub
3

Substituir " Preencha o seu servidor SMTP aqui " com o endereço do servidor SMTP que você deseja usar .
4

Pressione " F5" para executar a macro e enviar sua mensagem de e-mail .