How to configure Hotmail account with MS Outlook?

 Here is the steps to follow to correctly adjust their email account. PS: This is only valid for a Hotmail account. 

In Outlook: 
Tools => Options => Tab "Mail" => Email Accounts ... => New ... 
Choose "Microsoft Exchange, POP3, IMAP or HTTP Enter your name (the one you want) E-mail Address Password Confirm password Check "Manually configure server settings or additional server types" 
Select "Internet Mail" 
Account Type: POP3 Incoming mail server: pop3.live.com Outgoing mail server: smtp.live.com 
Info for connection, retype your email address in "Username" and password associated in the "Password" Check "Remember password" 
Click "More Settings ..." Tab "Outgoing Server" => check "My outgoing server (SMTP) requires authentication => Use same settings as my incoming mail server Tab "Advanced" => Incoming server (POP3): 995 Check "This server requires an encrypted connection (SSL) Outgoing server (SMTP): 25 Use the following type of encrypted connection: Automatic 
Finish your creation through multi-clicks OK - Next - Finish, and voila. 

How to create a log file in VB.Net?

I was also in search of such vb.net code to create a log file and after lots of google , I got a vb.net code and did some modification to match my requirement and after modification my code is working fine. This code is just a class.

Imports System.IO

Public Class Classlogger

    Private Shared Sub Info(ByVal info As Object)

        'Gets folder & file information of the log file 

        Dim filename As String = "C:\Program Files\abc\log.rtf"

        ' Dim sw As StreamWriter

        Dim portfolioPath As String = My.Application.Info.DirectoryPath

        'Dim s As StreamWriter

        'Dim portfolioPath As String = My.Application.Info.DirectoryPath

        'Check for existence of logger file           

        If File.Exists(filename) Then

            Try

                Dim fs As FileStream = New FileStream(filename, FileMode.Append, FileAccess.Write)

                Dim sw As StreamWriter = New StreamWriter(fs)

                sw.WriteLine(vbCrLf & "--- " + vbCrLf + DateTime.Now + " " + info.ToString)

                sw.Close()

                fs.Close()

            Catch dirEx As DirectoryNotFoundException

                LogInfo(dirEx)

            Catch ex As FileNotFoundException

                LogInfo(ex)

            Catch Ex As Exception

                LogInfo(Ex)

            End Try

        Else

            'If file doesn't exist create one              

            Try

                'Dir = Directory.CreateDirectory("C:\Program Files\IRBn WMS")

                Dim fileStream As FileStream = File.Create(filename)

                Dim sw As StreamWriter = New StreamWriter(fileStream)

                sw.WriteLine(vbCrLf & "--- " + vbCrLf + DateTime.Now + info.ToString)

                sw.Close()

                fileStream.Close()

            Catch fileEx As FileNotFoundException

                LogInfo(fileEx)

            Catch dirEx As DirectoryNotFoundException

                LogInfo(dirEx)

            Catch ex As Exception

                LogInfo(ex)

            End Try

        End If

    End Sub

    Public Shared Sub LogInfo(ByVal ex As Exception)

        Try

            'Writes error information to the log file including name of the file, line number & error message description              

            Dim trace As Diagnostics.StackTrace = New Diagnostics.StackTrace(ex, True)

            Dim fileNames As String = trace.GetFrame((trace.FrameCount - 1)).GetFileName()

            Dim lineNumber As Int32 = trace.GetFrame((trace.FrameCount - 1)).GetFileLineNumber()

            Info(vbCrLf + "Error In: " + fileNames + vbCrLf + "Line Number:" + lineNumber.ToString() + vbCrLf + "Error Message: " + ex.Message)

        Catch genEx As Exception

            Info(ex.Message)

        End Try

    End Sub

    Public Shared Sub LogInfo(ByVal message As String)

        Try

            'Write general message to the log file      

            Info("Message: " + message)

        Catch genEx As Exception

            Info(genEx.Message)

        End Try

    End Sub

End Class

 and I called in a event 

Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click

        Try

          

        Catch ex As Exception

          

           

            Classlogger.LogInfo(ex)

           

        End Try

    End Sub

Vb.Net code to know the basic information of your computer.

A self explanatory windows form is design to to capture the all the basic details like:

• Computer Name
•  UserName
• Operating System
• Operating System version.
• OS Platform
• Network Connection
• Monitor Height
• Monitor width
• Available physical memory
• Total Physical Memory etc

Just design the windows form as shown below and writ down the code as show :

Public Class Computer_detail

   

    'declaration of variable

    Dim processName As String

    'declaration of DT variable as Datatable

    Dim DT As New DataTable

    Dim percent As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim availphyMem As Integer = My.Computer.Info.AvailablePhysicalMemory / 1000000

        Dim totlPhyMem As Integer = My.Computer.Info.TotalPhysicalMemory / 1000000

        Dim totVirtMem As Integer = My.Computer.Info.TotalVirtualMemory / 1000000

        'this line is for the name of computer

        Dim compname As String = My.Computer.Name

        'current username used on the machine

        Dim compuser As String = SystemInformation.UserName

        'display the Operating installedon this machine

        Dim OS As String = My.Computer.Info.OSFullName

        'show the platform of the operating installed

        Dim OSplatform As String = My.Computer.Info.OSPlatform

        'it display the Operating system version

        Dim osversion As String = My.Computer.Info.OSVersion

        'display the height and width of the machine

        Dim HeighMon As Integer = SystemInformation.PrimaryMonitorSize.Height

        Dim WidthMon As Integer = SystemInformation.PrimaryMonitorSize.Width

        'it loops trough all the processes happening running in this machine

        For Each p As Process In Process.GetProcesses

            'it display to the datagridview provided

            'DataGridView1.Rows.Add(p.ProcessName)

        Next

        'it check if the machine is connectd to the network or not

        If My.Computer.Network.IsAvailable Then

            TxtNetworkConnection.Text = "Connected"

        Else

            TxtNetworkConnection.Text = "Not Connected"

        End If

        'it get and set the maximum value of progressbar

        ProgressBar1.Maximum = availphyMem

        ProgressBar1.Value = availphyMem

        'this is the formula to get the percentage

        percent = (ProgressBar1.Value / totlPhyMem) * 100

        'it display the percentage in the label

        blpercent.Text = percent & "%"

        'it assign and display all the data from the variable above

        'and display the corresponding value into the textboxes provided

        txtComputerName.Text = compname

        txtComputerUserName.Text = compuser

        txtos.Text = OS

        txtosplatform.Text = OSplatform

        txtosversion.Text = osversion

        txtTotalMemory.Text = availphyMem & " MB"

        txtAphysicalmemory.Text = totlPhyMem & " MB"

        txtvirtualmemory.Text = totVirtMem & " MB"

        ProgressBar1.Maximum = totlPhyMem

        txtMonitorHeight.Text = HeighMon

        txtMonitorwidth.Text = WidthMon

    End Sub

    Private Sub Computer_detail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'it starts the timer

        Timer1.Start()

        'create new column named "List of processes"

        DT.Columns.Add("List of Processe")

        'set the datasource of the datagridview to DT

        DataGridView1.DataSource = DT

    End Sub

End Class