CreateObject ("Outlook.Application") no longer works in Office 2010

[crackod93]

Hi all,

wondering if anyone knows how to get this working, previously when using Office 2007 (Excel and Outlook), the piece of code below was working fine, however since being forced to upgrade to Office 2010, it no longer works.

Code is:

Set mobjOutlook = CreateObject("Outlook.Application")

Any ideas?

thanks,
Dave

 

[crackod93]

hi, okay not entirely sure what has happened, but it appears to be a problem with my Office installation.

I tried some of the suggestions posted on the forum - thank you all for these! - but still no joy. Ive just completed a 'repair' of the Office 2010 suite and hey-presto, its working once again without the need for any further changes

thanks everyone for your vested time in helping with this, most appreciated!

 

[thaynamardegan]

Hello MrExcel MVP,

I tried to use your code, bu t I need to put an another condition, for example, just send the email if one date present in my plan is less than the current date. Where I can put this condition in your code? I tried some times, but the program was running just with the first line and did not take into account the condition. Can you help me? if you prefer, i can put my plan or my program here to you understand better.
Thank you

Thayná

 

[ZVI]

Hello MrExcel MVP,

I tried to use your code, bu t I need to put an another condition, for example, just send the email if one date present in my plan is less than the current date. Where I can put this condition in your code? I tried some times, but the program was running just with the first line and did not take into account the condition. Can you help me? if you prefer, i can put my plan or my program here to you understand better.
Thank you

Thayná

Hi Thayná, welcome to the MrExcel Board!
In case the triggering date is in the cell "A1" try using the bellow code, press F8 and run the SendIfDate

Sub SendIfDate()
 
  Const DateCell = "A1" '<-- Write the correct address of the date cell
 
  If Range(DateCell).Value < Now Then
    'Date in DateCell is less than Now - send workbook
    Call Mail_workbook_Outlook
  End If
 
End Sub
 
Sub Mail_workbook_Outlook()
  ' ... use code of the post #10 here
End Sub

Regards