Rilton,
Segue um exemplo da minha sugestão (envia email silenciosamente, via smtp Gmail).

http://www.sendspace.com/file/0a92sy

Valeu, deu certo!!!

@basole Desculpe te incomodar
Esse assunto muito me interessa, mas o arquivo não está mais disponível.
É possível anexá-lo novamente? Muito obrigada.

@lugoes eu não tenho mais este exemplo que disponibilizei, mas tem varios exemplo na net, este voce pode tambem colar em um modulo padrao e digitar em uma celula para obter o IP local da maquina 
=getMyIP()

Function getMyIP()
Dim myWMI As Object, myobj As Object, itm
Set myWMI = GetObject("winmgmts:\\.\root\cimv2")
Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each itm In myobj
getMyIP = itm.IPAddress(0)
Exit Function
Next
End Function

@basole Adaptei e deu certo.
Muito obrigada!