Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Criar Grupo de Contatos Outlook


danielrgoes

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0

a idéia esta meio vaga....

se as informações do Firebird já são os contatos que voce cria no outlook , então voce pode criar uma tabela com esses contatos

se não for isso, veja

http://windows.microsoft.com/pt-br/windows/create-contact-groups-mailing-lists#1TC=windows-7

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Boa tarde Jhonas

 

então vou tentar explicar melhor

 

Eu tenho uma tabela no meu Firebird com o nome dos contatos e o email

Desenvolvi um programa que pega o Nome e o Email do Banco de dados e adiciona ele como contatos no Outlook

 

Porem agora surgiu a necessidade de criar um grupo de contatos no outlook, gostaria de saber como fazer isso via programação

 

Segue o codigo para criar os contatos (na procedure eu passa o Nome e o Email que pego do banco:

procedure TFrmPrincipal.NewContactItem(Nome,Email: string);
var
   OutlApp: OutlookApplication;
   OutlNamespace: Namespace;
   ContactFolder: MAPIFolder;
   Contact: ContactItem;
begin
    OutlApp := CoOutlookApplication.Create;
    OutlNamespace := OutlApp.GetNameSpace('MAPI');
    ContactFolder := OutlNamespace.GetDefaultFolder(olFolderContacts);
    Contact := OutlApp.CreateItem(olContactItem) as ContactItem;
    Contact.FirstName := Nome;
    Contact.Email1Address := Email;
    Contact.Save;
    OutlApp := nil;
end;

 

 

 

Link para o comentário
Compartilhar em outros sites

  • 0

Jhonas, boa tarde!

 

Tive que deixar esse projeto em standby por um tempo, mas estou retomando.

 

O código que você enviou cria os grupos de usuário, porém não da maneira que preciso.

Na época, lembro que testei e retomando o projeto, testei novamente, mas para criar o Grupo de Contatos, o Outlook emite uma mensagem pedindo permissão para realizar a ação (imagem abaixo). Porém preciso que os grupos sejam criados sem pedido de permissão ao usuário.

tela.png.613926b38b7ea34163231a9d30c5d6c5.png

 

Você já passou por isso? Sabe como posso contornar?

 

Obrigado.

Link para o comentário
Compartilhar em outros sites

  • 0

essa mensagem faz parte do sistema de proteção  do Microsoft Outlook

voce pode contornar isso com um antivírus

https://support.office.com/pt-br/article/Recebo-avisos-sobre-um-programa-que-está-acessando-informações-de-endereço-de-email-ou-enviando-um-email-em-meu-nome-df007135-c632-4ae4-8577-dd4ba26750a2

voce até pode desabilitar essa proteção, mas é por sua conta e risco

Abra o Outlook Express > acesse o menu Ferramentas > Opções... > guia "Segurança" > em seguida desmarque a opção "Avisar quando outro aplicativo tentar enviar email como se fosse eu".

ou use um programa para isso

http://www.contextmagic.com/express-clickyes/

outros links:

https://www.google.com.br/?gws_rd=ssl#q=um+programa+está+tentando+acessar+emails+armazenados+no+outlook

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...