Sub Send_A_Mail_To_A_Person()
'Created Object variable for Outlook
Dim O As Outlook.Application
Set O = New Outlook.Application
'Connecting to MailItem through Outlook object
Dim E As Outlook.MailItem
Set E = O.CreateItem(olMailItem)
'Defining Email Properties
With E
.To = "pavankumargundlapalli@gmail.com"
.CC = "pavankumargundlapalli@gmail.com"
.BCC = "pavankumargundlapalli@gmail.com"
.Subject = "Hello How are you?"
.BodyFormat = olFormatPlain
.Body = "Hi" & vbNewLine & _
vbNewLine & _
"First Line" & vbNewLine & _
"second Line" & vbNewLine & _
"Third Line" & vbNewLine
.Importance = olImportanceHigh
.Display
.Send
End With
End Sub