Visual Basic Code , VB.NET Code, VB Code
  Home   :  Code   :  Forums   :  Submit   :  Mailing List   :  About   :  Contact


Notes not converting HTML


Notes not converting HTML

Author
Message
Paps
Paps
Forum God
Forum God (371 reputation)Forum God (371 reputation)Forum God (371 reputation)Forum God (371 reputation)Forum God (371 reputation)Forum God (371 reputation)Forum God (371 reputation)Forum God (371 reputation)Forum God (371 reputation)

Group: Forum Members
Posts: 1, Visits: 2
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

GO


Similar Topics


Reading This Topic


Login
Existing Account
Email Address:


Password:


Social Logins

Select a Forum....

















A1VBCode Forums


Search