[Envio Email Lotus Notes]

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 :)

[Envio Email Lotus Notes]

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á.

[Inserir um valor no meio de um texto]

alguém por favor?

[Inserir um valor no meio de um texto]

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.