none
Envio de email via Script RRS feed

  • Pergunta

  •  

    Bom dia PessoALL,

     

    é o seguinte preciso pegar um arquivo gerado de um log e enviar por email. Estu rodando em um servidor com o W2K3 SP2 + SQL + MOSS

    procurei na internet e encontrei varios tipos, contudo nenhum deles funcionou corretamente.

    vejam os ex. abaixo:

    Exemplo1.

    Code Snippet

    strFrom = "fabio.oliveira-getronics@americas.ing.com"
    strTo = "fabio.oliveira-getronics@americas.ing.com"
    strSubject = "Here are the results from the script!"
    strSMTPServer = "Server"
    strResultsFile = "c:\bkp\SharePoint_backup.log"

    set objFSO = CreateObject("Scripting.FileSystemObject")
    set objFile = objFSO.OpenTextFile(strResultsFile, 1, true)

    strReadFile = objFile.ReadAll

    Set objEmail = CreateObject("CDO.Message")


    objEmail.From = strFrom
    objEmail.To = strTo
    objEmail.Subject = strSubject
    objEmail.Textbody = strReadFile
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Send

     

    strFrom = Nothing
    strTo = Nothing
    strSubject = Nothing
    strSMTPServer = Nothing
    strResultsFile = Nothing

    strReadFile = Nothing

     

    No exemplo1 recebo a msg de erro:

    Script: C:\teste.vbs

    Line: 19

    Char: 1

    Error: Error in Loading DLL 'ObjEmail.configuration.Fields'

    Code: 800A0030

    Source: MS VBScript runtime error

     

    Achei alguns sites falando para registrar a DLL CDOSYS.DLL. registrei a DLL e o mesmo erro continua, contudo na minha estação com o Windows XP roda normalmente

    Alguem tem alguma dica de como rodar este script no meu servidor?

     

    grato,

    quarta-feira, 27 de agosto de 2008 12:47

Respostas

  • Boa Noite,

    Usando o Framework (System.Net.Mail) para envio dos emails com o Power Shell.
    
    #* ================================================================
    #* r22ko SMTP Mail Sender
    #* Desenvolvido por Roberson Afonso Naves <robersonnaves@gmail.com>
    #* ================================================================
    
    $servidor = "smtp.somassey.com.br";
    $conta = "relatorios@somassey.com.br";
    $senha = "BlaBlaBla";
    $diretorio = "C:\Teste";
    $extencao = "*.pdf";
    $assunto = "AUTO Relatórios Diários";
    $corpo = "Este email foi enviado automaticamente. Por favor, não o responda.`n`nImplementado por Roberson A Naves - Dpto Tecnologia da Informação - 19 3656 9432";
    $destinatarios = "roberson@somassey.com.br;robersonnaves@gmail.com"
    
    $email = New-Object System.Net.Mail.MailMessage;
    $email.From = New-Object System.Net.Mail.MailAddress("relatorios@somassey.com.br","Relatórios Gerenciais SOMASSEY");
    
    #Processa os destinatários do email
    $pdest = $destinatarios.Split(";");
    foreach ($dest in $pdest){
     $email.To.Add($dest);
    }
    
    Abs

    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    domingo, 3 de junho de 2012 21:54
    Moderador