My codes generate the error 287 at the objMail.Send. I think the path is
wrong, but I don't know why. If I use "On Error Resume Next" above the Send,
then there is no error popping up, but there is no email sent, either. Please
show me how to fix it. Thank you.
------
strDocName = "frmStud"
DoCmd.openfORM strDocName, acPreview, , "studId='" & glbStudId & "'"
FileName = strDocName & ".pdf"
DoCmd.OutputTo acOutputForm, strDocName, acFormatPDF,
"C:\Temp\StudentForms\" & FileName, False
‘==========================================
'Using Outlook programming codes ....
'==========================================
Dim objOutlook As Object
Dim objMail As Outlook.MailItem

Set objOutlook = CreateObject("Outlook.application")
Set objMail = objOutlook.CreateItem(olMailItem)

objMail.To = "(E-Mail Removed)"
objMail.Subject = "test sending a form"

objMail.Attachments.Add "C:\Temp\StudentForms\" & FileName

'On Error Resume Next
objMail.Send
Set objOutlook = Nothing

Take a look at

http://www.devhut.net/index.php?lang...13#OutlookAuto

For a full Outlook automation function example which you can either simply
use or use to fix your code with.
--
Hope this helps,

Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples: http://www.devhut.net
Please rate this post using the vote buttons if it was helpful.



"Tim" wrote:

> My codes generate the error 287 at the objMail.Send. I think the path is
> wrong, but I don't know why. If I use "On Error Resume Next" above the Send,
> then there is no error popping up, but there is no email sent, either. Please
> show me how to fix it. Thank you.
> ------
> strDocName = "frmStud"
> DoCmd.openfORM strDocName, acPreview, , "studId='" & glbStudId & "'"
> FileName = strDocName & ".pdf"
> DoCmd.OutputTo acOutputForm, strDocName, acFormatPDF,
> "C:\Temp\StudentForms\" & FileName, False
> ‘==========================================
> 'Using Outlook programming codes ....
> '==========================================
> Dim objOutlook As Object
> Dim objMail As Outlook.MailItem
>
> Set objOutlook = CreateObject("Outlook.application")
> Set objMail = objOutlook.CreateItem(olMailItem)
>
> objMail.To = "(E-Mail Removed)"
> objMail.Subject = "test sending a form"
>
> objMail.Attachments.Add "C:\Temp\StudentForms\" & FileName
>
> 'On Error Resume Next
> objMail.Send
> Set objOutlook = Nothing
>
>

Hi Daniel, Thank you for the link, but for my program, it does NOT pop up the
Outlook security warning. The execution reaches "objMail.Send" code and then
jump down to these lines of codes
Err_Handler:
MsgBox Err.Description & " " & Err.Number

Where it describles the error message 287.

Do you think it's because of the configuration of the exchange
server/account? Thank you,



"Daniel Pineault" wrote:

> Take a look at
>
> http://www.devhut.net/index.php?lang...13#OutlookAuto
>
> For a full Outlook automation function example which you can either simply
> use or use to fix your code with.
> --
> Hope this helps,
>
> Daniel Pineault
> http://www.cardaconsultants.com/
> For Access Tips and Examples: http://www.devhut.net
> Please rate this post using the vote buttons if it was helpful.
>
>
>
> "Tim" wrote:
>
> > My codes generate the error 287 at the objMail.Send. I think the path is
> > wrong, but I don't know why. If I use "On Error Resume Next" above the Send,
> > then there is no error popping up, but there is no email sent, either. Please
> > show me how to fix it. Thank you.
> > ------
> > strDocName = "frmStud"
> > DoCmd.openfORM strDocName, acPreview, , "studId='" & glbStudId & "'"
> > FileName = strDocName & ".pdf"
> > DoCmd.OutputTo acOutputForm, strDocName, acFormatPDF,
> > "C:\Temp\StudentForms\" & FileName, False
> > ‘==========================================
> > 'Using Outlook programming codes ....
> > '==========================================
> > Dim objOutlook As Object
> > Dim objMail As Outlook.MailItem
> >
> > Set objOutlook = CreateObject("Outlook.application")
> > Set objMail = objOutlook.CreateItem(olMailItem)
> >
> > objMail.To = "(E-Mail Removed)"
> > objMail.Subject = "test sending a form"
> >
> > objMail.Attachments.Add "C:\Temp\StudentForms\" & FileName
> >
> > 'On Error Resume Next
> > objMail.Send
> > Set objOutlook = Nothing
> >
> >

Daniel,

Did you ever fix the problem you had with Access 2007? We are having the same problem trying to send emails through Access 2007. I have found many posts where other people were able to get the same code to work. We also think it is either an Access or an Outlook setting and we cannot figure out what it is. Have you resolved your issue?

Jill

> On Friday, April 09, 2010 10:51 AM Tim wrote:

> My codes generate the error 287 at the objMail.Send. I think the path is
> wrong, but I do not know why. If I use "On Error Resume Next" above the Send,
> then there is no error popping up, but there is no email sent, either. Please
> show me how to fix it. Thank you.
> ------
> strDocName = "frmStud"
> DoCmd.openfORM strDocName, acPreview, , "studId='" & glbStudId & "'"
> FileName = strDocName & ".pdf"
> DoCmd.OutputTo acOutputForm, strDocName, acFormatPDF,
> "C:\Temp\StudentForms\" & FileName, False
> ???==========================================
> 'Using Outlook programming codes ....
> '==========================================
> Dim objOutlook As Object
> Dim objMail As Outlook.MailItem
>
> Set objOutlook = CreateObject("Outlook.application")
> Set objMail = objOutlook.CreateItem(olMailItem)
>
> objMail.To = "(E-Mail Removed)"
> objMail.Subject = "test sending a form"
>
> objMail.Attachments.Add "C:\Temp\StudentForms\" & FileName
>
> 'On Error Resume Next
> objMail.Send
> Set objOutlook = Nothing


>> On Saturday, April 10, 2010 10:38 AM Daniel Pineault wrote:

>> Take a look at
>>
>> http://www.devhut.net/index.php?lang...13#OutlookAuto
>>
>> For a full Outlook automation function example which you can either simply
>> use or use to fix your code with.
>> --
>> Hope this helps,
>>
>> Daniel Pineault
>> http://www.cardaconsultants.com/
>> For Access Tips and Examples: http://www.devhut.net
>> Please rate this post using the vote buttons if it was helpful.
>>
>>
>>
>> "Tim" wrote:


>>> On Monday, April 12, 2010 2:55 PM Tim wrote:

>>> Hi Daniel, Thank you for the link, but for my program, it does NOT pop up the
>>> Outlook security warning. The execution reaches "objMail.Send" code and then
>>> jump down to these lines of codes
>>> Err_Handler:
>>> MsgBox Err.Description & " " & Err.Number
>>>
>>> Where it describles the error message 287.
>>>
>>> Do you think it is because of the configuration of the exchange
>>> server/account? Thank you,
>>>
>>>
>>>
>>> "Daniel Pineault" wrote:


>>> Submitted via EggHeadCafe - Software Developer Portal of Choice
>>> Mocking WCF Services Using Moq
>>> http://www.eggheadcafe.com/tutorials...using-moq.aspx

[braidedmane]

In case anyone is frantically searching around for this answer (like I was) I finally found what MY issue was...

Outlook has to be opened. CreateObject was not sufficient for this. When I added this to my code, it fixed the problem:

Shell "Outlook.exe" 'Opens Outlook

Bla bla code goes here

Shell "taskkill /IM Outlook.exe" 'Closes Outlook again when code is finished (optional)