MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Abrir um contato específico do outlook através de um botão no formulário

    avatar
    ivan77
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 04/10/2017

    [Resolvido]Abrir um contato específico do outlook através de um botão no formulário Empty [Resolvido]Abrir um contato específico do outlook através de um botão no formulário

    Mensagem  ivan77 11/11/2021, 20:04

    Pessoal, boa tarde!

    Não tenho formação na área, sou advogado rsrs, pouco que aprendi foi vendo esse fórum e adaptando os códigos aqui postados no cadastro de clientes que tenho, desde já sou muito gratos aos amigos desse fórum.

    Gostaria de saber se é possível colocar um botão no meu formulário de cliente para abrir seu respectivo contato no outlook, ao cadastrar ele já salva o contato do mesmo no outlook, contudo surgiu a necessidade de abrir esse contato para editar e colocar os andamentos processual etc... e não achei nenhum comando que faça isso.

    Seria possível? algum colega tem esse comando?

    Muito Obrigado.
    avatar
    ivan77
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 04/10/2017

    [Resolvido]Abrir um contato específico do outlook através de um botão no formulário Empty Uma possível Solução

    Mensagem  ivan77 23/11/2021, 13:38


    Código:
    Dim myNamespace As Outlook.NameSpace
    Dim myContacts As Outlook.Items
    Dim myItems As Outlook.Items
    Dim myItem As Object
    Dim StrContato As String
     
     
    Set myNamespace = Outlook.GetNamespace("MAPI")
     
    Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items

     
    StrContato = "[FullName] = " & "Cli: " & Me.NOME
     
    Set myItems = myContacts.Restrict(StrContato)
     
     
    For Each myItem In myItems
     
    If (myItem.Class = olContact) Then
     
    myItem.Display
     
     
    End If
     
    Next

      Data/hora atual: 6/10/2022, 09:07