Sub sendsssmail()
Dim oApp As New Outlook.Application
Dim oMailItem As Outlook.MailItem
Set oMailItem = oApp.CreateItem(olMailItem)
oMailItem.Display
Application.DisplayAlerts = False
oMailItem.To = vincentwwsheng@hotmail.com
oMailItem.Subject = "New Message for you!"
oMailItem.Send
Application.DisplayAlerts = True
End Sub