UFOs - I love this stuff
Labels: UFO
This is my blog on technology related things and maybe some other stuff too...
Labels: UFO
Confirm with your IT staff that device security settings on the server allow access to devices that do not fully support password settings. This option is available in:
Exchange System Manager > Global Settings > Mobile Services > Device Security
If this checkbox was unchecked, you will get a connection failed, although a Windows Mobile device would still sync properly.
The following security settings are supported:
Wipe: PIM data and settings are supported.
Exchange 2003 Device security Settings: NOT supported.
Exchange 2007 Additional Security settings: NOT supported.
Labels: ActiveSync, Mobile Phone, Sony Ericsson, Windows Mobile
Labels: Office 2003, Office 2007
Labels: HTC, Mobile Phone, Sony Ericsson, Windows Mobile
Labels: MySQL
Labels: Facebook, Windows Mobile
"C:\Program Files\MySQL\MySQL Server 5.0\bin\mysqldump" --all-databases -u username --password="password" > c:\backup\%DATE%\Backup_MySQL\backup_all_dbs.sql
"C:\Program Files\MySQL\MySQL Server 5.0\bin\mysql.exe" -uusername -p dbname < c:\backup\2007-12-13\backup_all_dbs.sql
Labels: MySQL
Labels: Firefox, Internet Explorer

