Exchange Server

Zoury · Guest

Hi folks! :O)

i've been trying to send faxes using the CDO.Message object and i finally
got it to work! :OD

here's a sample of my code
'***
' Add a reference to Microsoft CDO for Exchange 2000 Library
' Module1
Option Explicit

Private Sub Main()

Dim m As CDO.Message
Set m = New CDO.Message

With m
.From = "Me <my@email.address>"
.To = "9999999" ' the targeted fax number
.Subject = "test fax"
.TextBody = "this is another test fax"
With .Configuration.Fields
.Item(CDO.cdoSMTPServer) = "my_fax_server.domain" ' the fax
server used to send the fax
.Item(CDO.cdoSMTPServerPort) = 25 ' i'm using the smtp
port.. the problem might be here...
.Item(CDO.cdoSendUsingMethod) = CDO.cdoSendUsingPort
.Update
End With
.Send
End With

End Sub
'***

the problem i'm facing is that its send a whole lot of faxes... it keeps
printing the same page over and over.
has anyone facing this behavior and knows how to prevent it ?

thanks a lot !

--
Best Regards
Yanick

Zoury · Guest

I've talked to someone in charge of the fax service and he told me that,
usually, the method showed in my previous message isn't supposed to work..
Basically the fax was sent the fax server who sent the fax as expected but
also returned it as a mail to Outlook which was resending a fax to the
server and so on... (i didn't understood why exactly..)

anyway, i'll try something else..

--
Best Regards
Yanick

	Exchange Server Forum Index -> Development	All times are GMT
Page 1 of 1