Sub mailNotifyGive
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim Line1 As String
Dim card_number As String
Dim nam As NotesName
Set doc = note
Set nam = session.CreateName(doc.DocAuthor(0))
line1 = "fsdfsdf"
doc.Form = "Memo"
doc.SendTo = doc.Executor(0)
Set rtitem = New NotesRichTextItem( doc, "Body" )
Call rtitem.AddNewline(1)
Call rtitem.AppendText( line1 )
Call rtitem.AppendDocLink( doc,"" )
doc.Subject = "......"
Call doc.Send( False )
End Sub