24. august 2006 - 10:24Der er
10 kommentarer og 1 løsning
Tom body på html mail
Hej
Jeg har problemer med nogle mails vi modtager, hvor body er html. Der bliver vist en blank mail, men jeg kan se at der er fire felter i dokumenter med navnet "body". Nogle af dem indeholder html kode.
Er der nogen der ved hvordan jeg får løst dette problem, så vores Notes kan vise indholdet af disse mails ?
Hvilken version af Notes kører klienten? Det er observeret før, og det skyldes vist nok noget "ukorent" HTML, som Notes HTML-viseren (PERWEB.NSF) ikke kan vise. Hvis du ser samme mail via iNotes (eller DWA, som det hedder nuomdags), så kan mailen læses. Jeg har hørt at opgradering af Notes-klienten har løst lignende problemer. Derfor spørger jeg efter version. Nogle gange når man forwarder dem i Notes, så dukker beskeden også op ...
Helt konkret, hvor stammer disse mail fra? Jeg har hørt om problemer med diverse nyhedsbreve ... Har du en kilde?
Jeg kører version 6.5.5 af Notes. Jeg har lige talt med afsenderen af mailen og han siger at mailen kommer fra Outlook. Vi har modtaget andre mails fra ham som vi godt kan læse og men der er et par stykker som er blanke. Fælles for de mails som er blanke er at der er fremhævet noget i teksten (fed skrift), det ændrer åbenbart noget i formatet...
Jeg har prøvet at forwarde mailen og det hjælper ikke noget. Jeg har også prøvet at ændre i den og gemme den igen, men også uden hjælp.
ViewPageSource er en agent der på et tidspunkt har forvildet sig ind i min postkasse:
Sub Initialize Dim s As New notessession Dim db As NotesDatabase Dim doc As notesdocument Set doc = s.Documentcontext Dim mime As notesmimeentity Dim nSuccess As Integer Dim uiws As New notesuiworkspace Dim docNew As notesdocument
s.ConvertMIME = False ' Do not convert MIME to rich text|
If Not(doc Is Nothing) Then Set db = s.CurrentDatabase Set docNew= New NotesDocument( db ) docNew.form = "memo" Dim body As notesitem 'Get the Body only Set body = doc.getfirstitem("body") If body.Type = MIME_PART Then Set mime = body.GetMimeEntity strMessage = walkmime(mime) Else strMessage = body.text End If docNew.Body = strMessage 'Call docNew.save(True, False) End If s.ConvertMIME = True ' Restore conversion Call uiws.EditDocument( True, docNew ) End Sub
Function walkmime (mime As notesmimeentity) As String Dim mime2 As notesmimeentity walkmime = "" While Not (mime Is Nothing)
'get first child: Set mime2 = mime.GetFirstChildEntity
'none? then get next sibling If mime2 Is Nothing Then Set mime2 = mime.GetNextSibling End If
'none? then get aunt/uncle : If mime2 Is Nothing Then Set mime2 = mime.GetParentEntity If Not (mime2 Is Nothing) Then Set mime2 = mime2.GetNextSibling End If End If
Jeg har ikke fundet en løsning på dette problem, men har IBM på sagen. Men da jeg har overgivet sagen til andre i min afdeling bliver det ikke mig der finder en løsning på problemet.
Jeg vil dog gerne give points til jogii, da han har brugt en del tid på at hjælpe mig. Så hvis du smider et svar kommer der lidt points.
Palle, nåede jeg at fortælle dig om den indbyggede visning? Når du står i et htmlmemo, vælger View -> Show -> PageSource? Nå jo, det gjorde jeg vistnok :-)
Ja den kender jeg godt. Fejlen ligger i at der er blevet genereret noget html/css som Notes ikke kan fortolke. Men hvorfor og hvordan det skal løses vil jeg overlade til IBM.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.