Thanks, Russ, I just happened by <g>
I see a couple of problems. First of all I'm surprised that the CDO
code isn't triggering the security prompts when a recipient is added
to the message and when the .Send method is used. Outlook 2000 SP2 and
later restrict those things from CDO code. And even in Outlook 2003,
where Outlook VBA code is intrinsically trusted, any CDO code or
Outlook automation code that accesses restricted properties and
methods will trigger the security prompts.
Can you (the original poster) send a fax manually using a TIF
attachment? Usually adding an attachment to a fax and having it work
is a matter of a correctly defined Print verb in the properties of
that attachment type. If you can send it manually it should be
sendable using code. There's no special restrictions on sending TIF
attachments in any Outlook version.
Also, that CDO logon bothers me. If Outlook is running it really
should be a piggy-back logon:
objSession.Logon "", "", False, False
If Outlook isn't running the logon used would need some sort of logon
arguments.
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginners Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm
"Russ Valentine [MVP-Outlook]" <(E-Mail Removed)> wrote in message
news:#(E-Mail Removed)...
> You might want to post in one of the programming groups, too. Not
sure
> you're going to get the programming traffic in here that could help,
unless
> Ken Slovak happens by.
> --
> Russ Valentine
> [MVP-Outlook]
> "David" <(E-Mail Removed)> wrote in message
> news:1u56veiemsc7s$.(E-Mail Removed)...
> > Dear All
> >
> > I am having problems with mapi sending faxes with Outlook 2000
sp3, xp and
> > 2003. Early version are ok. I am getting to a point where I think
it may
> be
> > a security issue. Sending a normal fax is ok, but if I attach a
*.tif file
> > it comes up undeliverable with the message
> >
> > The Microsoft Fax transport failed to deliver the message to the
> recipient.
> > Not all attachments can be rendered.
> >
> > Here is my code, I have changed the fax number.
> >
> >
> >
> > objSession = CreateObject("Mapi.Session")
> > objSession.Logon ()
> > MESSAGEBOX("CDO version installed is "+trans(objSession.Version))
> > objMessage = objSession.Outbox.Messages.Add
> > objMessage.Subject = "Test"
> > objMessage.Text = "This is a test with an attachment"
> >
> > objRecipient = objMessage.Recipients.Add
> > objRecipient.Name = "[FAX:5555555555]"
> > objRecipient.Type = 1
> > objRecipient.Resolve ()
> > objAttachment = objMessage.Attachments.Add()
> > objAttachment.Position = 0
> > objAttachment.Type = 1
> > objAttachment.ReadFromFile("C:\B.TIF")
> > objAttachment.Source = "C:\B.TIF"
> > objAttachment.Name = "B.TIF"
> > objMessage.Send ()
> > objSession.Logoff
> >
> > Thank you for any help
> >
> > David
> > Anagram Systems Limited
> > work email: (E-Mail Removed)
> >
>
>