Como enviar Objeto de uma Pasta por email

[#1]

Boa noite galera!
Como faço para enviar determinado objeto de um painel por email, tipo... enviar umas das tabelas dinâmicas que estou usando na minha pasta, no formato excel, para um determinado email?

Desde já agradeço!

Pablo

[#2]

Do you mean via a Distribution or what client do you use?

[#3]

Quero que, após a recarga diária, ele envie automaticamente uma de minhas tabelas para um determinado Email.
Ou então, colocar um botão na pasta para o usuário clicar e enviar esse conteúdo para um determinado email.

[Bill_Britt]

Hi Pablo,

If you are using publisher you can email a QVW to a user. However, it will email it to all users that you are distributing the qvw to. This can't be done with server reloads.

Bill

[#5]

E como faço isso?
Via Macro?
Estou tentando enviar no clique de um botão, chamando uma Macro, mas não consigo.
Segue o código que estou usando:

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") = "smtp.masterboi.com.br"

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

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

  msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "pablo.gouveia"

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

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

  msgConf.Fields.Update

  'End With

  objMsg.To =  "pablo.gouveia@masterboi.com.br"

  objMsg.From = "pablo.gouveia@masterboi.com.br"

  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

Mas sempre para em: "objMsg.Send". Para ai e não envia nada.

[#6]

Amigo, caso ainda não tenha sua resposta, verifique a linha:

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

Mude o 587 para 465, ao menos esta configuração funciona com smtp do google.

ou então:

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") = "smtp.gmail.com" 'exemplo com gmail

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

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

  msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email@gmail.com"

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

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

  msgConf.Fields.Update

  'End With

  objMsg.To =   "email-to@gmail.com"

  objMsg.From = "email-from@gmail.com"

  objMsg.Subject = "Título"

  objMsg.HTMLBody = "Mensagem teste e-mail"

  objMsg.Sender = "Sr. Aécio 45"

  Set objMsg.Configuration = msgConf

  objMsg.Send

  Set objMsg = nothing

  Set msgConf = nothing

end sub

[ecolomer]

Here you have an macro