'First VBA Code Sample Public Sub New_Mail() Dim App As Application Dim EmailFolder As MAPIFolder Dim NewItem As Object Set App = CreateObject("Outlook.Application") Set EmailFolder = App.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks) Set NewItem = EmailFolder.Items.Add("IPM.Note") NewItem.Display Set App = Nothing Set EmailFolder = Nothing Set NewItem = Nothing End Sub 'Second VBA Code Sample Public Sub New_Mail() Dim oAccount As Outlook.Account Dim oMail As Outlook.MailItem For Each oAccount In Application.Session.Accounts If oAccount = "Name_of_Default_Account" Then Set oMail = Application.CreateItem(olMailItem) oMail.SendUsingAccount = oAccount oMail.Display End If Next End Sub