Seding fax using Right Fax, Fax Sr.

Seding fax using Right Fax, Fax Sr.

Post by SGVscHNlZW » Tue, 19 Jul 2005 23:46:14


Hi all,
I have a situation where I am able to send fax through Outlook client on my
machine but when i try to do the same thing using CDO from vbscript it doesnt
work. How do I simulate the functionality of outlook client using CDO object?
Here is the code I am trying to use. For fax we are using Fax sr. software.
If this is not the right place to post, please indicate where to post.
*************************************************************
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPort = 2

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

Set Flds = iConf.Fields

' Set the CDOSYS configuration fields to use port 25 on the SMTP server.

With Flds
.Item(" http://www.yqcomputer.com/ ") =
cdoSendUsingPort
'ToDo: Enter name or IP address of remote SMTP server.
.Item(" http://www.yqcomputer.com/ ") =
"PPLZEXC01.osb.com"

.Item(" http://www.yqcomputer.com/ ")
= 10
.Update
End With

' Build HTML for message body.
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

' Apply the settings to the message.
With iMsg
Set .Configuration = iConf
.To = "[FAX:2165885054]" 'ToDo: Enter a valid email address.
.From = " XXXX@XXXXX.COM " 'ToDo: Enter a valid email address.
.Subject = "This is a test CDOSYS message (Sent via Port 25)"
.HTMLBody = strHTML
.Send
End With

' Clean up variables.
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

MsgBox "Mail Sent!"
*******************************************
Any help is greatly appreciated
Thanks.
--
Never Say Die
 
 
 

Seding fax using Right Fax, Fax Sr.

Post by kurttrai » Wed, 20 Jul 2005 04:02:12


And what does your query have to do with WINDOWS XP?

--
Peace!
Kurt
Self-anointed Moderator
microscum.pubic.windowsexp.gonorrhea
http://www.yqcomputer.com/
"Trustworthy Computing" is only another example of an Oxymoron!
"Produkt-Aktivierung macht frei"

 
 
 

Seding fax using Right Fax, Fax Sr.

Post by helpseeke » Wed, 20 Jul 2005 04:37:05

Previously I posted the same query somewhere else, and I was asked to
post this is in windows Xp.
Thats fine, do u think it belongs to Outlook ? Please advice
Thanks.
 
 
 

Seding fax using Right Fax, Fax Sr.

Post by kurttrai » Wed, 20 Jul 2005 05:41:54


Is Fax sr. a MS program? You should check with their support, or maybe
in VB script groups.

--
Peace!
Kurt
Self-anointed Moderator
microscum.pubic.windowsexp.gonorrhea
http://www.yqcomputer.com/
"Trustworthy Computing" is only another example of an Oxymoron!
"Produkt-Aktivierung macht frei"