Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

A área de Remoção de Malwares está aberta na Comunidade BABOO. LEIA AQUI

Ir para conteúdo
PAULO CEZAR

Anexar com vbscript

Mensagem Recomendada

Galera,

Estou entrando num terreno que não conheço nada, que é VBScript. É o seguinte, estou querendo enviar um email pelo script do Windows (eu acho) com um anexo, conforme mostro a seguir:

.............................................................................................................................................................................................................................................................................................................................................................................................................

'Development By Startmundo
Set objOL = CreateObject("Outlook.Application")

Set myNameSpace = objol.GetNameSpace("MAPI")

Set objMail = objOL.createItem(0)
With objmail
.Subject = "Envio de Trafos Queimados"
.To = "paulocezar@eletrobraspiaui.com"
.Attachments.add("c:\TRAFOS SUBSTITUIDOS\TRAFOS\" & c:\TRAFOS SUBSTITUIDOS\TRAFOS\Cadastramento e Envio de TRAFOS Substituidos\ & Sheets("Formulario").Range("T74").Value & .pdf)   
.Body = "Caro Paulo Cézar," & vbCrLf & " " & vbCrLf & "Em anexo estamos enviando ficha de trafo queimado" & vbCrLf & vbCrLf & vbCrLf &"Atenciosamente Eletricista"
.Send

End with

..........................................................................................................................................................................................................................................................................................................................................................................................................

Explico: Esse trecho em vermelho: ("c:\TRAFOS SUBSTITUIDOS\TRAFOS\" é o caminho onde se encontra o arquivo que quero anexar/enviar;

E esse trecho em azul: c:\TRAFOS SUBSTITUIDOS\TRAFOS\Cadastramento e Envio de TRAFOS Substituidos\ & Sheets("Formulario").Range("T74").Value & .pdf) é onde vou pegar o nome do arquivo recem gerado. 

Espero ter sido claro o suficiente e que vocês possam me ajudarem. 

De já meus agradecimentos a todos do fórum.

 

Paulo Cezar.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...