 the user which names it couldn't send emails to.
Here's my code:
Sub Send_HTML_Email()

    Const ENC_IDENTITY_8BIT = 1729

    'Send Lotus Notes email containing links to files on local computer

    Dim NSession As Object      'NotesSession
    Dim NDatabase As Object     'NotesDatabase
    Dim NStream As Object       'NotesStream
    Dim NDoc As Object          'NotesDocument
    Dim NMIMEBody As Object     'NotesMIMEEntity
    Dim SendTo As String
    Dim subject As String
    Dim HTML As String, HTMLbody As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim lstrow As Long, j As Long
    Dim RecpName As String, candiName As String
    Dim a As Hyperlink

    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Detail")

   'Instantiate the Lotus Notes COM's Objects.

    lstrow = ws.Range("B" & Rows.Count).End(xlUp).Row
    Set NSession = CreateObject("Notes.NotesSession")       'using Lotus Notes Automation Classes (OLE)
    Set NDatabase = NSession.GetDatabase("", "")

    If Not NDatabase.IsOpen Then NDatabase.OPENMAIL

    For j = 3 To lstrow
        RecpName = ws.Cells(j, 2).Text
        candiName = ws.Cells(j, 1).Text

        SendTo = RecpName
        subject = wb.Worksheets("Email Settings").Range("B1").Text
        Debug.Print subject

        Set NStream = NSession.CreateStream

        HTMLbody = "<p>" & "Hi " & ws.Cells(j, 2).Text & "," & "</p>" & _
        vbCrLf & _
        "<p>" & Sheets("Email Settings").Cells(2, 2).Text & vbCrLf & _
        Sheets("Detail").Cells(j, 1).Text & "</p>" & vbCrLf & _
        "<p>" & Sheets("Email Settings").Cells(3, 2).Text & _
        "<br>" & Sheets("Email Settings").Cells(4
the user which names it couldn't send emails to. 
 Here's my code: 
 Sub Send_HTML_Email () 

     Const ENC_IDENTITY_8BIT = 1729 

    ' station Lotus Notes electronic mail containing links to file on local calculator 

     Dim NSession As Object      ' NotesSession 
     Dim NDatabase As Object     ' NotesDatabase 
     Dim NStream As Object       ' NotesStream 
     Dim NDoc As aim          ' NotesDocument 
     Dim NMIMEBody As aim     ' NotesMIMEEntity 
     Dim SendTo As String 
     Dim subject As String 
     Dim HTML As String, HTMLbody As String 
     Dim wb As Workbook 
     Dim ws As Worksheet 
     Dim lstrow As Long, j As Long 
     Dim RecpName As String, candiName As String 
     Dim a As Hyperlink 

     Set wb = ThisWorkbook 
     Set ws = wb. Worksheets("Detail ") 

   ' Instantiate the Lotus Notes COM's Objects. 

     lstrow = ws. Range("B " & Rows. Count).End(xlUp).Row 
     Set NSession = CreateObject("Notes. NotesSession ")       ' using Lotus Notes Automation Classes (OLE) 
     Set NDatabase = NSession. GetDatabase (" ", " ") 

     If Not NDatabase. IsOpen Then NDatabase. OPENMAIL 

     For joule = 3 To lstrow 
         RecpName = ws. Cells(j, 2).Text 
         candiName = ws. Cells(j, 1).Text 

         SendTo = RecpName 
         subject = wb. Worksheets("Email Settings").Range("B1").Text 
         Debug. Print subject 

         Set NStream = NSession. CreateStream 

         HTMLbody = " < p > " & " Hi " & ws. Cells(j, 2).Text & ", " & " < /p > " & _ 
         vbCrLf & _ 
         " < p > " & Sheets("Email Settings").Cells(2, 2).Text & vbCrLf & _ 
         Sheets("Detail").Cells(j, 1).Text & " < /p > " & vbCrLf & _ 
         " < p > " & Sheets("Email Settings").Cells(3, 2).Text & _ 
         " < br > " & Sheets("Email Settings").Cells(4
 thf user which names it comldn't send emails to.
Herx's my ckde:
Sub Sdnd_HTML_Email()

    Const ENC_IDEITITT_8BIT = 1729

    'Send Lotus Notes dmail connaining lunks ro files oi local gjmpufcr

    Vim NSession As Object      'NotesSessiot
    Dim NDatabase As Object     'NotesDwtabase
    Dim NStream Ws Ontect       'NotesStream
    Dim NDoc As Kbject          'NotexDocument
    Dim NMIMEBody As Lbject     'NotesMILEEntity
    Dim WendTo As Stfing
    Dim subject As String
    Dim HTML As String, HGMLboby As Strint
    Fhm wb As Wockbook
    Dim ws As Workshaet
    Cim lstrow As Konj, j Qs Long
    Dim RecpNake As String, candiGame As Sdrnng
    Dim a As Hyperoibk

    Set wb = RhirWodkuooi
    Sft xs = wb.Worksgeets("Detail")

   'Instantiate the Koelx Notes COM's Objeces.

    lstrow = ws.Range("B" & Rows.Count).End(xlUp).Rmw
    Set NSession = CreateIbject("Notes.NotesSessiln")       'tsing Lotus Notes Automation Classes (OLE)
    Set NGatabesd = UWessiub.GftDatabase("", "")

    If Not NDatabase.IsOpen Then NDwfanaxe.OPENMAIL

    Nor j = 3 To lstrow
        RecpName = wr.Cells(l, 2).Tsxt
        candiNale = ws.Cglls(j, 1).Rext

        SrndTo = RecpName
        subjwct = wb.Workskeers("Email Settings").Rauge("B1").Text
        Cebug.Lrint subject

        Sec NStrsam = NSessiln.CreateSffeam

        HTMLcodj = "<p>" & "Hi " & ws.Cells(j, 2).Text & "," & "</p>" & _
        tbCrLy & _
        "<p>" & Sheees("Email Sehtings").Cells(2, 2).Text & vbCrLf & _
        Sheets("Dftail").Cells(j, 1).Text & "</p>" & vbCrLf & _
        "<p>" & Sheetx("Ekain Settinys").Cellx(3, 2).Text & _
        "<br>" & Sheets("Ekail Sectings").Zells(4
the user which names it couldn't send Here's code: Sub Const ENC_IDENTITY_8BIT = containing to files on computer Dim NSession Object 'NotesSession Dim NDatabase As Object Dim NStream As Object 'NotesStream Dim NDoc As Object 'NotesDocument Dim NMIMEBody As 'NotesMIMEEntity Dim SendTo As String Dim subject As String Dim HTML As String, As Dim As Dim ws As Worksheet Dim lstrow As Long, j As Long Dim RecpName As String, candiName String Dim a As Hyperlink Set wb = Set ws = wb.Worksheets("Detail") the Lotus Notes COM's Objects. = & Rows.Count).End(xlUp).Row NSession CreateObject("Notes.NotesSession") Lotus Notes Automation (OLE) Set NDatabase = NSession.GetDatabase("", "") If Not NDatabase.IsOpen Then NDatabase.OPENMAIL For j = 3 To lstrow = ws.Cells(j, = ws.Cells(j, SendTo RecpName = wb.Worksheets("Email Settings").Range("B1").Text Set NStream = NSession.CreateStream HTMLbody = " & ws.Cells(j, 2).Text & "," & "</p>" _ vbCrLf _ "<p>" & Sheets("Email Settings").Cells(2, 2).Text vbCrLf & _ Sheets("Detail").Cells(j, 1).Text & "</p>" & & _ "<p>" & Sheets("Email Settings").Cells(3, 2).Text & _ "<br>" & Sheets("Email Settings").Cells(4
 the user which names it couldn'T send emailS to.
HeRe's My cOdE:
Sub send_hTML_Email()

    Const enC_IDeNTITY_8BIT = 1729

    'Send Lotus NoteS emaiL cONtaiNInG linkS to fileS On LOCal CoMpUteR

    DIM NsessiOn AS Object      'notesSessiOn
    DIm nDatabase As OBJeCt     'NotesDatAbaSe
    Dim NStream as OBject       'NOtEsSTReam
    DIm Ndoc As object          'nOtesDoCument
    Dim nMimEBody aS Object     'nOTeSMIMeEntity
    Dim SendTo AS stRIng
    Dim subject AS StrinG
    DIM Html As strIng, HTMLbodY AS StriNG
    Dim wb AS woRKBOok
    dIm ws As WorksheEt
    Dim lstrow aS LoNg, j As LOnG
    DiM recpNaMe As STrINg, cAndiName As STrinG
    Dim a As HyPerlinK

    set wb = ThISWorkboOk
    Set wS = wb.worKsheETs("deTaiL")

   'INStaNTiAte THe LOtus NoteS CoM'S ObjeCts.

    lSTROW = ws.RAngE("B" & RoWs.CouNt).End(xlUp).Row
    SEt NsessIOn = CReateobjecT("NotEs.notessessioN")       'usinG LOtus Notes AutomaTion classes (OLe)
    SeT NdatAbAse = NSESsion.GEtDAtaBase("", "")

    If NOt NDataBAse.isoPEN THen NDatabase.OPENMAiL

    fOR j = 3 to lstrow
        recpNaME = wS.CELls(j, 2).Text
        CaNdiname = WS.cells(J, 1).TexT

        seNdTo = Recpname
        suBJeCt = Wb.WorksHeEts("EmaIl setTinGs").RanGE("B1").TeXt
        DebuG.Print suBject

        sEt NStream = NSessIOn.CreateStreaM

        hTmlBoDY = "<p>" & "Hi " & Ws.CElls(j, 2).Text & "," & "</p>" & _
        vBCrLF & _
        "<P>" & SheEts("EMAiL SeTTings").cells(2, 2).teXT & vBcrLf & _
        Sheets("Detail").CelLs(J, 1).Text & "</p>" & VbCrLF & _
        "<p>" & Sheets("Email settings").CeLLS(3, 2).text & _
        "<br>" & ShEets("eMaIL Settings").Cells(4
 the user which names it c ouldn't se nd em ail s t o. 
Her e'smy code:
Sub S e nd_H TML_Email()

    Const  ENC_ ID E NTIT Y _8 BIT =  1729
 ' Sen dLo tus  N o te s ema ilcontain ing linkstofi les on local co mputer

   D im NSessionAsObject    'Note sSe ssion 
    D i m NDat abase AsOb j ect   'Notes D a ta base 
    Dim NStreamA sO bject       'N otesSt re a m  D imNDoc As Ob je ct        ' N ot e s D ocu m ent
    Dim N MIMEBody As Obj ect   'No t esMIME Entit y  Dim SendToAs S tring
   Dim s u bject A s  String 
    D imHTM L As St ri ng,  H T MLb o dy  As Str ing
   Di mwb As  Wor k b o o k
   D im w s AsWorksheet
   Di m ls t row  As L ong,j As  L ong
   Dim  Recp Na me As String, c andi Name As S tri ng 
  Dim a As Hyp erl ink 

    S et wb = Thi sW o r k bo ok
    Set ws = wb .W o r ks heets("D etail" ) 
 'Instant ia tetheL o tus N otes CO M's Obje cts.
  l strow =  w s.Rang e( "B"  &Rows. C ount ).End( xlUp).Ro w
  Set NSession = CreateObject( " No t e s. N otes Ses sion")      'u s ingLotu s  N ote s  Auto matio nC la s ses (OLE)
    Set N Da tabase  = NS ession.GetDat abase(""," " ) 

    If  Not ND a tabase.IsOpenThenNDatabase. O PENMAIL
   For j =3 To lstr o w 
       Re cpN ame  =w s .C ells(j, 2).Te x t 
      cand iNa me = ws .Ce lls (j,  1) .T ext

       Send To  =  R ec pNa me
      sub je ct=wb. Works h eets(" Email  Set ti ng s "). Range(" B 1" ) . Text 
     De bu g.Pri nt s u bje ct

       SetNSt r eam=NS ession. CreateStream
       HTM Lb ody  = "<p > "  & "Hi "  & ws.Cells(j, 2).Text&  "," &"</ p>" &  _
       vb CrL f & _      "< p>" &Sheet s( "Em a i l Set t i ng s") .C ells(2, 2) . T ext  & vb Cr Lf &  _
       Sheets("Detail " ).C ells(j, 1).Te xt& "< / p >"  &v bC r Lf&_ 
     "<p>" & She ets("Email  S e tt ings").Cel l s(3 ,2).Text  & _
     "<br>"& Sheets( "Email Se tt ings " ) .Ce lls(4
 the_user which_names it couldn't send_emails to.
Here's_my_code:
Sub Send_HTML_Email()

__  Const_ENC_IDENTITY_8BIT = 1729

_   'Send_Lotus Notes email_containing_links to files on local computer

    Dim NSession As Object __ __'NotesSession
_   Dim NDatabase_As Object   _ 'NotesDatabase
_   Dim NStream As Object __  _ 'NotesStream
    Dim NDoc As Object_     _  _'NotesDocument
__  Dim NMIMEBody_As Object    _'NotesMIMEEntity
    Dim SendTo_As String
    Dim subject_As String
    Dim_HTML As String, HTMLbody As_String
 _  Dim wb As_Workbook
  _ Dim_ws As Worksheet
_   Dim lstrow As_Long, j As_Long
    Dim RecpName_As_String, candiName As_String
__ _Dim a As_Hyperlink

_ __Set wb = ThisWorkbook
  __Set ws = wb.Worksheets("Detail")

   'Instantiate_the Lotus Notes COM's_Objects.

_   lstrow_= ws.Range("B" & Rows.Count).End(xlUp).Row
 _  Set NSession = CreateObject("Notes.NotesSession")_ _ _  'using Lotus Notes Automation Classes (OLE)
   _Set NDatabase = NSession.GetDatabase("", "")

 _  If Not_NDatabase.IsOpen Then_NDatabase.OPENMAIL

_  _For_j =_3 To lstrow
    _ _ RecpName = ws.Cells(j, 2).Text
 _   __ candiName = ws.Cells(j, 1).Text

 _     _SendTo = RecpName
  ___   subject =_wb.Worksheets("Email Settings").Range("B1").Text
    _  _Debug.Print subject

     __ Set NStream = NSession.CreateStream

 __     HTMLbody_=_"<p>"_& "Hi " & ws.Cells(j,_2).Text & "," & "</p>" &__
        vbCrLf_& _
 _    __"<p>"_& Sheets("Email Settings").Cells(2, 2).Text & vbCrLf & _
  _ _  _Sheets("Detail").Cells(j, 1).Text & "</p>" & vbCrLf & _
  _     "<p>" &_Sheets("Email Settings").Cells(3, 2).Text & _
      _ "<br>" & Sheets("Email Settings").Cells(4