Newsgroup: it.comp.appl.notes-domino
Titolo: Qualcuno ha una soluzione???????

Allora ho questo problema, che ho già scritto qualche post fà.
Devo spedire un e-mail in automatico da un agente, formatta con testo e
link, da client ad un utente internet.
Allora se nella location ho nel formato internet la selezione "Mime
Format", nella mail vedo la formattazione(grassetto,font ecc) ma non il
link cliccabile, viceversa se nella location metto notes rich text
format, si link no formattazione.
Qualcuno ha dei suggerimenti non riesco a venirne a capo.
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Francamente dovrei fare qualche prova... e poi farebbe comodo avere il form
e/o pezzo di codice coinvolto.
--
Juda on the web
--------------------------------
Inviato via 
http://usenet.iol.it
 

Dim DbMail As New NotesDatabase( "", "" )
	Call DbMail.OpenMail
	If Not DbMail.IsOpen Then
		Msgbox "Mancato accesso al database di posta.", 16, "Attenzione !"
		Exit Sub
	End If
 
	Dim Session As New NotesSession
	Dim CurrDb As NotesDatabase
	Set CurrDb = Session.CurrentDatabase
 
	Dim DocsColl As NotesDocumentCollection
	Set DocsColl = CurrDb.UnprocessedDocuments
	If DocsColl.Count <> 1 Then
		Msgbox "Selezionare un articolo per la News Letter.", 16, "Attenzione
!"
		Exit Sub
	End If
 
	Dim DocSel As NotesDocument
	Set DocSel = DocsColl.GetFirstDocument
 
	Dim Key As New
NotesDateTime(Format$(DocSel.dDataGiornale(0),"dd/mm/yyyy"))
 
	Dim NewDoc As NotesDocument
	Set NewDoc = DbMail.CreateDocument
	NewDoc.Form = "memo"
	NewDoc.Subject = "News - " + DocSel.tTitoloArticolo(0)
 
	Dim Item As New NotesRichTextItem(NewDoc, "Body")
	Call Item.AddNewLine( 2 )
 
	Dim StileTesto As NotesRichTextStyle
	Set StileTesto = Session.CreateRichTextStyle
	StileTesto.NotesFont = 1
 
	StileTesto.Bold = True
	StileTesto.Italic = True
	StileTesto.FontSize = 10
	Call Item.AppendStyle(StileTesto)
	Call Item.AppendText("Le notizie per il turismo  " + Key.DateOnly)
	Call Item.AddNewLine( 2 )
 
	StileTesto.Italic = False
	Call Item.AppendStyle(StileTesto)
	Call Item.AppendText(DocSel.tCategoria(0))
	Call Item.AddNewLine( 1 )
 
	StileTesto.Bold = False
	StileTesto.NotesFont = 1
	Call Item.AppendStyle(StileTesto)
	Call Item.AppendText(DocSel.tTitoloArticolo(0))
	Call Item.AddNewLine( 1 )
 
	StileTesto.FontSize = 8
	Call Item.AppendStyle(StileTesto)
	Call Item.AppendText(DocSel.tVisualizza(0)) 
	Call Item.AddNewLine( 1 )
 
	StileTesto.NotesFont = 0
	StileTesto.FontSize = 6
	Call Item.AppendStyle(StileTesto)
	Call
Item.AppendText("
http://www.miosito.it/ADV/advGiornale.nsf/WA?OpenForm&ParentUnid=
"
+ DocSel.UniversalId)
	Call Item.AddNewLine( 3 )
 
	StileTesto.NotesFont = 1
	StileTesto.FontSize = 8
	Call Item.AppendStyle(StileTesto)
	Call Item.AppendText("Segnalare via E - Mail la volontà di non ricevere
ulteriori News Letter scrivendo a 
noi...@miosito.it
")
 
	Call NewDoc.save(False,False)
	Dim UiSpace As New NotesUiWorkSpace
	Dim UiDoc As NotesUiDocument
	Set UiDoc = UiSpace.EditDocument(True, NewDoc)
Questo è il codice inserito in un agente.
Grazieeeeee


Visto il codice secondo me la soluzione si chiama AppendDocLink.
Guardati
i metodi della classe NotesRichTextItem.


Ma l'id del documento lo prende in automatico?
provo e ti faccio sapere
Grazie 


juda niente il link non mi manda al documento  ho fatto cosě
call Item.AppendDocLink(Docsel,"primo","Articolo")
Dove docsel č il documento selezionato dalla vista da dove parte
l'agente
Non si puň modificare l'appenddoclink per cutomizare il link??


Posted via
Mailgate.ORG Server - 
http://www.Mailgate.ORGCi
 risentiamo dopo per la
soluzione.
NB di' a Vendetti che beva di meno sul lavoro ;-)


Abbiamo risolto in un altro modo ed ora riusciamo a formattare l'e-mail
grazie per l'aiuto
 NB di' a Vendetti che beva di meno sul lavoro ;-)
oggi non c'è appena torna riferisco :-)
Ciao


 grazie per l'aiuto
Sono curioso di sapere come, visto che dovrei aver trovato il modo anche
io, ma che è un po' macchinoso.
--
Juda of 3AM - juda(strudel)
despammed.com
/---------------/
Nella mia condizione di base sono piuttosto acido, ma difficilmente
rimango di sale.


noi...@miosito.it
</A>"
	Print #fileNumber%, "</FONT>"
 
	Close fileNumber%
 
	Dim UiSpace As New NotesUiWorkSpace
	Dim UiDoc As NotesUiDocument
	Set UiDoc = UiSpace.EditDocument(True, NewDoc)
 
	Call UiDoc.GotoField("Body")
	Call UiDoc.Import("HTML File", NomeFile$)


Io ne ho provate moltissime, per poi rifarmi a qualcosa che ho trovato
in giro, in maniera simile alla vostra ma aprendo un doc by URL.
I pratica si costruisce il doc e poi si riapre via web per importare
l'HTML sputato fuori dal server. A parte la minore praticità non è poi
molto diverso.
Credo che il vostro escamotage sia da tenere a mente, visto che al
momento il motore di conversione della posta e le classi di Domino mi
sembra che abbiano molti problemi lato MIME. La Lotus ha considerato
l'HTML solo per il web e non per la posta, pare.
