GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    Email do outlook para usuários notes (link não funciona)

Moderators: Alexandre Minato, Luiz Cláudio C. V. Rocha, Sampaio Lima
Go
Novo
Procurar
Notificar
Ferramentas
Responder
  
-star Rating Vote!  Login/Cadastrar 
leolivalente
Iniciante

postado
O e-mail que estou mandando contém um link de um arquivo na minha rede. o grande problema é que as pessoas que usam notes, o link se transforma em texto, ou seja, o link perde sua utilidade, já as pessoas que usam outlook o link funciona. Já procurei em vários sites alternativas, mas ainda não encontrei. segue o código abaixo:

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rs2 As ADODB.Recordset

    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    Set rs2 = New ADODB.Recordset

    sql = "SELECT * FROM tbCorreio WHERE Grupo = '01';"
    sql2 = "SELECT * FROM tbDiretório WHERE Grupo2 = '01';"
    Canal = "Tele"

    rs.Open sql, cn
    rs2.Open sql2, cn

    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.Attachment
    Dim DisplayMsg As Boolean
    Dim msg As String
    
    DisplayMsg = True
    
    msg = "<html><body link='#0000ff'>"
    msg = msg & "<div><font face='Tahoma' size=2 color='#000000'>"
    msg = msg & "Já está disponível na rede a posição de vendas até: 03/10/2005</font></div>"
    msg = msg & "<div><font face='Tahoma' size=2 color='#000000'>Para verificar acesse no link abaixo.</font></div>"
    msg = msg & "<p><font face='Wingdings' size=3 color='#000000'>8</font>"
    msg = msg & "<a href=" & rs2!Arquivo & "><font face='tahoma' size=2>Vendas " & Canal & "</font></a></p>"
    msg = msg & "<p><font face='Tahoma' size=2 color='#000000'>Obrigado</font></p></body></html>"
          
    Set objOutlook = CreateObject("Outlook.Application")
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

    With objOutlookMsg
        .SentOnBehalfOfName = "MIS"
        Do Until rs.EOF
            Set objOutlookRecip = .Recipients.Add(rs!Correio)
            objOutlookRecip.Type = olTo
        rs.MoveNext
        Loop

        .Subject = "Posição de Vendas - " & Canal & " - até 03/10/2005
        .BodyFormat = olFormatHTML
        .HTMLBody = msg
        .Importance = olImportanceHigh  'High importance

        For Each objOutlookRecip In .Recipients
            objOutlookRecip.Resolve
        Next

        If DisplayMsg Then
            .Display
        Else
            .Save
            .Send
        End If
    End With

    Set objOutlook = Nothing
    
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
 
Postagens: 11 | Localização: São Paulo | Registrado: 15 August 2002Reply With QuoteEditar ou Apagar MensagemReport This Post
rogerio oliveira
Coordenador

Figura de rogerio oliveira
postado Hide Post
Provavelmente o notes não esta configurado para exibir html, verifique esta opção na máquina do usuário.


Rogério Oliveira
"Do you know anything about chambers of secrets?"
http://www.vhumano.com.br
 
Postagens: 2303 | Localização: Guarulhos - SP | Registrado: 03 February 2005Reply With QuoteEditar ou Apagar MensagemReport This Post
leolivalente
Iniciante

postado Hide Post
Ainda não deu certo.
Já estava habilitado.
 
Postagens: 11 | Localização: São Paulo | Registrado: 15 August 2002Reply With QuoteEditar ou Apagar MensagemReport This Post
 Tópico Anterior | Próximo Tópico powered by eve community  
 

GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    Email do outlook para usuários notes (link não funciona)

©