(Resolvido) Criar Grupo de Contatos Outlook

[danielrgoes]

Prezados, gostaria de uma ajuda

 

Eu tenho um programa que pega informações do Firebird e cria contatos no outlook e esta funcionando perfeitamente, porem surgiu a necessidade de criar Grupo de Contatos

 

 

alguém saberia como faço isso ? ou teria algum exemplo para me ajudar ?

 

Grato

[Jhonas]

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

[danielrgoes]

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;

 

 

 

[Jhonas]

veja esse Tópico

 

abraço

[danielrgoes]

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.

 

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

 

Obrigado.

[Jhonas]

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