Monday, March 02, 2009

Creating Emails based on a Twitter feed / Friends timeline status updates

Continuing on from my previous post about posting your current Exchange calendar appointments as twitter status updates this script explores some more creative uses of the Twitter and Exchange 2007 API's. This script will read your current Twitter account details and grab your friend’s timeline and then create emails in your inbox (or other folder of choice) for each update in your friends twitter timelines (or the people your following). To match up the Received time of the email with the time the status update is posted on Twitter the script sets the necessary mapi properties to make the message appear that it was received at the same time as the status update was posted. To keep track of which updates have been created as email it downloads the latest feed and then on each run it uses Xpath to read the XML file and loads a hashtable which is used to ensure that no status update is created as an email twice. To access Exchange and create the messages in the inbox from the twitter status update it uses some precanned Exchange Web Services code I’ve added to my EWSUtil powershell library.

How does it work?

A quick run through of the script logic is it will first check to see if there is a temp directory on the C:\ and then it will see if there is a file called twitstatus.xml in this directory. If there is no file then the script knows this is the first run and it won’t bother the check to see if the status updates being read from the friend’s timeline have already been created. If the twitstatus.xml file does exist the file is read and a hashtable of the status Id’s is created. The script then reads the twitter friends timeline feed for the configured account and then using Xpath runs through all the status updates in the feed it does a compare to make sure that your own feed Status updates are excluded and also checks the hashtable to ensure that duplicates aren’t created. If it determines that an email should be added from the status update it calls a EWSUtil method that will create a sent email in the folder specified it does a conversion of the internal Twitter date/time to a date/time that can be use used in .NET and Exchange and handles the conversion to UTC. The Twitter Status text is added to both the Subject and the Body of the message this allows any URL to be accessed that are included in the status update.

Using this script

To use this script you need to have a twitter account where your following other peoples twitter updates. If you have no twitter friends try your Federal politicians. You need to configure the following two variables with your twitter account details

$twitterusername = "username"
$twitterpassword = "password"

Then you need to fill out the following Exchange variables in

$ExchangeServername = "servername"

Put the serverName of youy CAS server Then

$emEmailAddress = “”

Put the email address of the Exchange Mailbox where you want to create the updates.In

$userName = "twittest"
$password = "Password"
$domain = "domain"

Put a Username and password that has access to this account if you’re using a Cloud mailbox such as a account set the domain to blank and use something like

$emEmailAddress = ""
$userName = ""
$password = "youpassword"
$domain = ""

This script requires the latest copy of the EWSUtil which you can download from here I’ve put a download of the script here the script itself looks like.

$twitterusername = "username"
$twitterpassword = "password"
$ExchangeServername = "servername"
$emEmailAddress = ""
$userName = "twittest"
$password = "Password"
$domain = "domain"

$casURL = "https://" + $ExchangeServername + "/EWS/Exchange.asmx"

$statushash = @{ }

function convertTwitterTime($ptim){
$year = $ptim.Substring(26,4)
$month = $ptim.Substring(4,3)
$day = $ptim.Substring(0,3)
$dayNum = $ptim.Substring(8,2)
$time = $ptim.Substring(11,8)
$combTime = $day + " " + $dayNum + " " + $month + " " + $year + " " + $time + " GMT"
$convertedTime = [DateTime]::Parse($combTime)
return $convertedTime.ToLocalTime()

$TempDir = "c:\Temp"
if (!(Test-Path -path $TempDir))
New-Item $TempDir -type directory
$StatusFile = $TempDir + "\twitStatus.xml"
if (!(Test-Path -path $StatusFile))
"Non Status File First Run ?"
"Status Found"
[xml]$StatusXmlDoc = Get-Content $StatusFile
foreach($status in $StatusXmlDoc.statuses.status){

$ewc = new-object EWSUtil.EWSConnection($emEmailAddress,$false, $userName, $password,$domain, $casURL)
[System.Net.ServicePointManager]::Expect100Continue = $false
$request = [System.Net.WebRequest]::Create("")
$request.Credentials = new-object System.Net.NetworkCredential($twitterusername,$twitterpassword)
$request.Method = "GET"
$request.ContentType = "application/x-www-form-urlencoded"
$response = $request.GetResponse()
$ResponseStream = $response.GetResponseStream()
$ResponseXmlDoc = new-object System.Xml.XmlDocument
$StatusNodes = @($ResponseXmlDoc.getElementsByTagName("status"))
for($snodes=0;$snodes -lt $StatusNodes.Length;$snodes++){
if ($statushash.Containskey($StatusNodes[$snodes].id) -eq $false){
if ($twitterusername -ne $StatusNodes[$snodes].user.screen_name){
[EWSUtil.EWS.DistinguishedFolderIdType] $dType = new-object EWSUtil.EWS.DistinguishedFolderIdType
$dType.Id = [EWSUtil.EWS.DistinguishedFolderIdNameType]::inbox
$time = convertTwitterTime($StatusNodes[$snodes].created_at)
$ewc.CreateTwitMail($dType,$time,$StatusNodes[$snodes].user.Name.Replace(" ","") + "",$StatusNodes[$snodes].user.Name,$StatusNodes[$snodes].text)
$ResponseXmlDoc.Save($TempDir + "\twitStatus.xml")

1 comment:

AndreaErMeio said...

Hi Glen,

I want you to ask a thing... I've create a .net web service that, with ExOleDb provider, allow user to talk with the exchange server directly.. all the procedure work fine, but I'm in trouble with a folder that retrieve me the error "Archive error is not provided %1!d! (0x%1!8.8x!)" when i open the record to add. I specify that if I add an item with my function to the other folder, the item is added well.

I use the following instruction to open the record:

Rec = New ADODB.Record
Rec.Open(PathItem, , ADODB.ConnectModeEnum.adModeReadWrite, ADODB.RecordCreateOptionsEnum.adCreateNonCollection + ADODB.RecordCreateOptionsEnum.adCreateOverwrite)

Naturally the path item variable is url encoded and contain the folder path (file:\\.\backofficestorage\ ecc) and the name of the element...

is this a known problem? there are a fix or a suggestion for me?

Thanks a lot for your further reply