Recent content by tozey

Thanks Minty, I really appreciate the help. If I succeed I shall report back :) All the best Alex

Thanks Minty The result is the same whether Outlook is opened or closed, if closed it takes a few seconds to display the email, however when it comes to send, same result. I have a feeling it has something to do with the security set up, again, works fine on XP system....grrrrrrrrr..:banghead...

Thanks Minty the .display works fine, brings the email up with the data provided. removing the error resume shows that the error is the same as before at .send Run-time error '287': Application-defined or object-defined error I ultimately want to loop this and send out a batch of emails at...

the plot thickens Applied the code, changed the Variable_To and Variable_subject to my chosen address and subject replaced the .display with .send near the bottom WinXP, the email opens and sends no problem Win7, the email opens, the relevant fields are updated however stepping through, it...

Thank Minty, I shall apply and let you know how I get on. Regards Alex

thanks for the reply Minty Unfortuantely its throwing the same error at the .send stage Run-time error '287': Application-defined or object-defined error Really dont know why it would work on one OS and not another. Appreciate you taking the time to look

Just tried this but getting same runtime error at the .send part Sub sendOutlookEmail() Dim oApp As Object Dim oMail As Object Set oApp = CreateObject("Outlook.Application") oApp.Session.Logon Set oMail = oApp.CreateItem(olMailItem) oMail.Body = "Body of the email" oMail.Subject = "Test...

Sorry Minty My knowledge is limited and "Early Binding" doesnt really mean anything to me lol :confused: I am one of those guys that copy and pastes stuff I find and pick it up as I go along, excuse my ignorance. :) one day, I might have some proper training :banghead: So I tried this Sub...

hi Ranman256 I have Outlook 14 Object Library reference ticked as well as others (listed above) Not sure of anything else I need to do, again it works on the other system? cheers Alex

Hi all. Pulling my hair out with this. I have 2 PC's one running Win XP and one running Win 7 Both have Office 2010 I can run the following code with no problem on the PC running XP, however on the Win 7 PC I get an error, details below Sub sendOutlookEmail() Dim oApp As Outlook.Application...

Thanks for this, I have managed now to go down the route of save the report as RTF then attach and send. Its not ideal and didnt want the extra step of having to save the document but it isnt really any extra hassle once its set up. Thanks for taking the time to reply.

Hello I have managed to send a mail and bypass the Outlook security message by using this code Sub SendMail() Dim outl As Outlook.Application Set outl = New Outlook.Application Dim mi As Outlook.mailitem Set mi = outl.CreateItem(olMailItem) mi.Body = "Hello" mi.Subject = "Please Read" mi.To...

Thank you, attention to detail wins again!!! Thank you...

Hello all is it possible to add the results of a dcount in a message body, I have tried many combinations of code and searched the net but cannot see if it is possible or not. like this in the message body text: DoCmd.SendObject acSendQuery, "my_query", acFormatXLS, "Joe Bloggs", , ...

Is anyone able to help? thanks again.