Estoy intentando enviar faxes desde una aplicación web, utilizando el objeto
cdo, dado que en el servidor de correo, un exchange 2000, tenemos tambien
instalado el GFI faxmaker 9.
El problema parece estar en que el objeto cdo no acepta la nomenclatura que
se usa desde Outlook para enviar faxes, que es escribir en la dirección
[fax:numerodetelefono]
Es curioso, porque desde webmail si podemos enviar faxes sin problemas.
El código que estoy usando es el siguiente:
Dim iMsg
Dim iConf
Dim Flds
Dim strSmartHost 'OK
Const cdoSendUsingPort = 2
StrSmartHost = "ServidorCorreo"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds'ok
.item("
http://schemas.microsoft.com/cdo/co...cate") = 1
.item("
http://schemas.microsoft.com/cdo/co...name") (nombre usuario validado en el dominio)
.item ("
http://schemas.microsoft.com/cdo/co...word") (clave correcta)
.Item("
http://schemas.microsoft.com/cdo/co...sing") cdoSendUsingPort
.Item("
http://schemas.microsoft.com/cdo/co...rver") strSmartHost
.Item("
http://schemas.microsoft.com/cdo/co...eout"
) = 10
.Update
End With
With iMsg
Set .Configuration = iConf
.textbody="Un envío de prueba"
.To = "[fax:"'&request.form("telefono")&"]"
.From = remitente
.Subject = "Una prueba de fax"
.Send
End with
Pero da error: 8004020f'
¿Cómo podría hacerlo funcionar? No me importa que sea en ASP o ASP NET
Leer las respuestas