VBA code for Outlook - Forward Mail Without Attachment

May times it happens that you want to forward some mail without attachment that you received with attachments, and you need to delete manually. Following function will help you to remove the attachment while you send mail to someone.

Sub ForwardMailWithoutAttachment() 
 On Error GoTo ErrorHandler
    Dim obj As Object
    Dim msg As Outlook.MailItem
    Dim newMsg As Outlook.MailItem
    Dim subject As String
    Dim myattachments As Outlook.Attachments
    
     ' check for multiple selections
    If ActiveExplorer.Selection.Count > 1 Then
        MsgBox "please select one email only"
        GoTo ProgramExit
    End If
     
    Set obj = ActiveExplorer.Selection.Item(1)
    If Not obj Is Nothing Then
        If TypeName(obj) = "MailItem" Then
            Set msg = obj
            Set newMsg = msg.Forward
            subject = obj.subject ' Copy the selected Mail Subject
            If Len(subject) = 0 Then
                GoTo ProgramExit
            End If
            
            '########### To Remove the Attachment ##############
            Set myattachments = newMsg.Attachments
            While myattachments.Count > 0
                       myattachments.Remove 1
            Wend
            '###########################################
            With newMsg
                .subject = subject
                .Display
            End With
        Else
            MsgBox "Cannot Run this Macro. Invalid Selection of Mail."
            GoTo ProgramExit
        End If
    End If
ProgramExit:
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ProgramExit

End Sub

lotus formula to Extract One Value from Text List.

Extract 1 Value from Text List:
Normally when trying to extract a particular value from a text list, you would use Script and extract the value with the array(index), but there is a simple way to do this with formula language For this to work, you must know which value you wish to retrieve, ie.. what number the value is in the list. Use @Subset to get your desired results. This example uses a nested @Subset with another @Subset.

For example:
If the field you are wanting to extract the value from is, Rakesh, Sunny, Bhavin, Rajesh, Jathin, Kuti and you want to extract the value "Rajesh" from the list, use the following in another field:
Eg:
Here fieldname is Friends
@Subset(@Subset(Friends;4);-1)

This first gets the value of the first 4 entries in the list, then extracts the last value from that list giving you the desired result "Rajesh", since Rajesh is the 4th value in the 1st list, and the last in the second.

Find the position of text Value in Text List:

Here, you can use @Member(value ; list) lotus notes formula function. That determines the position of a value in a string list.

Eg:
position := @Member("Rajesh";Friends)

This formula will return no 4 to the "position" variable.

Refresh Lotus Notes Document with LotusScript

Will work for Refreshing the document.
Below script will (Open -> Edit - Save-> Close) the selected document from the view.

Sub Click(Source As Button)
Dim session As New NotesSession 
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument 
Dim ws As New NotesUIWorkspace 

Dim j As Integer

Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments

For j = 1 To collection.Count
Set doc = collection.GetNthDocument( j )
Set uidoc = ws.EditDocument(True,doc)
Call uidoc.Refresh
Call uidoc.Save 
Call uidoc.Close 
Next
End Sub

Find and Replace a Line Break Character in EXCEL

When you want to create a line break (line feed) in a cell, you press Alt + Enter, to start a new line. You can put one or more line breaks in a cell, to make the contents easier to read.

Find a Line Break
Line breaks are easy to add, but a little trickier to remove.

To find specific text in Excel, you can use Ctrl + F to open the Find and Replace dialog box. However, if you try to type Alt + Enter in the Find What box, you’ll just hear a beep from your computer. Excel won’t let you enter that shortcut.
Instead of using Alt + Enter in the Find What box, you can use a special shortcut -- Ctrl + J -- to enter a line break.
A line break is character 10 in the ASCII character set, and the Ctrl + J shortcut is the ASCII control code for character 10.

Find and Replace a Line Break
To replace a line break with a space character:

• Select the cells that you want to search
• On the keyboard, press Ctrl + H to open the Find and Replace dialog box, with the Replace tab active
• Click in the Find What box
• On the keyboard, press Ctrl + J to enter the line break character -- NOTE: Nothing will appear in the Find What box
• Press the Tab key on the keyboard, to move to the Replace With box
• Type a space character
• Click Find Next or Find All, to find the cells with line breaks.
• Click Replace or Replace All, to replace the line breaks with space characters.

Action button to set Date Value with Lotus Notes Formula Language

A quick and dirty way for doing this. No error checking, big assumptions about the input to the prompt being right.

1 2 3 4 5

nd := @Prompt([OKCANCELEDIT]; "Enter the New Date"; "YYYY/MM/DD."; @Today); @If (nd ="";@Return("");""); y := @Left (nd;"/"); m := @Left(@Right (nd;"/");"/"); d:= @right(@Right (nd;"/");"/");

1 2	FIELD DateFieldOnForm := @Date(@TextToNumber (y) ;@TextToNumber ( m) ;@TextToNumber ( d) )

The better, clean, way would be to use LotusScript and open a form in Dialog box mode, the form having a Calender tool on it.

Add Dynamic Text in Outlook Mail

This code will help to create a Macro that will be use for repeated input text.

Sub myMacro1()

Dim sText As String
sText = "Hi," & Chr(10) & Chr(10) & _
"This is a Macro Use in Outlook Mail" & Chr(10) & Chr(10) & _
"Enjoy Coding:" & Chr(10) 

PrintTextToBody (sText)
End Sub

Sub PrintTextToBody(ByVal sText As String)
On Error GoTo ErrHandler
If TypeName(ActiveWindow) = "Inspector" Then
    If ActiveInspector.IsWordMail And ActiveInspector.EditorType = olEditorWord Then
        ActiveInspector.WordEditor.Application.Selection.TypeText sText
    End If
End If
Exit Sub
ErrHandler:
Beep
End Sub

Enable Telnet in Windows 7

It’s very rare use of Telnet these days, so it took a long time to notice that by default it was not packaged with Windows Vista and Windows 7. 

More than likely this was an attempt to make Windows more secure by default, as Telnet is very insecure. However, you can quickly re-enable Telnet by following these steps:

1. Start
2. Control Panel
3. Programs And Features
4. Turn Windows features on or off
5. Check Telnet Client
6. Hit OK

After that you can start Telnet via Command Prompt.