Send A HREF in Mail Body

Tuesday, August 4, 2009

Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim body As NotesMIMEEntity
Dim header As NotesMIMEHeader
Dim stream As NotesStream

Set db = s.CurrentDatabase
Set stream = s.CreateStreams.ConvertMIME = False ' Do not convert MIME to rich text
Set doc = db.CreateDocument

Call doc.ReplaceItemValue("Form", "Memo")
Set body = doc.CreateMIMEEntity
Set header = body.CreateHeader("Subject")

Call header.SetHeaderVal("MIME message")
Set header = body.CreateHeader("To")
Call header.SetHeaderVal("the user")
Call stream.WriteText({Click here for CNN})

Call body.SetContentFromText _
(stream, "text/html", ENC_QUOTED_PRINTABLE)
Call doc.Send(False)s.ConvertMIME = True ' Restore conversion

4 comments:

NenekPenne said...

apa bondo yang needa taip tu..
coding eh?
coding untuk hack eh?
ha ha ha...tak abis2 dgn hacking....wawawaa

makcik rokiah said...

haha.. teringat zaman c++ dulu..
sempot kite weih.. tobat dah...

Benedict Bernard said...

tak pahang

SiMpleSmArtErMe said...

#Nek#

Hahah.. nek mmg x abis2 nak hack..bak kata Kerol nnt dpt penginapan & kemudahan free..

#Cik Kiah#

HAHA..course apa belajar C++ ??
Ahh dulu akak pon x geti..skrg haru biru..*pinjam ayat nenek..

#Bento#

Aikk..sejak bila guna bahasa G nih.. jangkit ngan Kerol kah..??