Type Mismatch in 'createnewticket'

[Herr.Vorragend]

Hallo,

der Dispatch-Agent erzeugt bei mir immer folgenden Fehler:

Agent:   Dispatch
Method:   CREATENEWTICKET
Stack Trace:
*E6ADA14,CREATENEWTICKET,245
*182B014,PROCESSMAILTICKETSANDRESPONSES,76
*7E3B714,INITIALIZE,2

Error 13 on line 114 in function CREATENEWTICKET: Type mismatch

Ursache scheint die Übernahme des Feldes 'Body' in 'CreateNewTicket' zu sein.

Code

		If me_doc.HasItem("Body") Then
			Set rtitem = me_doc.GetFirstItem( "Body" )
			If ( rtitem.Type = RICHTEXT ) Then
				plainText = rtitem.GetFormattedText( False, 0 )
			End If
			maxProblemLength = Cint(GetConfigDocByKey("MaxLengthProblemDescription"))
			Problem = Left$(plainText,maxProblemLength)
			Set  rtBodyNewTicket = New NotesRichTextItem ( NewTicket, "Body" )
			Call rtBodyNewTicket.AppendRTItem( rtitem)		
		End If

Wenn das Feld 'Body' in einer Mail kein Richtext enthält, dann erscheint der Fehler hier:
Set rtitem = me_doc.GetFirstItem( "Body" )

[Thomas Schulte]

Hmm ich bin bis jetzt immer davon ausgegangen das Body immer ein RT Feld ist.

Wann ist das denn nicht der Fall? Den Fehler hatte ich so noch nie.

[Herr.Vorragend]

Generell wird es bestimmt häufig so sein, dass Body ein RichText-Feld ist.
Doch ich erhalte täglich 'zig Mails von Servern (stehen außerhalb meines Einflußbereiches), die nur ein wenig Text enthalten und bei denen Body nur ein Textfeld ist.

Stellt sich nun eigentlich die Frage, wo der Fehler liegt. Und es scheint nicht an !!HELP!! zu liegen. 

Hast du denn evtl. einen kurzen Tipp, wie ich das für unsere Konstellation so "geradebiegen" kann, dass die anscheinend-nicht-konformen Mails auch konvertiert werden können?

[koehlerbv]

Sicher sein kann man sich beim Body-Item nie. Und wenn es solch ein Code macht:

Code

	Dim session As New NotesSession
	Dim dbCurrent As NotesDatabase
	Dim docMail As NotesDocument
	
	Set dbCurrent = session.CurrentDatabase
	Set docMail = dbCurrent.CreateDocument
	
	docMail.SendTo = "Bernhard Koehler/BKNotes/DE"
	docMail.Subject = "Test"
	docMail.Body = "Das sollte ein Textfeld werden."
	
	Call docMail.Send (False)

Bernhard