Grazie mille Daniele per la risposta.
Ho provato ad inviare una mail con il codice che ho trovato nel link da te indicato.
Dim body As NotesMIMEEntity
Dim mh As NotesMimeHeader
Dim mc As NotesMIMEEntity
Dim stream As NotesStream session.convertMIME = False MailDoc.Form="Memo"
MailDoc.SendTo="me@me.com"
MailDoc.Subject="Test HTML Messages"
\'Create the MIME headers
Set body = MailDoc.CreateMIMEEntity
Set mh = body.CreateHeader({MIME-Version})
Call mh.SetHeaderVal("1.0")
Set mh = body.CreateHeader("Content-Type")
Call mh.SetHeaderValAndParams(
{multipart/alternative;boundary="=NextPart_="}
)
\'Send the plain text part first
Set mc = body.createChildEntity()
Set stream = session.createStream()
Call stream.WriteText("Hello. I\'m boring.")
Call mc.setContentFromText(stream, {text/plain}, ENC_NONE)
\'Now send the HTML part. Order is important!
Set mc = body.createChildEntity()
Set stream = session.createStream()
Call stream.WriteText("Hello. I\'m <b>exciting</b>")
Call mc.setContentFromText(stream, {text/html;charset="iso-8859-1"}, ENC_NONE)
\'Close the stream
Call stream.close()
\'Send it
Call MailDoc.Send(False)
Ma a me arriva solo la seconda scritta.. "I\'m exciting" e non anche "I\'m boring"..č giusto cosė?
Se si non č il mio caso perchč devo inviare pių parti ma non devono essere visualizzati come allegati.
Se hai qualche idea fammi sapere..grazie ancora
Buon lavoro
P.S. Due miei colleghi sono stati al Dominopoint e sono rimasti molto entusiasti dell\'evento!
|