Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

Using the CreateItem Method to Create Default Items

Sub mail()     Dim myMessage As MailItem     Set myMessage = Application.CreateItem(ItemType:=olMailItem)     With myMessage         .To = "test@example.com"         .Subject = "Test message"         .Body = "This is a test message."         .Display     End With End Sub