Excel 'informa...
 

  You don't need to be an 'investor' to invest in Singletrack: 6 days left: 95% of target - Find out more

[Closed] Excel 'information' pushed to ical, outlook/google calendar etc

6 Posts
2 Users
0 Reactions
58 Views
Posts: 0
Free Member
Topic starter
 

Hello all,

Just had a quick search on the net and I can't see anything obvious, so I will ask the collective STW minds...

I have data in excel that is related to dates in a calendar.

I want to send this data to a calendar(s) that are both my own, and others in a research group.

Is it possible to upload this information to a 'site/server' or similar (this my be incorrect IT speak - please excuse my ignorance) and then have it be 'pushed' to peoples calendars?

Any thoughts would be gratefully received.


 
Posted : 26/10/2012 9:50 pm
Posts: 13594
Free Member
 

Almost certainly using VBA - you can interact with Outlook and hence Exchange from within Excel, using VBA.

Have a look using Google eg:

http://www.pcreview.co.uk/forums/controlling-outlook-excel-using-vba-t1837173.html


 
Posted : 26/10/2012 9:52 pm
Posts: 13594
Free Member
 

The simplest way would be to send calender invites, via Outlook, but use Excel VBA to drive Outlook and create / send the invites.

I've got Excel to send emails via Outlook eg notify me, with an email, if an error case occurs in an Excel application.


 
Posted : 26/10/2012 9:54 pm
Posts: 0
Free Member
Topic starter
 

Oh, this sounds clever! Thank you. I will have a look now.


 
Posted : 26/10/2012 9:57 pm
Posts: 13594
Free Member
 

OK, just had a look and the code I used came from: http://www.rondebruin.nl/cdo.htm


 
Posted : 26/10/2012 10:02 pm
Posts: 13594
Free Member
 

To send an email from Excel VBA:

Public Sub Mail_small_Text_Outlook(ByVal strbody As String, ByVal Recipient As String)

'Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = Recipient
.CC = ""
.BCC = ""
.Subject = ""
.Body = strbody
'You can add a file like this
'.Attachments.Add ("C:\test.txt")
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub


 
Posted : 26/10/2012 10:04 pm
Posts: 0
Free Member
Topic starter
 

Footflaps - thank you!

If only I knew what all that lot meant. I will read around the subject a little.


 
Posted : 26/10/2012 10:13 pm

6 DAYS LEFT
We are currently at 95% of our target!