Sign in with
Sign up | Sign in
Your question

Seding fax using Right Fax, Fax Sr.

Last response: in Windows XP
Share
Anonymous
July 18, 2005 11:46:14 AM

Archived from groups: microsoft.public.windowsxp.general (More info?)

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://schemas.microsoft.com/cdo/configuration/sendusin...") =
cdoSendUsingPort
'ToDo: Enter name or IP address of remote SMTP server.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserv...") =
"PPLZEXC01.osb.com"

..Item("http://schemas.microsoft.com/cdo/configuration/smtpconn...")
= 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 = "bmanchi@ohiosavings.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

More about : seding fax fax fax

Anonymous
July 18, 2005 4:37:05 PM

Archived from groups: microsoft.public.windowsxp.general (More info?)

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.

kurttrail wrote:
> Helpseeker wrote:
> > 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://schemas.microsoft.com/cdo/configuration/sendusin...") =
> > cdoSendUsingPort
> > 'ToDo: Enter name or IP address of remote SMTP server.
> > .Item("http://schemas.microsoft.com/cdo/configuration/smtpserv...")
> > = "PPLZEXC01.osb.com"
> >
> > .Item("http://schemas.microsoft.com/cdo/configuration/smtpconn...")
> > = 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 = "bmanchi@ohiosavings.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.
>
> And what does your query have to do with WINDOWS XP?
>
> --
> Peace!
> Kurt
> Self-anointed Moderator
> microscum.pubic.windowsexp.gonorrhea
> http://microscum.com/mscommunity
> "Trustworthy Computing" is only another example of an Oxymoron!
> "Produkt-Aktivierung macht frei"
Anonymous
July 18, 2005 7:02:12 PM

Archived from groups: microsoft.public.windowsxp.general (More info?)

Helpseeker wrote:
> 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://schemas.microsoft.com/cdo/configuration/sendusin...") =
> cdoSendUsingPort
> 'ToDo: Enter name or IP address of remote SMTP server.
> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserv...")
> = "PPLZEXC01.osb.com"
>
> .Item("http://schemas.microsoft.com/cdo/configuration/smtpconn...")
> = 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 = "bmanchi@ohiosavings.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.

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

--
Peace!
Kurt
Self-anointed Moderator
microscum.pubic.windowsexp.gonorrhea
http://microscum.com/mscommunity
"Trustworthy Computing" is only another example of an Oxymoron!
"Produkt-Aktivierung macht frei"
Anonymous
July 18, 2005 8:41:54 PM

Archived from groups: microsoft.public.windowsxp.general (More info?)

helpseeker wrote:
> 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.

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://microscum.com/mscommunity
"Trustworthy Computing" is only another example of an Oxymoron!
"Produkt-Aktivierung macht frei"
!