Rafaela Tamanhoni

Eu encontrei um jeito de inserir o link (hotspot), tem que usar NotesMimeEntity, eu não entendi muito bem como funciona, então se alguém puder me ajudar a entender... Pelo fato de eu não entender muito bem (acredito eu que seja isso), eu não consigo resolver o erro que dá: Unable to cast COM object of type 'System.__ComObject' to interface type 'lotus.NOTESMIMEENTITY'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{29131432-2EED-1069-BF5D-00DD011186B7}' failed due to the following error: No such interface supported (Exception from HRESULT: 0x80004002 (E_NOINTERFACE)). esse é o código que eu peguei na internet: MailDoc = Maildb.CREATEDOCUMENT Dim corp As NOTESMIMEENTITY Dim bodyChild As NOTESMIMEENTITY Dim stream As NOTESSTREAM Session.convertMime = False Session.createStream() MailDoc.Form = "Memo" Call MailDoc.REMOVEITEM("Body") corp = MailDoc.CREATEMIMEENTITY 'AQUI DÁ O ERRO stream = Session.CreateStream() Call stream.WRITETEXT(<a href="www.google.com.br">click here</a>) bodyChild = corp.CREATECHILDENTITY() Call bodyChild.SETCONTENTFROMTEXT(stream, "text/html;charset=iso-8859-1", "") Call stream.CLOSE() Call stream.TRUNCATE() Session.ConvertMIME = True Quem puder me ajudar, ficarei muito feliz mesmo :)

Bom dia, Já revirei a internet tentando achar um código que ensinasse a inserir um link no corpo do email do lotus notes, e até agora não encontrei nada. Aqui está o meu código do envio de email: Public Sub EnviarEmail() Dim Maildb As Object Dim UserName As String Dim MailDbName As String Dim MailDoc As Object Dim AttachME As Object Dim Session As Object Dim EmbedObj As Object Dim SaveIt As Boolean = True Dim Remetente As String = "Joaozinho" Session = CreateObject("Notes.NotesSession") 'Get the sessions username and then calculate the mail file name. 'You may or may not need this as for MailDBname with some systems you can pass an empty string UserName = Session.UserName If InStr(1, UserName, " ") = 0 Then MailDbName = UserName.Substring(1, InStr(1, UserName, "/") - 1) MailDbName = "as_" & Replace(MailDbName, "CN=", "") & ".nsf" Else MailDbName = "as_" & UserName.Substring(3, 1) & UserName.Substring(InStr(1, UserName, " ")) MailDbName = MailDbName.Substring(0, (InStr(1, MailDbName, "/")) - 1) & ".nsf" End If 'Open the mail database in notes Maildb = Session.GETDATABASE("", MailDbName) If Maildb.ISOPEN = True Then Else Maildb.OPENMAIL() GoTo fimFunction End If Body = "(aqui entra o link) " Assunto = " Teste " Destinatario = "Rafaela" Copia(1) = "Joao" Copia(0) = "Maria" MailDoc = Maildb.CREATEDOCUMENT MailDoc.Form = "Memo" MailDoc.sendto = Destinatario MailDoc.copyto = Copia.ToArray() MailDoc.Subject = Assunto MailDoc.Body = Body MailDoc.SAVEMESSAGEONSEND = SaveIt MailDoc.FROM = Remetente MailDoc.AltFrom = Remetente MailDoc.SendFrom = Remetente MailDoc.tmpDisplaySentBy = Remetente MailDoc.tmpDisplayFrom_Preview = Remetente MailDoc.DisplaySent = Remetente MailDoc.FROM = Remetente MailDoc.INetFrom = Remetente MailDoc.Principal = Remetente MailDoc.INetPrincipal = Remetente MailDoc.PostedDate = Now() MailDoc.send(0, Destinatario) fimFunction: Maildb = Nothing MailDoc = Nothing AttachME = Nothing Session = Nothing EmbedObj = Nothing End Sub Se alguém tiver alguma ideia de como inserir um link no email do lotus notes, qualquer coisa, já ajuda mesmo. Grata desde já.

alguém por favor?

Queria saber como eu faço para inserir valores (que eu tirei do banco e salvei em variaveis) dentro de um texto que será digitado em um textbox. Exemplo: O projeto TITULO, que foi iniciado na data TAL, deverá ser revisado por FULANO até dia TAL. (esse é o texto digitado no textbox, onde as palavras em maiusculo serão as substituídas pelos valores do banco) Depois que eu digitasse esse texto, ele seria 'juntado' (em uma variavel qualquer) com os valores retirados do banco.