Lotus Notes / Domino Sonstiges > Help-Desk Applikation !!Help!!

Type Mismatch in 'createnewticket'

(1/1)

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
--- Ende Code ---

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.  ;D

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)

--- Ende Code ---

Bernhard

Navigation

[0] Themen-Index