Font Size

Profile

Menu Style

Cpanel

18Novembro2017

MS Office Gurus

Onde os desenvolvedores Office se encontram

  • Criar conta
    *
    *
    *
    *
    *
    *

    Campos marcados com asterisco (*) são obrigatórios.

Mensagem
  • Kunena is not installed or the installed Kunena version is not supported. The plug-in has now been disabled. Please install/upgrade Kunena to version 1.7 for the Kunena Discuss Plug-in to function properly.

Windows XP, Vista e Windows 7 e o Servidor SMTP

Este artigo servirá como respositório para muitos clientes nossos que questionam o problema com o envio de e-mail, utilizando o servidor SMTP do Windows XP, ensinado em nosso curso sobre formulários no Excel 2003.

O código utilizado continua válido; porém, por um lado, o servidor SMTP não consegue enviar a mensagem no Windows XP e, por outro  as pessoas não encontram o servidor SMTP nos extras do Windows Vista e 7. No primeiro caso, o Windows XP não consegue enviar porque a porta padrão para envio de e-mail (porta 25) é bloqueada pela maioria dos provedores de Internet (mesmo que o servidor teste OK para o serviço é provável que range de IP de seu servidor esteja bloqueado). Por esta mesma razão o Windows Vista/7 não possui tal servidor, pois ele é inútil neste cenário.

Mas qual a razão para o bloqueio da porta 25? A principal razão está relacionada ao spam. Muitas máquinas com servidores SMTP eram "sequestradas" e viravam fonte quase inesgotável para envio de e-mails advindos dos piratas virtuais. Na onda do bloqueio, veio o serviço pago de envio em massa de e-mails. Em outras palavras, spam virou negócio da China para muitos ISPs que cobram pelo envio em massa e chama tais serviços de e-mail marketing.

A "linha fina" que muitos falam sobre "e-mail marketing" e "spam" está muito mais relacionado a que lado da inequação você se encontra porque certamente, como porta 25 aberta ou fechada, nós não temos uma equação onde ambos os lados, quando resolvidos, são iguais.

Em um grande provedor brasileiro, o custo para envio é exibido abaixo:


Figura 1: Custo de envio de e-mail marketing

No passado, usar o servidor SMTP do Windows XP tirava o ônus dos pequenos empresários que podiam utilizar tal ferramenta para contatar seus clientes. Os spammers abusaram do serviço e os ISPs (Internet Service Providers - Provedores de Serviço de Internet) acharam um novo nicho onde cobram caro pelo serviço.

Levando em conta que somente o tráfego do proprio servidor SMTP será aceito e assumindo que você possui o serviço, você pode proceder como segue para enviar seus e-mails utilizando VBA:

Sub CDOTest_OnVista()
    Dim oCDO                    As Object
    Dim oCDOConfig              As Object
  
    Const c_sUsername           As String = "Seu_Nome_de_Usuário"
    Const c_sPassword           As String = "Sua_Senha"
  
'   Se voce usa o localhost, defina a pasta de pickup. Por padrao temos: "C:\inetpub\mailroot\Pickup"
    Const c_sPickupFolder       As String = "C:\inetpub\mailroot\Pickup"
    Const c_iSMPTPort           As Integer = 25

  
    Dim iSendUsing              As Integer
    Dim sSMPTServerName         As String
  
   iSendUsing = 2      'remote host
'   iSendUsing = 1      'localhost

'   Defina o servidor SMTP aqui. "localhost" para servidor local
'   No exemplo, use seu servidor.
'   sSMPTServerName = "localhost"
    sSMPTServerName = "Seu_servidor_SMTP" 'e.g.: smtp.nome_do_site.com.br
  
    Set oCDO = CreateObject("CDO.Message")
    Set oCDOConfig = CreateObject("CDO.Configuration")
  
    With oCDOConfig.fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = iSendUsing
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sSMPTServerName
        .Item("http://schemas.microsoft.com/cdo/configuration/username") = c_sUsername
        .Item("http://schemas.microsoft.com/cdo/configuration/password") = c_sPassword
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = c_iSMPTPort
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = c_sPickupFolder
    End With

    With oCDO
        Set .Configuration = oCDOConfig
            .From = O endereço de e-mail address está sendo protegido de spambots. Você precisa ativar o JavaScript enabled para vê-lo.
            .To = O endereço de e-mail address está sendo protegido de spambots. Você precisa ativar o JavaScript enabled para vê-lo.
            .Subject = "Mensagem de teste"
            .Configuration.fields.Update
            .Send
    End With
  
    Set oCDOConfig = Nothing
    Set oCDO = Nothing
  
End Sub