SendNotesMail_Text

'Envia email atraves de uma planilha que deve ter as colunas na seguinte ordem.
'Coluna A | Coluna B | Coluna C | Coluna D | Coluna E | Coluna F | Coluna G
'matricula | Nome     | email       |  valor 1    |  valor 2   |  valor 3    |  valor 4    

Sub EnviaLista()
 Dim recep, nome, v1, v2, v3, v4 As String
 
 Dim i As Integer
 'i = 2
 
 For i = 2 To 62
    recep = Cells(i, 3).Value
    nome = Cells(i, 2).Value
    v1 = Cells(i, 4).Value
    v2 = Cells(i, 5).Value
    v3 = Cells(i, 6).Value
    v4 = Cells(i, 7).Value
    Call EnviarEmailViaNotes(recep, nome, v1, v2, v3, v4)
Next

End Sub

Sub EnviarEmailViaNotes(receptor, nome, v1, v2, v3, v4)
    Dim notesSession As Object
    Dim notesMailFile As Object
    Dim notesDocument As Object
    Dim notesField As Object
        
    'Cria Uma lista de destinatários
    'receptor = Cells(1, 3).Value
    
    '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", "Comunicado ao Empregado")
    Set notesField = notesDocument.AppendItemValue("SendTo", receptor)
    Set notesField = notesDocument.AppendItemValue("Principal", "Folha de Pagamento<xxxx@email.com.br>")
    Set notesField = notesDocument.AppendItemValue("From", "Folha de Pagamento")
    
    Set notesField = notesDocument.CreateRichTextItem("Body")
        
    'Escreve o texto padrão no e-mail.
    With notesField
        .AppendText "Prezado, "
        .AppendText CStr(nome)
        .AddNewLine (2)
        .AppendText "Vim só testar"
        .AddNewLine
        .AppendText "V1 de "
        .AppendText Format(v1, "Currency")
        .AddNewLine
        .AppendText "V2 de "
        .AppendText Format(v2, "Currency")
        .AddNewLine
        .AppendText "V3 de "
        .AppendText Format(v3, "Currency")
        .AddNewLine
        .AppendText "V4 de "
        .AppendText Format(v4, "Currency")
    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