Hi all,
I am trying to create an email app thru vb.net.
I got the program to attach the PDF files to my Lotus Notes email.
The problem I have is to place notes in the body of the email.
I have created a HTML and would like Notes to read that into the body. Can get to work it.
here is the code:
When I run it the DISCLAIMER HTML code is pasted onto the email with the tags etc. This is how it looks in the email:
Dear Customer,
Please find the attached Lab Report. If you have any questions
regarding these document(s), please contact our Service Department by e-mail at customerservice@PLabs.com
Thank you,
Plabs Customer Service Team
I dont know what I am doing wrong.
Here is the code:
Dim body As String
Dim sr As StreamReader = File.OpenText("disclaimer.htm")
body = sr.ReadToEnd()
Dim s1 As String
With AxMAPIMessages1
.SessionID = AxMAPISession1.SessionID
.Compose()
'.RecipAddress = Text2.Text
.RecipAddress = "GrpHd@yahoo.com"
.AddressResolveUI = True
.ResolveName()
.RecipIndex = 1
.RecipDisplayName = "Rony@gmail.com"
.RecipAddress = "paps@hotmail.com"
.RecipType = 2
If b1 = True Then
.AttachmentIndex = 0
.AttachmentPathName = filename0
.AttachmentIndex = 1
.AttachmentPathName = filename1
.AttachmentIndex = 2
.AttachmentPathName = filename2
End If
.MsgType = "Text/HTML" ----------------------> this is the part that is displaying the disclaimer.htm file
.MsgNoteText = body -------------------------->
.Send(True)
End With
sr.Close()
AxMAPISession1.SignOff()
'MAPISession1 = Nothing
'MAPIMessages1 = Nothing