Have you tried python? If I were to attempt this, I’d probably write a python script to check a gmail account, grab the most recent email, take the subject line and append it to my text file…

Ignoring the “do this every X seconds/minutes” part of the code, the basic idea would be something like:

import imaplib
import re
import string

#now that you have the inbox selected, get the first message's header:
val = m.fetch(startstr, '(BODY[HEADER] FLAGS)')
header = val[1][0][1]
subre = re.compile(r'Subject:.*\r')
subre2 = subre.search(header)
subject = subre2.group()
#now that you have the subject, append that to your text file
myfile = open("todo.txt", 'w')
#this line is probably wrong:
myfile.write(subject) #CHECK THIS BEFORE YOU TRY IT...


Let me know if you actually try this, I’d be curious to see if it works :)

Good luck!
~ab

How would you approach such a task?

Imports System
Imports System.IO
Imports System.Collections
Imports System.ComponentModel
Imports Google.GData.Client
Imports Google.GData.Extensions
Imports Google.GData.Calendar
Module main
Public Sub Main()
Dim vars() As String
Dim myService = New CalendarService("Cal")
Dim myEntry = New EventEntry()
Dim postUri = New Uri("http://www.google.com/calendar/feeds/default/private/full")
vars = Command.Split("_")
Dim username As String = vars(0)
Dim password As String = vars(1)
Dim quickadd As String = vars(2)
myService.setUserCredentials(username, password)
myEntry.QuickAdd = True
myEntry.Content.Content = quickadd

myService.Insert(postUri, myEntry)
End Sub
End Module

Thanks for your help!

~ab

is possibel, please, could you explain me how to do it? I think i’m doing something wrong because its always crashing. Not sure what i’m doing wrong.
If i use win+G shourtcut, on the pop up text, I type the event and everything works fine, if I use ms-dos and CLgCAL.exe alone, it’s not working, maybe i’m passing the wrong parameters.
can you give me an exemple please.

Thanks!

Hope that helps!
~ab

~ab

Imports System
Imports System.Net.Mail

Public Module Module1
‘Original CLGmail was posted on justanaskterisk.com
‘ modified 2/2010 by SR to allow choice of separator characters
‘ and newlines in the body of the message and add some
‘ error checking and recovery
‘ invoke as
‘ CLGmail +username+password+server+port+emaildest+Subject+body
‘ where the “+” used to separate the fields in the command
‘ line is any command-line legal character (such as +#^)
‘ that won’t occur in any field except the body (where it will be
‘ replaced by a newline (LF or CR/LF).
Sub Main()
‘get instance of system.net.mail.smtpClient (which does the work
‘ of sending the encoded email)
Dim SmtpMail As New System.Net.Mail.SmtpClient

‘set up variables before use
‘give initial null values to make compiler happy
Dim username As String = “” ‘including the @domain.com (e.g. user@gmail.com)
Dim password As String = “” ‘case sensitive
Dim emaildest As String = “” ‘message receipient’s address
Dim Subj As String = “” ‘Subject of Mail
Dim Body As String = “” ‘Message
Dim Server As String = “” ‘Server Name; smtp.gmail.com for gmail
Dim Port As String ‘ normally 587 for Gmail
Dim commandparts() As String = {“”, “”} ‘array to hold command line parts

‘set up defaults
Dim splitchar As String = “,”
Dim thiscommand As String = Command() ‘default to command line parameters
Dim lastcommandpart As Integer = 2
If thiscommand.Length < 5 Then
thiscommand = "+SMTP command not provided yet"
End If

'Enclosed within Try-Catch block to process errors
Try
'we need 7 parameters to send mail (#0 to #6)
Do Until lastcommandpart = 6
'allow user to abort if parameters not available
If thiscommand.Length < 5 Then
Throw New System.Exception("SMTPmail bad parameters")
End If
'make first char of data string the split character
splitchar = Left(thiscommand, 1)
thiscommand = Mid(thiscommand, 2)
'we know lf can't be in command line, so use it to ignore body for now
thiscommand = Replace(thiscommand, splitchar, vbLf, 1, 6)
commandparts = thiscommand.Split(vbLf)
lastcommandpart = commandparts.GetUpperBound(0)
' if number of parts 6, allow user to fix
If lastcommandpart 6 Then
thiscommand = InputBox(“Expected 6 parts but found ” & CStr(lastcommandpart) & vbCrLf & “SMTP string?(lf-splitchar,0user,1paswd,2server,3port,4to,5sub,6body”, thiscommand)
End If
Loop
‘put command parts into individual variables for clarity of reading
username = commandparts(0)
password = commandparts(1)
Server = commandparts(2)
Port = commandparts(3)
emaildest = commandparts(4)
Subj = commandparts(5)
Body = commandparts(6)
‘split body into lines if required
Body = Body.Replace(splitchar, vbCrLf)

‘Set the SMTP object’s properties
Dim mycredentials As New Net.NetworkCredential(username, password)
SmtpMail.Host = Server
SmtpMail.EnableSsl = True
SmtpMail.Port = Port
SmtpMail.UseDefaultCredentials = False
SmtpMail.Credentials = mycredentials

‘send the message
SmtpMail.Send(username, emaildest, Subj, Body)
‘ if it works, we’re all done
Catch ex As Exception
‘if there was an error, tell calling program about it
MsgBox(“Delivery Failure: ” & ex.Source & ex.Message)
MsgBox(“SMPTP data was:” _
& vbCrLf & “username ” & username _
& vbCrLf & “password ” & password _
& vbCrLf & “Host(server) ” & SmtpMail.Host _
& vbCrLf & ” Port ” & SmtpMail.Port _
& vbCrLf & “emaildest ” & emaildest _
& vbCrLf & “subject ” & Subj _
& vbCrLf & “body ” & Body)
End Try
End Sub
End Module