Sub sendingmess() Dim myMessage As MailItem Set myMessage = Application.CreateItem(ItemType:=olMailItem) myMessage.Send End Sub