Anexar Documento Email.

Tópicos sem resposta, sem retorno do autor... ou seja, o lugar deles é o buraco negro!

Anexar Documento Email.

Mensagempor carlosrgs » Qui Mar 09, 2017 5:13 pm

Boa tarde galera.

Copiei esse código na rede.

Código: Selecionar todos
Sub EnviarEmailViaNotes()
    Dim notesSession As Object
    Dim notesMailFile As Object
    Dim notesDocument As Object
    Dim notesField As Object
    Dim receptores(2) As Variant
       


    'Cria Uma lista de destinatários
    receptores(0) = Plan1.[C2]
   
    'Abre uma sessão do notes, abre a base de dados e cria um documento.
    Set notesSession = CreateObject("Notes.NotesSession")
    Set notesMailFile = notesSession.GetDataBase("", "names.nsf")  '- *.nsf = arq. com lista de contatos
    Set notesDocument = notesMailFile.CreateDocument
   
    'Configura Subject, SendTo e Abre um nomo corpo de e-mail
    Set notesField = notesDocument.AppendItemValue("Subject", "Email no Excel XD...")
    Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
    Set notesField = notesDocument.CreateRichTextItem("Body")
       
    'Escreve o texto padrão no e-mail.
    With notesField
        .AppendText Plan1.[C4]
        .AddNewLine (2)
        .AppendText Plan1.[C6]
        .AddNewLine (1)
        .AppendText Plan1.[C8]
        .AddNewLine (3)
'        .AppendText Cells(1, 1).Value   'aqui faz referencia a uma variável ou a uma parte da planilha
    End With
       
    'Envia o e-mail
    notesDocument.Send False
   
    'Limpa as variáveis
    Set notesSession = Nothing
    Set notesMailFile = Nothing
    Set notesDocument = Nothing
    Set notesField = Nothing
End Sub


Inicialmente funciona que é uma beleza aqui no sistema da Empresa IBM Notes, mas gostaria de anexar no email um arquivo.

Podemos utilizar como exemplo um txt que está na Pasta C:\relato

"C:\relato\ctbr190.##r"

Alguém manja dos paranaues ?

Obrigado!
Avatar do usuário
carlosrgs
Membro
Membro
 
Mensagens: 332
Registrado em: Qua Abr 15, 2015 1:30 pm
Has thanked: 70 times
Have thanks: 72 times

{ SO_SELECT }

Share on Facebook Facebook

Re: Anexar Documento Email.

Mensagempor danilobtos » Ter Mar 14, 2017 2:11 pm

Olá carlosrgs, tudo bem...

Com o caminho do arquivo a ser anexado "fixado" na linha de código, pode ser assim:
Código: Selecionar todos
.Attachments.Add ("c:/pasta/nome_do_arquivo.extensão")   



At;
Danilo.
Se a mensagem foi útil, favor Clicar na mãozinha.!!!
E se o seu problema foi resolvido, não esqueça de marcar o tópico como RESOLVIDO.!!!
danilobtos
Membro
Membro
 
Mensagens: 86
Registrado em: Sex Set 09, 2011 12:43 pm
Localização: São José do Rio Preto, SP
Has thanked: 14 times
Have thanks: 13 times

Re: Anexar Documento Email.

Mensagempor carlosrgs » Ter Mar 14, 2017 4:28 pm

Boa tarde, estou de ferias e não tenho acesso ao notes em casa.

Qdo retornar vou testar.

Obrigado!
Avatar do usuário
carlosrgs
Membro
Membro
 
Mensagens: 332
Registrado em: Qua Abr 15, 2015 1:30 pm
Has thanked: 70 times
Have thanks: 72 times

Re: Anexar Documento Email.

Mensagempor carlosrgs » Seg Abr 03, 2017 1:08 pm

Boa tarde Danilo.

Desculpe, eu testei de varias maneiras e não anexou.

Em que parte do código tenho que colocar o .Attachments.Add ("C:\relato\ctbr190.##r")

Obrigado!
Avatar do usuário
carlosrgs
Membro
Membro
 
Mensagens: 332
Registrado em: Qua Abr 15, 2015 1:30 pm
Has thanked: 70 times
Have thanks: 72 times

Re: Anexar Documento Email.

Mensagempor evilmaax » Seg Abr 03, 2017 2:26 pm

Aqui tem uma explicação bem detalhada, passo a passo.
Explica, inclusive, a questão dos anexos

http://www.aprenderexcel.com.br/2017/vb ... pelo-excel
evilmaax
Membro
Membro
 
Mensagens: 46
Registrado em: Qua Jun 24, 2015 2:14 pm
Has thanked: 11 times
Have thanks: 0 time

Re: Anexar Documento Email.

Mensagempor carlosrgs » Qui Abr 06, 2017 4:04 pm

Valeu a tentativa, mas não da certo, ele depura independente de onde eu incluir o AddAttachment.

Obrigado!
Avatar do usuário
carlosrgs
Membro
Membro
 
Mensagens: 332
Registrado em: Qua Abr 15, 2015 1:30 pm
Has thanked: 70 times
Have thanks: 72 times


Voltar para Buraco Negro

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante