Enviando email - Outlook / Avisos de Segurança

Bom dia galera.

Estou com um problemão. É assim, fiz um macro que envia um arquivo como anexo diretamente pelo Visual Basic.

O problema é que o Outlook fica me mandando avisos de segurança toda vez que ele vai fazer um envio. Observem:

Aviso 01:

/applications/core/interface/imageproxy/imageproxy.php?img=http://img95.imageshack.us/img95/2711/001fc6.jpg&key=a7939e6ebeda5aa17665fd3620be9fc56eefe6f64d3805470639e69c338f1c16" alt="Imagem Postada" />

Aviso 02:

/applications/core/interface/imageproxy/imageproxy.php?img=http://img97.imageshack.us/img97/2019/002mp7.jpg&key=2caa06bfbab2d865d94a491ced38c2e7e2bc343aea952dbef89df6c24063f007" alt="Imagem Postada" />

* Essa mensagem aqui ainda leva 5 segundos para habilitar o "Sim" pra mim poder aceitar o envio.

À cada email que eu preciso enviar aparece essas duas mensagens aí.

Esse macro que eu criei funciona pra automatizar um processo repetitivo q perco tempo então se eu tiver que ficar aceitando esses avisos toda hora vou acabar perdendo tempo também. Se fossem poucos emails tudo bem, mas o problema é que são muitos.

Eu dei uma pesquisada por aí e não consegui achar nada que me levasse à uma solução então se alguém puder me ajudar, por favor, realmente estou precisando disso.

Código do bixano:

If MsgBox("Deseja enviar automaticamente?", vbYesNo + vbDefaultButton1, "Envio Automático") = vbYes Then Set mail = mOut.CreateItem(olMailItem) Set Destino = mail.Recipients.Add("TESTE@TESTE.com.br") Set Origem = mail.Recipients.Add("TESTE2@TESTE.com.br") Origem.Type = olOriginator mail.Subject = "Assunto" mail.Body = "Corpo do email" mail.Attachments.Add "C:\teste.txt", olByValue, 1, "Anexo" mail.Send Else Exit Sub End If[]'s pra todos e obrigado desde já.