Visual Basic Verificar se nome de anexo tem x palavra para permitir envio de e-mail

[Vitor Hugo Ataide Almeida]

Caros amigos, preciso de uma força para realizar uma atividade.

 

Preciso que o Outlook avalie se o anexo (caso exista) contém determinadas palavras, como "CONFIDENCIAL", "RESTRITO".

 

Caso a palavra esteja no nome do anexo o e-mail poderá ser enviado, do contrário aparece msgbox pedindo para renomear o arquivo e não permite o envio da mensagem.

 

Exemplo:

 

[CONFIDENCIAL] Anexo do Outlook  

Restrito - Anexo do Outlook

 

Nos dois casos acima, o outlook permitiria a mensagem.

[Vitor Hugo Ataide Almeida]

Se não estiver claro, posso fornecer mais detalhes.