Solved: Using Excel To Send Emails Through Lotus Notes

[joee74]

Sub SendQuoteToEmail()
    
    Dim NSession As Object
    Dim NDatabase As Object
    Dim NUIWorkSpace As Object
    Dim NDoc As Object
    Dim NUIdoc As Object
    Dim WordApp As Object
    Dim subject As String
    Dim EmailAddress As String
        
            subject = Worksheets("Internal").Range("BD1")
            EmailAddress = Worksheets("Internal").Range("BD2")
    Debug.Print subject
    
    Set NSession = CreateObject("Notes.NotesSession")
    Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace")
    Set NDatabase = NSession.GetDatabase("", "")
    If Not NDatabase.IsOpen Then NDatabase.OPENMAIL
    
   Set NDoc = NDatabase.CreateDocument
    
    With NDoc
        .SendTo = EmailAddress
        .CopyTo = "digitalprint@zcard.com"
        .subject = subject
        
        .body = "Dear" & " " & Worksheets("internal").Range("j10") & vbLf & vbLf & _
            "Many Thanks for your enquiry" & vbLf & vbLf & _
            "Please find Attached your Quotation" & vbLf & vbLf & _
            "If you would like to go ahead with this order, please let  me know and I will send you a template, artwork guidelines and  procedures for processing your order."
        
        .Save True, False
    End With
    
    Set NUIdoc = NUIWorkSpace.EDITDocument(True, NDoc)
    With NUIdoc
    
   Set WordApp = Nothing
       End With
    
    Set NSession = Nothing

End Sub