Thanks for the suggestion; I am either doing it wrongly or it's not the cause of the problem.  The exact same error is still occurring on some machines and my code now looks like this:
 
Public Sub send_email_externally(EMail_who_to, Email_subject, Email_Message, Optional Email_attachment)

  'Make Outlook message
  '====================
  Dim ol As New Outlook.Application
  Dim olItem As Outlook.MailItem
  Const olMailItem = 0
 
  Set olItem = ol.CreateItem(olMailItem)
 
-----Original Message-----
From: AccessDevelopers@yahoogroups.com [mailto:[EMAIL PROTECTED]On Behalf Of Lava Boggavarapu
Sent: 20 December 2005 15:44
To: AccessDevelopers@yahoogroups.com
Subject: RE: [AccessDevelopers] Problems emailing from Access 2003

I had this problem once.

 

You will need to pass in the actual value (0, I think). Some versions, don’t resolve this constant to the actual value.

 

Lava

 




Please zip all files prior to uploading to Files section.




YAHOO! GROUPS LINKS




Reply via email to