COMO ENVIAR ARQUIVOS PRA EMAIL ?

USUARIO.EXCLUIDOS 20/11/2006 21:51:14
#185464
a tempo procure materiais sobre esses assuntos, porem comigo as opções encontradas nao funcionou, alguem sabe algum link que possa me ajudar ?

obrigado
USUARIO.EXCLUIDOS 20/11/2006 23:23:25
#185476 Resposta escolhida
Cara, procure por CDOSYS no próprio google.

Eu sempre aconselho esta dll para se trabalhar com E-mail.
é muito boa mesmo!

Se não me engano aqui no site vc tb encontra algo.
USUARIO.EXCLUIDOS 21/11/2006 19:46:23
#185646
Veja se este Código(VB-Excel) que fiz te atende:
* ENVIAR E-MAIL
Sub Enviar()
Dim VAROUTLOOK, VARMAPINAME, VARSLICE
Set VAROUTLOOK = CreateObject("Outlook.Application")
Set VARSLICE = VAROUTLOOK.CreateItem(0)
VARSLICE.Recipients.Add "OLIVEIRA, MARCELO RAMALHO"
VARSLICE.Recipients.Add "JUNIOR, ALMIR PIRES DOS SANTOS"
   VARSLICE.Subject = "TESTE EMAIL"
   VARSLICE.Body = "Segue em anexo o resultado do Script para obtenção dos Status (Função 263)."
   VARSLICE.Attachments.Add ActiveWorkbook.FullName
   VARSLICE.Send
    
End Sub


Qualquer dúvida, é só entrar em contato!
USUARIO.EXCLUIDOS 21/11/2006 20:11:25
#185652
ainda to testando oque o marcelo disse, porem fica dando object required, alguem sabe oque eh ? ja addei a dll mas continua dando isto, se puderem ajudar dinovo, valew
USUARIO.EXCLUIDOS 22/11/2006 12:08:39
#185760
Este meu Código não precisa de DLL...
USUARIO.EXCLUIDOS 22/11/2006 14:26:29
#185789
o problema e que nao entendi nada dele, onde poe o email pra destinatario e remetente ? a url do file ? vlw pela ajuda
USUARIO.EXCLUIDOS 22/11/2006 14:52:12
#185797
Cara... olha o exemplo usando CDOSYS...

é muitoooo simples

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=5432&TxtSearch=mail&CmbSort=&varPagina=1


Qualquer coisa só perguntar... sem segredo cara, da uma olhada lá..
USUARIO.EXCLUIDOS 22/11/2006 16:35:46
#185822
muito obrigado a vcs pela ajuda, funciono certinho e realmente é um otimo componente, trata os erros muito bem...brigadao ae

até +

procurei tanto pra tao pouca simplicidade xD valew, fui
USUARIO.EXCLUIDOS 22/11/2006 16:39:55
#185823
Simples amigão!
"email pra destinatario" = VARSLICE.Recipients.Add "fulano@vbmania.com.br"
email pra "remetente" = Será o q está Configurado como Padrão no Outlook
Para anexar arquivos = VARSLICE.Attachments.Add ActiveWorkbook.FullName

Blz?
Tópico encerrado , respostas não são mais permitidas
Voltar