Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
rizzatto

Macro email lotus notes

Recommended Posts

Boa Tarde Galera,

Tenho o código a baixo, para enviar um e-mail com Lotus Notes pelo Excel .

Entretanto, preciso ajustar ainda:

1 - Quero formatar o corpo do e-mail (Colorir algumas palavras), ou encaminhar o texto copiado do excel como imagem no corpo do e-mail.

 

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) = "gabriel.rizzatto@portoseguro.com.br"
    receptores(1) = ""
    
    '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", "Teste de Envio via Excel...")
    Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
    Set notesField = notesDocument.CreateRichTextItem("Body")
        
    'Escreve o texto padrão no e-mail.
    With notesField
        .AddNewLine (1)
        .AppendText .Range("B3:L25").Select
        
        
        .AddNewLine (2)
        .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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×