none
Enviar e-mail por Excel RRS feed

  • Pergunta

  • Prezados; Tenho um modelo de planilha anexa e necessito enviar o e-amil ao fornecedor quando o status estiver "Fora do Prazo " solicitando um posicionamento a respeito dos ítens em atraso.Quém puder me ajudar, obsequio encaminhar o e-mail para que eu possa enviar a planilha modelo. Obrigado a todos; Cosme
    terça-feira, 20 de setembro de 2011 14:52

Respostas

  • Boa Tarde

     

    Este exemplo cria um copia de sua sheet ativa

    e envia a msm como anexo.

     

    de uma olhada se te atende.

     

    Public Function Envio_Email()

        Worksheets("Sua Plan").Copy
        ActiveWorkbook.SaveAs "Sua Plan " & ".xls"
        ActiveWorkbook.SendMail "", _
            "" 'Primeira aspa destinatário. Segunda Assunto
        ActiveWorkbook.ChangeFileAccess xlReadOnly
        Kill ActiveWorkbook.FullName
        ActiveWorkbook.Close False

    End Function

     

    terça-feira, 20 de setembro de 2011 16:08