Labels: Outlook
Labels: Lotus Notes, Office 2003, Word as Editor in Lotus Notes
Labels: Blogger
Labels: Outlook
Labels: DNS
Labels: SQL Server
<add key="connectionString" value="Database=your_db;Data Source=localhost;User Id=root;Password=password;Allow Zero Datetime=True;"/>If ("" & myDataReader("valid_until")) = "" Then ... UPDATE your_table SET valid_until=null WHERE valid_until LIKE '0000-00-00';World Community Grid is pleased to announce that the Help Defeat Cancer (HDC) project is finished. The last work units have been sent out and when the final results are returned, the project will come to an end. This project, which launched on July 20, 2006, will have run for just over 9 months by the time the last results are returned. During this time 88,000 members will have donated 2,900 years of computer time on 138,000 different computers. This is a significant contribution to cancer research.
Labels: Good stuff
Dim myConnectionString As String = "Database=TestDB;Data Source=localhost;User Id=TestID;Password=TestPwd"
Dim myConnection As New MySqlConnection(myConnectionString)
Dim myCommand As New MySqlCommand("SELECT * FROM testtable", myConnection)
Dim myDataReader As MySqlDataReader
myConnection.Open()
myDataReader = myCommand.ExecuteReader
While myDataReader.Read
Console.WriteLine(myDataReader("testcolumn"))
End While
myDataReader.Close()
myConnection.Close()
So far, Kiva has experienced a 100% repayment rate on all businesses with completed loan terms.
Prior to Kiva, our Field Partners have historically experienced a >96% repayment rate with the poor they serve.
In the past 30 years, over 100 million of the world's poor have received a micro-loan and demonstrated a >95% repayment rate.
Labels: Good stuff
I just upgraded my laptop running XP to Office 2007 and I've also started using my new desktop computer running Vista and Office 2007.
These are a few things that have bugged me and how I made them work (or not):
1) I could no longer run my macros in Outlook 2007.
Whenever I went in to Tools - Macro - Macros, selected my macro and hit run I would end up in the Visual Basic editor with an error message saying "The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros."
I went in to Tools - Macro - Macro Security and first changed from the default "Warnings for signed macros; all unsigned macros are disabled" to "Warnings for all macros" and finally to "No security check for macros" but I still could not get the macros to run.
In spite of a lot of Googling I found nothing. Then I realized I hadn't tried trick no 1 in the book: Restart Outlook. And of course that was the solution. ;-)
(Note to Microsoft: Please add a "Outlook needs to be restarted" message. Note to myself: Don't be so stupid next time around)
A good thing in Outlook 2007 is that I no longer get the "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? ... Allow for x minutes". I assume they have gotten rid of this annoying message and replaced with some security feature that does not require user intervention.
2) Desktop Search 3.0 had my hard drive indicator constantly lit up for 24 hours
After installing Office 2007 on my laptop I activated the built-in search functionality which requires me to download and install Windiows Desktop Search (WDS) 3.0.
After installing WDS my hard drive starts working overtime with the hard disk indicator constantly lit. Needless to say working with any programs is very slow or does not work at all.
I Googled the processes searchindexer.exe and searchprotocol.exe and get the advice to shut down the Windows Search service but it restarts after awhile. After trying various things I figure that maybe it just needs to finish indexing and almost 24 hours later the hard drive indiciator finally goes blank and my 85000+ documents (according to the WDS Indexing status window) are indexed.
So the problem was that 1) the indexing is slow, and 2) it takes up too much resources when you're using the computer (in my case a Celeron laptop running XP with 1.5GB memory).
As I remember it, WDS 2 it only ran when you were not using the computer at all. WDS 3 runs all the time even though the Indexing status window says "Indexing speed is reduced while you use your computer". There really should be more settings when you want WDS to run.
Big plus for WDS 3 though: It works! :-) At least this far. WDS 2 did not (see previous posts).
3) I cannot Copy and Paste files to/from Remote Desktop (RDC) when I'm running Vista
Copy and Paste of text works fine. My remote server is running Windows 2003. My guess is this has to do with some new fancy security setting in Vista but I have not yet found a solution. Any tips are greatly appreciated.
[Update: I got it working, and I think this is actually the way it works in XP too: You need to share a drive to make drag/drop or copy/paste of files work. When you start Remote Desktop, before you connect, click Options - Local Resources - More and then check Drives.]
Labels: Office 2007, Outlook, Windows Vista
Labels: Kiss
I have not yet installed Visual Studio 2005 SP1 (Service Pack) maybe this is something that is also solved there.
Labels: ASP.NET
I guess this is your typical newbie mistake on Windows Vista, but even so I had a hard time finding the solution on Google so I thought I'd post about it.
When I was trying to add a key in the Registry Editor, regedit.exe, I got an error message saying "Cannot create value: Error writing to the registry."
I have never seen this on XP (but then again I don't edit the registry that often), but since this is Vista with UAC (User Account Control) I thought it might have to do with permissions so I tried to run regedit.exe as Administrator but to no avail.

Finally I figured out that I did not have the right permissions in the registry tree.
The solution is simply to right click on the folder and select Permissions. You may not even have the right to change the permissions, if this is the case then first you have to take ownership - click Advanced and then the Owner tab.
Funny thing about my folder is that the owner was a group called "TrustedInstaller". After I had taken ownership, I wanted to change it back to the "TrustedInstaller" group but it was nowhere to be found. Apparently you can't change it back - it is not a group but a service and part of Windows Resource Protection (WRP) as noted by Richard Civil and others in this TechNet post.
Two other useful newbie things I found out - thanks to this post by Tim Sneath of Microsoft - when trying to figure out how to run a regedit.exe as Administrator in Vista was this:
Labels: Windows Vista
Sub GetEmailSender()
' ------------------------------------------------
' --- You may use and/or change this code freely
' --- provided you keep this message
' ---
' --- Description:
' --- Extracts email sender
' --- Runs on all mailitems in current folder that
' --- are unread
' ---
' --- By Max Flodén 2006 - http://www.tjitjing.com
' ------------------------------------------------
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim mySelection As Selection
Dim myItem As Object
Dim myMailItemLog As Outlook.MailItem
Dim myFolder As Outlook.MAPIFolder
Dim strContactFolderName As String 'Directly under Public Folders\All Public Folders
Dim strNewsletterCategoryName As String
Dim strMailItemSender As String
Dim strMailTo As String
Dim intMessageCount As Integer
Dim bolDebug As Boolean 'If true error messages will be shown
Dim strTemp As String
Set myNameSpace = myOlApp.GetNamespace("MAPI")
'Debug settings
bolDebug = True
'Ask to continue - start warning
intRes = MsgBox("This macro will go thru all items in folder." & vbCrLf & "Would like to continue?", vbYesNo + vbQuestion, "Get Email Sender")
If Not intRes = vbYes Then Exit Sub
'Create a new email to use as log file
Set myMailItemLog = myOlApp.CreateItem(olMailItem)
myMailItemLog.Recipients.Add (myNameSpace.CurrentUser)
myMailItemLog.Subject = "Email from Body - " & Now()
myMailItemLog.BodyFormat = olFormatPlain
myMailItemLog.Body = Now() & " Starting..." & vbCrLf & vbCrLf
'Go thru all items in folder
intMessageCount = 0
intMsgCount_Error = 0
For Each myItem In myOlApp.ActiveExplorer.CurrentFolder.Items
If Not TypeName(myItem) = "MailItem" Then
'Errorlog
If bolDebug Then myMailItemLog.Body = myMailItemLog.Body & "ERROR - MESSAGE TYPE IS NOT MAILITEM." & vbCrLf
myItem.UnRead = True
intMsgCount_Error = intMsgCount_Error + 1
ElseIf myItem.UnRead Then
myMailItemLog.Body = myMailItemLog.Body & myItem.SenderEmailAddress & vbCrLf
myItem.UnRead = False
myItem.FlagStatus = olFlagMarked
intMessageCount = intMessageCount + 1
End If
Next
'Done - write to log and show done message
myMailItemLog.Body = myMailItemLog.Body & vbCrLf & Now() & " Done. Email addresses extracted: " & intMessageCount & ". Email addresses NOT extracted: " & intMsgCount_Error & "."
myMailItemLog.Display
MsgBox Now() & " Done. Email addresses extracted: " & intMessageCount & ". Email addresses NOT extracted: " & intMsgCount_Error & ".", vbInformation, "Done"
End Sub
Sub GetEmailFromBody()
' ------------------------------------------------
' --- You may use and/or change this code freely
' --- provided you keep this message
' ---
' --- Description:
' --- Extracts first found email address from body
' --- (used to extract email address from
' --- error messages/returned email)
' --- Runs on all items in current folder
' ---
' --- By Max Flodén 2006 - http://www.tjitjing.com
' ------------------------------------------------
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim mySelection As Selection
Dim myItem As Object
Dim myMailItemLog As Outlook.MailItem
Dim myFolder As Outlook.MAPIFolder
Dim strContactFolderName As String 'Directly under Public Folders\All Public Folders
Dim strNewsletterCategoryName As String
Dim strMailItemSender As String
Dim strMailTo As String
Dim intMessageCount As Integer
Dim bolDebug As Boolean 'If true no emails will be sent
Dim bolOnly550 As Boolean 'Only extract email addresses that are 'user not found' (#550) etc.
Dim strTemp As String
Set myNameSpace = myOlApp.GetNamespace("MAPI")
'Debug settings
bolDebug = True
'Ask to continue - start warning
intRes = MsgBox("This macro will go thru all items in folder." & vbCrLf & "Would like to extract only addresses that have 'user not found'?", vbYesNoCancel + vbQuestion, "Get Email from Body")
If intRes = vbCancel Then
Exit Sub
ElseIf intRes = vbYes Then
bolOnly550 = True
Else
bolOnly550 = False
End If
'Create a new email to use as log file
Set myMailItemLog = myOlApp.CreateItem(olMailItem)
myMailItemLog.Recipients.Add (myNameSpace.CurrentUser)
myMailItemLog.Subject = "Email from Body - " & Now()
myMailItemLog.BodyFormat = olFormatPlain
myMailItemLog.Body = Now() & " Starting..." & vbCrLf & vbCrLf
'Go thru all items in folder
intMessageCount = 0
intMsgCount_Error = 0
For Each myItem In myOlApp.ActiveExplorer.CurrentFolder.Items
If Not TypeName(myItem) = "ReportItem" And Not TypeName(myItem) = "MailItem" Then
'Errorlog
If bolDebug Then myMailItemLog.Body = myMailItemLog.Body & "ERROR - MESSAGE TYPE IS NOT REPORTITEM OR MAILITEM." & vbCrLf
myItem.UnRead = True
intMsgCount_Error = intMsgCount_Error + 1
Else
'Check type is 550 - user not found/inactive etc
If bolOnly550 And _
(InStr(myItem.Body, "550") = 0) And _
(InStr(myItem.Body, "554") = 0) And _
(InStr(myItem.Body, "unknown user") = 0) And _
(InStr(myItem.Body, "user unknown") = 0) And _
(InStr(myItem.Body, "no mailbox here by that name") = 0) And _
(InStr(myItem.Body, "no such user") = 0) And _
(InStr(myItem.Body, "bad address") = 0) And _
(InStr(myItem.Body, "Host or domain name not found") = 0) And _
(InStr(myItem.Body, "e-mail account does not exist") = 0) Then
If bolDebug Then myMailItemLog.Body = myMailItemLog.Body & "ERROR - NOT 550 OR Host or domain name not found MESSAGE." & vbCrLf
myItem.UnRead = True
intMsgCount_Error = intMsgCount_Error + 1
Else
'Extract email address from body
intPos = InStr(myItem.Body, "@")
If intPos = 0 Then
'No email address found
If bolDebug Then myMailItemLog.Body = myMailItemLog.Body & "ERROR - NO EMAIL ADDRESS FOUND IN MESSAGE." & vbCrLf
myItem.UnRead = True
intMsgCount_Error = intMsgCount_Error + 1
Else
'Get right of @
intPos_Space = InStr(intPos, myItem.Body, " ")
intPos_Bracket = InStr(intPos, myItem.Body, ">")
If (intPos_Space < intpos_bracket =" 0)" intpos_temp =" intPos_Space" intpos_temp =" intPos_Bracket" strtemp =" Left(myItem.Body," intpos_space =" InStrRev(strTemp," intpos_bracket =" InStrRev(strTemp,"> intPos_Bracket) Or (intPos_Bracket = 0) Then
intPos_Temp = intPos_Space
Else
intPos_Temp = intPos_Bracket
End If
strTemp = Mid(strTemp, intPos_Temp + 1)
'Write to log
myMailItemLog.Body = myMailItemLog.Body & strTemp & vbCrLf
myItem.UnRead = False
intMessageCount = intMessageCount + 1
End If
End If
End If
Next
'Done - write to log and show done message
myMailItemLog.Body = myMailItemLog.Body & vbCrLf & Now() & " Done. Email addresses extracted: " & intMessageCount & ". Email addresses NOT extracted: " & intMsgCount_Error & "."
myMailItemLog.Display
MsgBox Now() & " Done. Email addresses extracted: " & intMessageCount & ". Email addresses NOT extracted: " & intMsgCount_Error & ".", vbInformation, "Done"
End Sub
Labels: Outlook
Keep in mind that personalization is subtle—at first you may not notice any difference. But over time, as the search engine learns your preferences, you'll see it. For example, I (Sep) am an avid Miami Dolphins fan (no joke). Searching for [dolphins] gives me info about my favorite football team, while a marine biologist colleague gets more information about her salt-water friends.
This sounds great to me, but of course it again raises important questions on privacy - I'm not too sure that I want all searches I'm making stored somewhere, available to who knows who.
Living in a pretty well developed democracy I'm not too worried about government finding out stuff about me but it's not hard to imagine that a country like China can leagally force Google to give out information about its citizens. And it's not too hard to imagine a future bug that by mistake will give the whole world access to your searches if they now your email address (that you use to logon to Google) - all of a sudden your employer knows that you're looking for a new job, your wife that you been searching for xxx, etc...
Not to mention all the new work this will bring to all SEOs (Search Engine Optimizers) out there ;-)
Labels: Google
The Windows Desktop Search Add-in for Lotus Notes is a protocol handler that allows you to index the conent of Lotus Notes email, contacts, calendar items, and journal items stored on your computer.
Labels: Lotus Notes, Outlook