Solved

Type Mistmatch....again

Posted on 2009-05-18
6
158 Views
Last Modified: 2013-12-18
Working on some code to send a tracer after doing some basci evaluations. I have used this in other areas but I get an instant type mismatch error, can't even get to see anything in debugger. I have Option Declare set. What do I have wrong in this case.
Sub Click(Source As Button)

	Dim ws As New NotesUIWorkspace

	Dim uidoc As NotesUIDocument

	Dim email As New NotesDatabase("", "")

	Dim doc As NotesDocument, memo As NotesDocument

	Dim body As NotesRichTextItem

	Set uidoc = ws.CurrentDocument

	If (uidoc.EditMode) Then Call uidoc.Save

	Set doc = uidoc.Document

	uidoc.EditMode = True

	If doc.am_init_approved(0) = "y" And doc.am_init_flag(0) <> "done" Then 

		Set memo = email.CreateDocument

		memo.Form = "Memo"

		memo.Subject = "Congratulations! You are now a " & doc.GetItemValue("title_vis")(0) & "."

		memo.Remark = "I am pleased to announce you have now been approved as a " & doc.GetItemValue("title_vis")(0) 

		memo.SendTo = "Field Technology"

		memo.CopyTo = "Field Technology"

	        ' add a body and a doc link

		Set body = memo.CreateRichTextItem("Body")

		Call body.AppendDocLink(doc, "", "")

		Call uidoc.FieldSetText("am_init_flag", "done")

		Call uidoc.Save

	       ' send the memo and close the form

		Call memo.Send(False)

		Call uidoc.Close(True)

	End If

End Sub

Open in new window

0
Comment
Question by:jforget1
  • 3
  • 3
6 Comments
 
LVL 22

Expert Comment

by:Bill-Hanson
ID: 24414420
Not sure why you're getting a type mismatch.  I don't see any type errors here.

The only thing I notice is that you don't open the email database before calling CreateDocument.

Try adding this line before line #12:

    Call email.OpenMail

0
 

Author Comment

by:jforget1
ID: 24414480
I actually took that out, I thought it might have been causing the issue. I will put it back in to see if maybe I fixed it somewhere else.
0
 
LVL 22

Expert Comment

by:Bill-Hanson
ID: 24414546
Maybe the error is caused by the uidoc.Save?  Is there any code in that form's QuerySave or PostSave events?
0
Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

Author Comment

by:jforget1
ID: 24414596
Well adding that back in now has it working. One final issue is the body of the memo is not carrying over, only the doclink. Have not used the memo type that often, how do I get the body of the message to carry to the email? I tried moving it down after the body has been set. No luck.
If doc.am_init_approved(0) = "y" And doc.am_init_flag(0) <> "done" Then 

		Call email.OpenMail		

		Set memo = email.CreateDocument

		memo.Form = "Memo"

		memo.Subject = "Congratulations! You are now a " & doc.GetItemValue("title_vis")(0) & "."

		memo.SendTo = "Field Technology"

		memo.CopyTo = "Field Technology"

	        ' add a body and a doc link

		Set body = memo.CreateRichTextItem("Body")

		Call body.AppendDocLink(doc, "", "")

		memo.body = "I am pleased to announce you have now been approved as a " & doc.GetItemValue("title_vis")(0)

		Call uidoc.FieldSetText("am_init_flag", "done")

		Call uidoc.Save

	       ' send the memo and close the form

		Call memo.Send(False)

		Call uidoc.Close(True)

	End If

Open in new window

0
 
LVL 22

Accepted Solution

by:
Bill-Hanson earned 500 total points
ID: 24414807
There are three ways to set the body of an email: Plain Text, RichText, and MIME.  These three types are independent, and cannot be mixed.  You have mixed plain text and RichText in the same script.

Line 9 creates a new RichText item in the memo.  This allows you to add doc-links and formatted text.

But, by setting memo.body to a string in line 11, you are forcing the body to be plain text.  The RichText operations that precede this line are over-written with the contents of the string.

The bottom line here is to continue using the RichText methods to add text to your RichText item.  In this case, simply replace line 11 with this:

    Call body.AppendText("I am pleased to announce you have now been approved as a " & doc.GetItemValue("title_vis")(0))
0
 

Author Closing Comment

by:jforget1
ID: 31582684
As always you are the master on these, that adjustment worked like a charm, thanks for the help.
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Suggested Solutions

For Desktop Techs: How to retain a user's Notes configuration data when swapping out the end user's computer. (Assuming that you are not upgrading to a completely different version of Notes client) All you need to do is: 1) install Notes o…
Problem "Can you help me recover my changes?  I double-clicked the attachment, made changes, and then hit Save before closing it.  But when I try to re-open it, my changes are missing!"    Solution This solution opens the Outlook Secure Temp Fold…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now