Extracting text from a bunch of =EMBED(“Forms.HTML:Text.1”,“”) in Excel

Sub ExtractData()
Dim obj

    For Each obj In ActiveSheet.OLEObjects
        If obj.progID = "Forms.HTML:TextArea.1" Then
            me.Range("A1").Value = obj.Object.Value 
             ''' change the Range as required
        End If
    Next o
End Sub

SendKeys Method

This method places keystrokes in a key buffer. In some cases, you must call this method before you call the method that will use the keystrokes. For example, to send a password to a dialog box, you must call the SendKeys method before you display the dialog box.

The Keys argument can specify any single key or any key combined with ALT, CTRL, or SHIFT (or any combination of those keys). Each key is represented by one or more characters, such as "a" for the character a, or "{ENTER}" for the ENTER key.

To specify characters that aren't displayed when you press the corresponding key (for example, ENTER or TAB), use the codes listed in the following table. Each code in the table represents one key on the keyboard.

ey	Code
BACKSPACE	{BACKSPACE} or {BS}
BREAK	{BREAK}
CAPS LOCK	{CAPSLOCK}
CLEAR	{CLEAR}
DELETE or DEL	{DELETE} or {DEL}
DOWN ARROW	{DOWN}
END	{END}
ENTER (numeric keypad)	{ENTER}
ENTER	~ (tilde)
ESC	{ESCAPE} or {ESC}
HELP	{HELP}
HOME	{HOME}
INS	{INSERT}
LEFT ARROW	{LEFT}
NUM LOCK	{NUMLOCK}
PAGE DOWN	{PGDN}
PAGE UP	{PGUP}
RETURN	{RETURN}
RIGHT ARROW	{RIGHT}
SCROLL LOCK	{SCROLLLOCK}
TAB	{TAB}
UP ARROW	{UP}
F1 through F15	{F1} through {F15}

You can also specify keys combined with SHIFT and/or CTRL and/or ALT. To specify a key combined with another key or keys, use the following table.

To combine a key with	Precede the key code with
SHIFT	+ (plus sign)
CTRL	^ (caret)
ALT	% (percent sign)

Example

This example uses the SendKeys method to quit Microsoft Excel.

Application.SendKeys("%fx")

Reference: MSDN.Microsoft.Com 

Meanings of these Words

Do you know the meanings of these words?

• News = North East West South
• Chess = Chariot, Horse, Elephant, Soldiers
• Cold = Chronic Obstructive Lung Disease
• Joke = Joy of Kids Entertainment
• Aim = Ambition in Mind
• Date = Day and Time Evolution
• Eat = Energy and Test
• Tea = Taste and Energy Admitted
• Pen = Power Enriched in Nib
• Smile = Sweet Memories in Lips Expression
• Bye = Be with your Everytime

AutoSend the mail from excelsheet

Create a Action Button and copy paste following Lotus Script.
When you click on action button it will open excel file.. add following columns and once your are done click "OK" Prompt button...

This is select individual rows and send mail.

Columns 1: To
Columns 2: Subject
Columns 3: Body Content

Programming Code:


Sub Click(Source As Button)
on error goto ErrorHandling

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim richStyle As NotesRichTextStyle
Dim color As NotesColorObject

Dim xlApp As Variant
Dim xlsheet As Variant
Dim ARangeValue As Variant

Dim I As Integer
Dim c As Integer 
Dim j As Integer
Dim answer As Integer

Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set richStyle = session.CreateRichTextStyle
Set color = session.CreateColorObject
color.NotesColor = 240

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.add

Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
xlsheet.Activate

Messagebox " Copy the data in the excelsheet, Once you click 'OK' mail will sent to the respected users."


c=65
While Not xlsheet.Range(Chr(c) & "1").Value = ""
i=2

doc.Form = "Memo"
doc.SendTo = xlsheet.Range("A" & Trim(Str(i + 1))).Value
doc.Subject = xlsheet.Range("B" & Trim(Str(i + 1))).Value

Dim richText As New NotesRichTextItem(doc, "Body")

Call richText.AddNewline(1)

richStyle.Bold = True
richStyle.NotesColor = COLOR_BLUE
richStyle.FontSize = 18

Call richText.AppendStyle(richStyle)
Call richText.AppendText("Title with Tex Style")

richStyle.Bold = False
richStyle.FontSize = 10
richStyle.NotesColor = COLOR_BLACK

Call richText.AppendStyle(richStyle)
Call richText.AddNewline(2)
Call richText.AppendText("Body Contents for the mail....")
Call doc.Save(True, False)
Call doc.Send( False ) 

i = i + 1
Wend

Messagebox "Auto Mail send Process is Complited"

Exit Sub
ErrorHandling:
Messagebox  Error

End Sub 

Windows 7 Cool Feature – Problem Steps Recorder (PSR)

It seems that Microsoft is coming up with something nice interesting tools in Windows 7. We are talking about feature that is called “Problem Steps Recorder”.

Problem Steps Recorder can be used to automatically capture the steps performed by a user on a computer, including a text description of where they clicked and a picture of the screen during each click. This capture is then automatically saved to a file that can be used by a support professional to help the user troubleshoot the issue or understand what steps were taken by the user.


To Start the Problem Steps Recorder : In the tradition of all of Microsoft’s handiest utilities, the Problem Steps Recorder isn’t plainly visible in the Start menu. To run it, you’ll need to open the Run dialogue box by hitting Win + R, and then typing psr.exe (below, top). In a pinch, you can also search for PSR at the bottom of the Start menu.

In any case, PSR is more than just a screenshot capturing tool. Besides automating the capturing of what’s going on the screen, it will also highlight the user’s mouse clicks, and, most importantly, will provide a detailed textual metadata with a description of what the user is doing.

Auto Complete mail address Outlook

In case of move to new PC/Laptop, if you want to move your Auto Complete mail address from Outlook then you just need to do following.

Locate the .nk2 file is C:\Users\[User Profile]\AppData\Roaming\Microsoft\Outlook 

Copy where your new outlook is configured at the same location mention above. and your have done. 

Load your outlook and see Auto Complete is working now !!!

Knowledge Management vs Skill Management

#	Knowledge Management	Skill Management
1	It Involves capturing the knowledge of employees and sharing it so that it is available for others to use.	It only focuses on application of Knowledge to find Solution
2	It's learning technique	It's a Problem Solving Technique
3	It starts from individual and ends in sharing.	It starts with sharing and ends up in individuals ability
4	Knowledge Management uses experience gained out of failures and also success.	Skill is strongly measured based on only success of solving problems.
5	Knowledge is an intellectual property.	Skill is one of the means of producing intellectual property.
6	Knowledge is relative.	Skill is individualistic.
7	Knowledge is implicit.	Skill is explicit.
8	It's a measure of the VALUE of the Organization.	It's the measure of the ABILITY of the Organization.

In brief, Knowledge Management is learning and Skill Management is applying what has been learnt. Such application of skill may result in improvement over earlier learning and thus knowledge but not necessarily improvement of skill. Thus Knowledge is dynamic.