DLL COM VBS

USUARIO.EXCLUIDOS 20/04/2007 10:58:00
#212931

Pessoal, preciso converter um código que uso no VBA para VBS!

O problema é que uso como referência uma DLL... será possível usar essa DLL no código VBS?

//codigo em VBA
Dim Msg As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp
Set Msg = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields

Camp.Item(cdoSendUsingMethod) = 2
Camp.Item(cdoSMTPServer) = "servidor"
Camp.Item(cdoSMTPConnectionTimeout) = 20
Camp.Item(cdoSMTPAuthenticate) = 1
Camp.Item(cdoSendUserName) = "usuario"
Camp.Item(cdoSendPassword) = 12345
Camp.Update

Set Msg.Configuration = Cof
Msg.To = "<mmatiusso@dominio.com.br>"
Msg.From = "<mmatiusso@dominio.com.br>"
Msg.Subject = "Assunto"
Msg.TextBody = "Mensagem"
'Msg.CC = CC.Text
Msg.Send


//eu pensei em algo parecido com isso


Dim Msg 'as CDO.Message
Dim Cof 'as CDO.Configuration
Dim Camp

Set Msg = CreateObject("CDO.Message")
Set Cof = CreateObject("CDO.Configuration")
Set Camp = CreateObject("Cof.Fields")

Camp.Item(cdoSendUsingMethod) = 2
Camp.Item(cdoSMTPServer) = "Servidor"
Camp.Item(cdoSMTPConnectionTimeout) = 20
Camp.Item(cdoSMTPAuthenticate) = 1
Camp.Item(cdoSendUserName) = "usuario"
Camp.Item(cdoSendPassword) = 12345
Camp.Update

Set Msg.Configuration = Cof

Msg.To = "<mmatiusso@dominio.com.br>"
Msg.From = "<mmatiusso@dominio.com.br>"
Msg.Subject = "Assunto"
Msg.TextBody = "Mensagem"
'Msg.CC = CC.Text
Msg.Send

só que da erro na linha -> Set Camp = CreateObject("Cof.Fields")...