Oi Pessoal, estou tentando enviar mensagem usando CDO para não aparecer a tela de segurança do microsoft outlook, em casa funciona pois acesso o outlook direto, mas aqui na empresa ele dá um erro de SendUsing, pois o outlook da empresa está conectado ao exchange, como posso resolver isso?
Segue abaixo meu código:


Dim iMsg As Object
Dim iConf As Object
Dim strBody As String
Dim Flds As String

' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")


strBody = Corpo

With iMsg
Set .Configuration = iConf
.To = Destinatario
.CC = CC
.BCC = BCC
.From = Remetente
.Subject = Assunto
.TextBody = strBody
.Send
End With

Set iMsg = Nothing
Set iConf = Nothing
End Sub

Agradeço desde já

Elaine

acho que falta a configuração do CDO

Sim eu tenho certeza que é isso eu só não sei como fazer já que a máquina da empresa tem configurado no outlook o dominio do usuário e o nome do usuário apenas e com essas informações ele se conecta ao exchange e envia o e-mail.
Se alguém souber como me ajudar a configurar só com estas informações eu agradeço muito.
Obrigada,

Elaine