Hello all,

Really hoping one of you great folks can help me out. I would really like to get Launchy working. I am using a modified version of the Lifehacker .VBS script.

Unfortunately, our company proxy seems to be prohibiting access to Gmail this way. When I am on an open network, all is fine. When I connect to our corporate network, I am getting a VBS error "The transport failed to connect to the server" and a code of 80040213. Very repeatable, obviously our proxy.

Questions:
- If I cannot connect via VBS, how is Chrome getting to the site? I assume just using Port 80 as a standard website, but if so, can't I exploit that method somehow?
- Is there some other setting that I should use? (script contents below)
- Since I use Rmilk offline, using Google Gears, would there be a way to write to the local version and have Gears take care of it for me?

Thanks for the help!
Pete

Script (with passwords removed)

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "paustin@worldedi.com"
Flds.Item(schema & "sendpassword") = "<"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

subject = wscript.arguments.item(0)

If wscript.arguments.item(2) <> "" Then
body = body & "List: " & wscript.arguments.item(2) & Chr(13) & Chr(10)
End If
If wscript.arguments.item(3) <> "" Then
body = body & "Priority: " & wscript.arguments.item(3) & Chr(13) & Chr(10)
End If
If wscript.arguments.item(4) <> "" Then
body = body & "Tags: " & wscript.arguments.item(4) & Chr(13) & Chr(10)
End If
If wscript.arguments.item(5) <> "" Then
body = body & "---" & Chr(13) & Chr(10) & wscript.arguments.item(5) & Chr(13) & Chr(10) & "---"
End If

With iMsg
.To = "<< removed >>"
.From = "paustin@worldedi.com"
.Subject = wscript.arguments.item(0)
.TextBody = ""
.Sender = " "
.Organization = " "
.ReplyTo = " "
Set .Configuration = iConf
SendEmailGmail = .Send
End With

set iMsg = nothing
set iConf = nothing
set Flds = nothing