Ciao a tutti!
Ho un problema con la visualizzazione delle mail in formato MIME.
La mail inviata viene divisa in pių parti e ogni parte viene visualizzata come un allegato (vedi immagine allegata).
Nel mio caso infatti definisco tre parti e 2 vengono visualizzate come allegato
Dim corpo As NotesMimeEntity
Dim header As NotesMimeHeader
Dim stream As NotesStream
Dim mime As NotesMimeEntity
Dim child As NotesMIMEEntity
Dim child2 As NotesMIMEEntity
Dim child3 As NotesMIMEEntity
Dim code As String
Set stream = session.CreateStream
session.ConvertMIME = False
Set corpo = mail.CreateMIMEEntity
Set header = corpo.CreateHeader("Content-Type")
Call header.SetHeaderVal("multipart/mixed")
Call header.SetHeaderVal("MIME multipart message")
Set header = corpo.CreateHeader("subject")
Call header.SetHeaderVal(doc.GetItemValue("Subject")(0))
Set header = corpo.CreateHeader("to")
Call header.SetHeaderVal(dociscritti.GetItemValue("email")(0))
\' Set header = corpo.CreateHeader("smtporiginator")
\' Call header.SetHeaderVal(setup.properties("Mittente"))
REM Create child entity
Set child = corpo.CreateChildEntity
code = " <html>...</html>"
Call stream.WriteText("" + code +"")
Call child.SetContentFromText(stream, "text/html;charset=UTF-8", ENC_NONE)
Call stream.Truncate
Set child2 = corpo.CreateChildEntity
code = ""
code = "<html><body><table bgcolor=\'#000000\'></table></body></html>"
Set mime = doc.GetMIMEEntity("body")
Call mime.GetContentAsText(stream)
Call child2.SetContentFromText (stream, "text/html;charset=UTF-8", ENC_NONE)
Call stream.Truncate
Set child3 = corpo.CreateChildEntity
code = ""
code= "<html> ...</html>"
Call stream.WriteText("" + code +"")
Call child3.SetContentFromText(stream, "text/html;charset=UTF-8", ENC_NONE)
Call mail.Send(False)
session.ConvertMIME = True
C\'č qualcuno che avuto il mio stesso problema???
Grazie mille...
|