3 Replies Latest reply: Aug 6, 2014 11:22 AM by rodrigo silvestre RSS

    Macro envio Email

    rodrigo silvestre

      Boa tarde pessoal,

       

      peguei uma macro esses tempo aqui na community para envio de e-mails, funciono perfeitamente como eu queria pelo desktop, mas agora estou tentando executa-la no servidor e não esta dando certo.. Alguém poderia me dizer se ta faltando alguma coisa?

       

       

      sub TesteEmail

       

      Set objMsg = CreateObject("CDO.Message")

      Set msgConf = CreateObject("CDO.Configuration")

       

        'Server Configuration

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ' (stmp.server.local)

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' (porta é essa mesmo)

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0  ' (não tem autenticação de Usuário e senha no servidor)

       

       

      'End With

        objMsg.To =  ' email

        objMsg.From = ' email

        objMsg.Subject = "teste titulo"

        objMsg.HTMLBody = "teste e-mail server"

        objMsg.Sender = "Mr. Name"

       

        Set objMsg.Configuration = msgConf

        objMsg.Send

       

        Set objMsg = nothing

        Set msgConf = nothing

       

       

      end sub