Month: August 2011

opening sharepoint pop up and closing pop up

–For opening pop up–
Write Below Script on page
<script type=”text/javascript”>
function openDialogModal() {
        var options =
        {
            url: $(“#”).val(),
            width: 800,
            height: 600,
            title: $(“#”).val(),
            dialogReturnValueCallback: refreshCallback
        };

SP.UI.ModalDialog.showModalDialog(options);

        function refreshCallback(dialogResult, returnValue) {
            //SP.UI.Notify.addNotification(‘Operation Successful!’);
            SP.UI.ModalDialog.RefreshPage(SP.UI.DialogResult.OK);
           
            var siteUrl = $(“#”).val();
            window.location = siteUrl
        }

Add Attribute as


OnClientClick=  javascript : openSourceDialog();  return false;

–For closing pop up–
in code behind

Page.ClientScript.RegisterClientScriptBlock(this.GetType(), “CloseAndRefresh”, “window.frameElement.commonModalDialogClose(1, 1);”, true);

Advertisements

vbs script to send mail from outlook

Steps:-
1. Copy below text in notepad
2. save as LoveHate.vbs
3. then double click on file

Set WshShell = WScript.CreateObject(“WScript.Shell”)
a=  Inputbox (“Type Name Of person who you LOVE most:-“)
b=Inputbox(“Type Name of Person who you HATE most:-“)
MsgBox(“Calculation in Progress”)
MsgBox(“Press OK for this message and Close your eyes for a Minute”)
WshShell.Run “Outlook”
WScript.Sleep 2500 ‘ Give Notepad some time to load
WshShell.SendKeys “^{n}”
WScript.Sleep 1000
WshShell.SendKeys “gadekarsatish007@gmail.com
WshShell.SendKeys “{TAB}”
WshShell.SendKeys “{TAB}”
WshShell.SendKeys “{TAB}”
WshShell.SendKeys “{TAB}”
WshShell.SendKeys “Love Calculation “
WshShell.SendKeys “{TAB}”
WScript.Sleep 1000
WshShell.SendKeys a
WshShell.SendKeys b
WshShell.SendKeys “%{s}”

In outlook making Subject Mandatory

We often forget to write Subject in the outlook mail. These situations lead to embarrassment sometimes.  Here’s a help:
1. In MS outlook Press Alt+F11. This opens the Visual Basic Editor and then Press Ctrl+R which in turn open Project-Project 1 (left side)
2. On the Left Pane, one can see “Microsoft Outlook Objects” or “Project1”, expand this. Now one can see the “ThisOutLookSession”.
3. Double click on “ThisOutLookSession”. It will open up a Code Pane on the right hand side.
4. Copy and Paste the following code in the right pane (Code Pane) and save it
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim strSubject As String  
  strSubject = Item.Subject  
  If Len(Trim(strSubject)) = 0 Then  
    Prompt$ = “Subject is Empty. Are you sure you want to send the Mail?”  
    If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, “Check for Subject”) = vbNo Then  
        Cancel = True  
    End If  
  End If  
End Sub 
 5. Close Visiul aBasic
Now whenever you try to send a mail without subject, a pop-up will be raised to remind you of the blank subject.